Beiträge von subzero007

subzero007

Hallo,

ich habe ja versprochen ganz klein anzufangen also habe ich es getan
vermutlich ist das nur ein ganz kleiner fehler, mit der hilfe konnte ich mir leider auch nicht helfen
Eine fehlermeldung erscheint nicht, bloss der inhalt meine txt erscheint nicht in meiner $listview1
eine idee?
zurinfo meine txt sieht so aus:
pc1
pc2
pc3

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#Include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <file.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 700, 510, 257, 323)
$ListView1 = GUICtrlCreateListView("", 24, 48, 170, 342)
$ListView2 = GUICtrlCreateListView("", 224, 48, 170, 342)
$ListView3 = GUICtrlCreateListView("", 424, 48, 186, 342)
$Button1 = GUICtrlCreateButton("PC`s Laden", 24, 400, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Check", 24, 432, 75, 25, 0)
$Button3 = GUICtrlCreateButton("export1", 136, 400, 59, 25, 0)
$Button4 = GUICtrlCreateButton("export2", 336, 400, 59, 25, 0)
$Button5 = GUICtrlCreateButton("export3", 552, 400, 59, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
_insert()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _insert()

$string = FileOpenDialog("Pc Liste Wählen", @ScriptDir & "\", "Pc Liste (*.txt;*.csv)", 1 + 4 )
$array = $string
For $i = 0 To UBound($array) - 1
GUICtrlCreateListViewItem($array[$i], $ListView1)

Next
EndFunc

[/autoit]

subzero007

darf ich dich um etwas letztes bitten dann ist auch alles geschlossen Bitteee
1.Einstellung vom slider speichern für transparents
2.und die Gui grösse Speichern "$hGUI"

Danke
Und geschlossen

subzero007

Und jetzt ?
kann man das jetzt nicht mehr machen?

subzero007

es funktioniert

@ChaosKeks Danke dir, das ist genau das was ich suche und was ich von anfang an wollte, du bist echt der einzige der mich verstanden hat.
Eine frage habe ich auch noch ist es schwierig die letzte Maske per ini zu speichern wenn ja wie mache ich das, ich weiss das geht über iniread und iniwrite,
aber ich weiss nicht wie ich das umsetzen soll, die bilder,die gui , deren grösse und vorallem die letzte grösse der gui wie ich das alles in die ini Schreiben kann?
@oliverh danke für deine hilfe "anstoss" konnte dir leider mein Problem nicht erklären muss wohl an mir liegen??!! wollte doch nur das was ChaosKeks jetzt in der Letzten version gemacht hat wie das geht wollte doch ein Tipp in die richtige damit ich was lernen kann, aber trotzdem danke für deine mühe

Kriege folgenden fehler ganz am anfang ist aber nicht schlimm Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Spoiler anzeigen

[autoit]

#Include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <_WinAPI_HiWord.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt('MouseCoordMode', 0)
Opt("GUIOnEventMode", 1)
Global $Pos_M2 = MouseGetPos(), $pic
Dim $sPic[1]

[/autoit] [autoit][/autoit] [autoit]

$hGUI = GUICreate("Transparent", 575, 510, Default, Default, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX), $WS_EX_ACCEPTFILES)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Ex")
$insert = GuiCtrlCreateButton("Insert Pic" ,10,10)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
GuiCtrlSetOnEvent(-1, "_insert")
$delete = GuiCtrlCreateButton("Delete Pic" ,70,10)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
GuiCtrlSetOnEvent(-1, "_Delete")
$label = GUICtrlCreateLabel("Transparence = 0%", 30, 437, -1, 14)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
$slider = GUICtrlCreateSlider(10, 457, 144, 20, BitOR($TBS_AUTOTICKS, $WS_BORDER))
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
WinSetTrans("Transparent", "", 255 - GUICtrlRead($slider) * 2.55)
GUICtrlCreatePic("", -10, -10)
Dim $Acc[2][2] = [["^i", $insert], ["^d", $delete]]
GUISetAccelerators($Acc)
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_HSCROLL, "WM_HVSCROLL")
While 1
sleep(10)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _insert()
$bild = FileOpenDialog("Wählen Sie eine Datei aus!", @DesktopDir & "\", "Bilder (*.jpg;*.bmp)", 1 + 4 )
If $bild = "" Or @error Then return
GUICtrlCreatePic($bild, 150, 150)
GuiCtrlSetOnEvent(-1, "_DragMe")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _delete()
GuiCtrlDelete($pic)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _DragMe()
Global $hGui = @GUI_WINHANDLE
$pic = @GUI_CTRLID
Local $Pos_C, $Pos_M, $Pos_M2, $Opt_old
Local $dll = DllOpen("user32.dll")
$Pos_C = ControlGetPos($hGui, "", $pic)
$Pos_M = MouseGetPos()
$Pos_W = WinGetPos($hGui)
$x_Offset = $Pos_M[0] - $Pos_C[0]
$y_Offset = $Pos_M[1] - $Pos_C[1]
While _IsPressed('01', $dll)
$Pos_M = MouseGetPos()
If $Pos_M <> $Pos_M2 Then
GUICtrlSetPos($pic,$Pos_M[0] - $x_Offset, $Pos_M[1] - $y_Offset)
sleep(10)
EndIf
$Pos_M = $Pos_M2
sleep(50)
While _IsPressed('11', $dll)
$Pos_C = ControlGetPos($hGui, "", $pic)
_MouseTrap($Pos_C[0]+$Pos_W[0],$Pos_C[1]+$Pos_W[1],$Pos_W[2]+$Pos_W[0],$Pos_W[3]+$Pos_W[1])
$Pos_M = MouseGetPos()
GUICtrlSetPos($pic, $Pos_C[0], $Pos_C[1], $Pos_M[0]-$Pos_C[0], $Pos_M[1]-$Pos_C[1])
sleep(10)
WEnd
WEnd
DllClose($dll)
_MouseTrap()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func WM_HVSCROLL($hwnd, $iMsg, $wParam, $lParam)
Local $hWndFrom, $iCode
If Not IsHWnd($slider) Then $hWndCombo1 = GUICtrlGetHandle($slider)
$hWndFrom = $lParam
$iCode = _WinAPI_HiWord($wParam)
Switch $hWndFrom
Case $slider, $hWndCombo1
GUICtrlSetData($label, "Transparence = " & GUICtrlRead($slider) & "%")
WinSetTrans("Transparent", "", 255 - GUICtrlRead($slider) * 2.55)
EndSwitch
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Ex()
Exit
EndFUnc

[/autoit]

Edit:
@ChaosKeks Ok das nächste wird was einfaches.
was ich mit wenig fragen im Board bestimmt lösen werde.
Aber das mit der ini datei kannst du das für mich lösen, dann will ich hier auch keinen mehr nerven und das thema schliessen??

bernd670: Beiträge zusammengefasst!

subzero007

ok ich versuche dir mein problem zu erklären
wenn ich das bild einfüge ist es so gross= Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
wenn ich einmal klicke so gross= Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
wenn ich noch einmall klicke so= Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
ich will das er in kleineren abständen grösser wird, zb in mm"milimeter" er wird zur zeit in dm"dezimeter"
und das ich sagen kann werde grösser also nur y achse oder x achse
also gehe nur in die breite oder nur in die höhe ich hoffe ich konnte dir mein problem erklären,
ich habe schon verstanden was du meinst aber will und brauche es kleiner

Danke nochmal an euch alle ohne euch wäre ich aufgeschmissen

subzero007

Wenn ich ,
strg linke maustaste macht es zu grosse Schritte sollte kleinere schritte und breite und höhe würde ich gerne auch bestimmen,
also ob das bild breiter oder höher werden soll?"zur zeit wird es ja gleichmässig gross"
ok dann verzichte ich aufs drehen das mache ich wenn ich gross bin

wie geht das freue mich schon für jeden vorschlag

subzero007

Hast ja recht funktioniert ja auch

aber ich muss es genauer einstellen können und eventuell drehen können was meinst du ist das zuviel verlangt von autoit?

subzero007

Das tut mir leid, ist es nicht möglich per maus die grösse zu bestimmen,
so wird er ja grösser ohne das man bestimmen welche genaue grösse?
Ist die variante nicht möglich also mit maus verschieben drehen grössen ändern meinetwegen auch mit strg?

subzero007

Wenn ich ehrlich bin verstehe ich 80 % da ich vieles mit ChaosKeks zusammen gemacht habe,
ich gebe ja mir mühe aber wenn man im Dunkel ist eine taschenlame bei hat aber keine batterien hat hilft das nicht weiter besonders wenn man auch kein feuerzeug hat.

Willst du mir helfen?

Edit:
Also bin jetzt weiter wenn ich linke maustaste und strg drücke wandert mein Bild weg,
aber ich kann nicht varieren habe auch keine hilfe gefunden,
Würde mich über jede hilfe freuen
Ich vermutte der fehler liegt in zeile 66 ich muss vermutlich anstatt
GUICtrlSetPos($pic,"",$Pos_C,$Pos_M) die bildgrösse bestimmen kriege es aber irgendwie nicht hin es ändert nur die position vom bild

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Array.au3>
#Include <Misc.au3>
#include <SliderConstants.au3>
#include <ListviewConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#Include <GuiListView.au3>
#Include <Array.au3>
#Include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
Global $Pos_M2 = MouseGetPos(), $pic
Dim $sPic[1]

[/autoit] [autoit][/autoit] [autoit]

$hGUI = GUICreate("Transparent", 575, 510, Default, Default, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX), $WS_EX_ACCEPTFILES)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Ex")
$insert = GuiCtrlCreateButton("Insert Pic" ,10,10)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
GuiCtrlSetOnEvent(-1, "_insert")
$delete = GuiCtrlCreateButton("Delete Pic" ,70,10)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
GuiCtrlSetOnEvent(-1, "_Delete")
$label = GUICtrlCreateLabel("Transparence = 0%", 30, 437, -1, 14)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
$slider = GUICtrlCreateSlider(10, 457, 144, 20, BitOR($TBS_AUTOTICKS, $WS_BORDER))
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
WinSetTrans("Transparent", "", 255 - GUICtrlRead($slider) * 2.55)
Dim $Acc[2][2] = [["^i", $insert], ["^d", $delete]]
GUISetAccelerators($Acc)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _insert()
$bild = FileOpenDialog("Wählen Sie eine Datei aus!", @DesktopDir & "\", "Bilder (*.jpg;*.bmp)", 1 + 4 )
If $bild = "" Or @error Then return
GUICtrlCreatePic($bild, 150, 150)
GuiCtrlSetOnEvent(-1, "_DragMe")
GUICtrlCreateMenu("")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _delete()
GuiCtrlDelete($pic)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _DragMe()
Global $hGui = @GUI_WINHANDLE
$pic = @GUI_CTRLID
Local $Pos_C, $Pos_M, $Pos_M2, $Opt_old
Local $dll = DllOpen("user32.dll")
$Opt_old = Opt('MouseCoordMode', 0)
$Pos_C = ControlGetPos($hGui, "", $pic)
$Pos_M = MouseGetPos()
$Pos_W = WinGetPos($hGui)
$x_Offset = $Pos_M[0] - $Pos_C[0]
$y_Offset = $Pos_M[1] - $Pos_C[1]
_MouseTrap($Pos_W[0]+$x_Offset,$Pos_W[1]+$y_Offset,$Pos_W[0]+$Pos_W[2],$Pos_W[1]+$Pos_W[3])
If _IsPressed('11', $dll) Then
While _IsPressed('11', $dll) And _IsPressed('11', $dll)
TrayTip("Info", "Mit STRG + linke Maustaste auf ein Bild geklickt", 10, 1)
GUICtrlSetPos($pic,"",$Pos_C,$Pos_M)
WEnd
TrayTip("Info", "Eine der Beiden Tasten losgelassen", 10, 1)
Else
While _IsPressed('01', $dll)
$Pos_M = MouseGetPos()
If $Pos_M <> $Pos_M2 Then
GUICtrlSetPos($pic,$Pos_M[0] - $x_Offset, $Pos_M[1] - $y_Offset)
sleep(10)
EndIf
$Pos_M = $Pos_M2
sleep(50)
WEnd
EndIf
DllClose($dll)
Opt('MouseCoordMode', $Opt_old)
_MouseTrap()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func WM_HVSCROLL($hwnd, $iMsg, $wParam, $lParam)
Local $hWndFrom, $iCode
If Not IsHWnd($slider) Then $hWndCombo1 = GUICtrlGetHandle($slider)
$hWndFrom = $lParam
$iCode = _WinAPI_HiWord($wParam)
Switch $hWndFrom
Case $slider, $hWndCombo1
GUICtrlSetData($label, "Transparence = " & GUICtrlRead($slider) & "%")
WinSetTrans("Transparent", "", 255 - GUICtrlRead($slider) * 2.55)
EndSwitch
EndFunc
Func _Ex()
Exit
EndFUnc

[/autoit]

bernd670: Beiträge zusammengefasst!

subzero007

Hab ein bisschen mitleid mit einem anfänger noch ein tipp anwelcher stelle muss ich das machen ?

subzero007

Tolle idee ?
hast ein tippe wie ich dass umsetze mein aktueller code ist in beitrag 21 ?

subzero007

Hey,
wieso machst du es nicht so?

Spoiler anzeigen

[autoit]

While True
If WinExists("Fenster")=1 Then
WinClose("Fenster")
EndIf
Sleep(300000)
WEnd

[/autoit]

subzero007

Hmmm,
ja aber dann könnte man ja die grösse ja nicht bestimmen,es geht ja darum:
Bild Positionieren das geht ja, wie kann man die bildgrösse verändern also mit der maus die Grösse bestimmen,
also so in etwa wie bei Paint, an den ecken Klicken ziehen bis die bildgrösse da ist die man will.
Oder ist das mit Autoit nicht möglich?

subzero007

Danke,
das war ja einfach und wie kann ich von den bilder dynamisch die grösse ändern also per Mausklick?

subzero007

Hey,
bei mir funktieoniert es hast du Laufwerk n:\ ??

subzero007

So bin ja schonmal ein Schritt weiter;

habe jetzt einen slider eingebaut;
Die Gui kann ich jetzt die GFrösse mit der Maus anpassen;

Und jetzt wollte ich es Transparent machen aber kriege es nicht hin?
Und die Grösse des Bildes mit der Maus ändern können wie mache ich das?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Array.au3>
#Include <Misc.au3>
#include <SliderConstants.au3>
#include <ListviewConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#Include <GuiListView.au3>
#Include <Array.au3>
#Include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
Global $Pos_M2 = MouseGetPos(), $pic
Dim $sPic[1]

[/autoit] [autoit][/autoit] [autoit]

$hGUI = GUICreate("Transparent", 575, 510, Default, Default, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX), $WS_EX_ACCEPTFILES)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Ex")
$insert = GuiCtrlCreateButton("Insert Pic" ,10,10)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
GuiCtrlSetOnEvent(-1, "_insert")
$delete = GuiCtrlCreateButton("Delete Pic" ,70,10)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
GuiCtrlSetOnEvent(-1, "_Delete")
$label = GUICtrlCreateLabel("Transparence = 0%", 30, 437, -1, 14)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
$slider = GUICtrlCreateSlider(10, 457, 144, 20, BitOR($TBS_AUTOTICKS, $WS_BORDER))
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
WinSetTrans("Transparent", "", 255 - GUICtrlRead($slider) * 2.55)
Dim $Acc[2][2] = [["^i", $insert], ["^d", $delete]]
GUISetAccelerators($Acc)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _insert()
$bild = FileOpenDialog("Wählen Sie eine Datei aus!", @DesktopDir & "\", "Bilder (*.jpg;*.bmp)", 1 + 4 )
If $bild = "" Or @error Then return
GUICtrlCreatePic($bild, 150, 150)
GuiCtrlSetOnEvent(-1, "_DragMe")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _delete()
GuiCtrlDelete($pic)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _DragMe()
Global $hGui = @GUI_WINHANDLE
$pic = @GUI_CTRLID
Local $Pos_C, $Pos_M, $Pos_M2, $Opt_old
Local $dll = DllOpen("user32.dll")
$Opt_old = Opt('MouseCoordMode', 0)
$Pos_C = ControlGetPos($hGui, "", $pic)
$Pos_M = MouseGetPos()
$Pos_W = WinGetPos($hGui)
$x_Offset = $Pos_M[0] - $Pos_C[0]
$y_Offset = $Pos_M[1] - $Pos_C[1]
_MouseTrap($Pos_W[0]+$x_Offset,$Pos_W[1]+$y_Offset,$Pos_W[0]+$Pos_W[2],$Pos_W[1]+$Pos_W[3])
While _IsPressed('01', $dll)
$Pos_M = MouseGetPos()
If $Pos_M <> $Pos_M2 Then
GUICtrlSetPos($pic,$Pos_M[0] - $x_Offset, $Pos_M[1] - $y_Offset)
sleep(10)
EndIf
$Pos_M = $Pos_M2
sleep(50)
WEnd
DllClose($dll)
Opt('MouseCoordMode', $Opt_old)
_MouseTrap()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func WM_HVSCROLL($hwnd, $iMsg, $wParam, $lParam)
Local $hWndFrom, $iCode
If Not IsHWnd($slider) Then $hWndCombo1 = GUICtrlGetHandle($slider)
$hWndFrom = $lParam
$iCode = _WinAPI_HiWord($wParam)
Switch $hWndFrom
Case $slider, $hWndCombo1
GUICtrlSetData($label, "Transparence = " & GUICtrlRead($slider) & "%")
WinSetTrans("Transparent", "", 255 - GUICtrlRead($slider) * 2.55)
EndSwitch
EndFunc
Func _Ex()
Exit
EndFUnc

[/autoit]

Edit:
keiner eine idee?

bernd670: Beiträge zusammengefasst!

subzero007

Ich meinte damit wo muss ein Anfänger anfangen, damit er das lernt wie hast du angefangen oder bugfix,
mir ist es langsam unangenehm weil ich soviele fragen stelle
Noch trauriger ich habe schon in Kurzer zeit 150 beiträge aber nichts drauf

subzero007

Ich wollte dich echt nicht verarschen ich meine du hast es echt drauf würde gerne so wie du oder wie bugfix damit umgehen können,
kannst du mir einen tipp geben wie ich voran komme ich hänge immer an irgend etwas was mache ich falsch ?
Kannst du mir ein tipp geben?

subzero007

Suppi..........
Wenn ich gross bin will aich auch so sein wie du;-)

subzero007

Nicht sauer sein,
ich will doch lernen daher probiere ich nur das was in der hilfe steht umzusetzen,
und daber geht einiges verloren aber ich finde ich bin schon etwas stukturierter in meinem code geworden wenn ich meine ersten anschaue
und mit den Threads habe nur was zu den alten geschrieben und anschliesend geschlossen wollte dich nicht ärgern.
ich habe ja gestern versprochen mir mehr mühe zu geben und mehr zu lesen in der hilfe als fragen zu stellen.

Aber eine frage habe ich noch wenn ich mehrer bilder eingefügt habe, und ein bestimmtes löschen will.
Also bild vorher anklicken "makieren" dann löschen "Delete Pic",
wie heisst diese Funktion?

Beiträge von subzero007

Array??

If.....

If.....

If.....

If.....

If.....

If.....

If.....

If.....

If.....

If.....

eine frage

If.....

If.....

Ordner Read

If.....

If.....

If.....

If.....

If.....