Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Icon mit Drag&Drop verschieben
Autor: Jens-Arne Reumschüssel (---.dip0.t-ipconnect.de)
Datum:   05.04.21 16:04

Hallo Heinz,

mit dem ~ImageList_DragMove komme ich positionstechnisch auch nicht klar, und ich habe es lange probiert. Hier ist eine andere Lösung, bei der die Steine auf Static-Controls gemalt werden. Die kann man dann mit der undokumentierten Funktion $F012 der ~WM_SYSCOMMAND-Message mit der Maus verschieben. Das einzig blöde daran ist, dass das Static natürlich rechteckig ist und daher um das Icon weiße Ecken bleiben. Das sieht man, wenn man in dem minimalen Beispiel hier drunter das Icon über den Button schiebt. Aber so kann man die Icons wunderbar mit SetWindowPos positionieren, wie man es haben möchte. Daher sind die Ecken vielleicht zu verschmerzen, wenn alles andere damit viel leichter geht.

 Declare Handle hPic, hIcon, btn1, btn2, text, Long x, y, ende
 Declare Handle hStein, Long IconX, IconY
 
 WindowTitle "ICON - PUZZLE"
 Window 600, 480
 btn1 = Create("BUTTON", %HWnd, "Ende", 100, 100, 100, 30)
 hIcon = Create("hICON", "GESICHT")
 hPic = Create("hNewPic", 32, 32, RGB(255, 255, 255))
 StartPaint hPic
   DrawIcon hIcon, 0, 0
 EndPaint
 hStein = Control("STATIC","",~SS_BITMAP | ~WS_CHILD | ~WS_VISIBLE | SS_CENTERIMAGE,10,10,32,32,%HWnd,1,%HInstance,0) 'SS_ICON ist schlecht, weil das Control dann einen grauen Hintergrund bekommt
 Sendmessage(hStein, ~STM_SETIMAGE, ~IMAGE_BITMAP, hPic)
 ende = 0
 WhileNot ende
   WaitInput
   If %mousepressed
     SendMessage(hStein, ~WM_SYSCOMMAND, $F012, 0) 'verschiebt ein Control mit der Maus, bis die Maustaste losgelassen wird
   ElseIf Clicked(btn1) or IsKey(27)
     ende = 1
     While IsKey(27)
       Sleep 25
     EndWhile
   EndIf
 EndWhile
 End
 


Gruß, Jens-Arne

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Icon mit Drag&Drop verschieben  Neu
Heinz Brill 27.03.21 10:17 
 Re: Icon mit Drag&Drop verschieben  Neu
Arndt Lindner 29.03.21 14:15 
 Re: Icon mit Drag&Drop verschieben  Neu
Jens-Arne Reumschüssel 05.04.21 16:04 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org