Objekte (Bilder) mit der Maus bewegen

[horsthorn]

Kann man mit XProfan-11.2 Objekte (Bilder, Buttons usw.) mit der Maus verschieben
Also innerhalb eines Programmfensters an eine gewünschte Stelle stellen und da auch abspeichern.
@Frank du hast doch sowas schon gemacht.
Ein kleiner Startcode wäre hilfreich.

[Frabbing]

Für Bilder musst du wohl eine eigene Routine schreiben.

Fensterobjekte gehen recht einfach zu verschieben (anstelle eines Bilds könntest du ja ein Static mit einem Bild verwenden). Allerdings ist es dann nicht mehr so einfach, die Buttons usw. vernünftig abzufragen. Müsstest du dann wohl im Subclassing machen. Hier eine simple Routine:

' (C) Paules PC-Forum
' 
Def GetSysColor(1) !"user32","GetSysColor"

Declare hButt01&

SubClassProc
  If  SubClassMessage(hButt01&, $201)
    PostMessage(hButt01&, $A1, $2, 0)
    Set("WinProc", 0)
  EndIf
Endproc

Cls GetSysColor(15)

hButt01& = Create("Button",%hwnd,"Verschiebe mich!",16,16,120,21)
Subclass hButt01&,1

While 1
  WaitInput
  Case %key=2: BREAK
EndWhile

Subclass hButt01&,0
End

[horsthorn]

@Frank
Großen Dank
Das ist doch schon mal ein Anfang
Es sollen keine Buttons abgefragt werden.
Mir geht es hauptsächlich darum, Bilder zu bewegen und der Tipp mit Static war gut.
Jetzt "bastele" ich mal wieder eine Zeit lang - melde mich wieder

[Bangkok]

Geht aber auch ohne subclassing

Def TrackMouseEvent(1) ! "user32","TrackMouseEvent"
Def ChildWindowFromPoint(3) ! "user32","ChildWindowFromPoint"
Def GetCursorPos(1) ! "USER32","GetCursorPos"
Def ScreenToClient(2) ! "USER32","ScreenToClient"
'Def ReleaseCapture(0) ! "USER32","ReleaseCapture"
'Def SetCapture(1) ! "USER32","SetCapture"

DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE BUTTON1&,ENDE%,point#,hover#,child&

WINDOWSTYLE 31
WINDOWTITLE "Neues Fenster"
WINDOW ((%MAXX/2)-(640/2)),((%MAXY/2)-(500/2))-640,500
Set("TrueColor",1)
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
BUTTON1& = CREATE("BUTTON",%HWND,"BUTTON",0278,0219,0070,0030)
SETFOCUS(%HWND)
usermessages 16
dim point#,8
dim hover#,16
long hover#,0 = 16
long hover#,4 = 3
long hover#,8 = getactivewindow()
long hover#,12 = 3

WHILENOT ENDE%
 getmessage
 If %Umessage = 16
  ENDE%= 1
 endif
 IF GETFOCUS(BUTTON1&)'BUTTON
  if %lastmessage = 512
   Usecursor 5
   Set("ErrorLevel", -1)
   case long(point#,0) < 0:long point#,0 = 0
   case long(point#,4) < 0:long point#,4 = 0
   SetWindowPos BUTTON1& = long(point#,0),long(point#,4),0070,0030;0
   WINDOWTITLE str$(long(point#,0))+" - "+str$(long(point#,4))
  endif
  if %lastmessage = 514
   Usecursor 0
   setfocus(%Hwnd)
   Set("ErrorLevel", 0)
  endif
 ENDIF
 GetCursorPos(point#)
 ScreenToClient(%hwnd,point#)
 child& = ChildWindowFromPoint(%hwnd,long(point#,0),long(point#,4))
 TrackMouseEvent(hover#)
endwhile
dispose point#
dispose hover#
end

[Frabbing]

Geht aber auch ohne subclassing

Zweifelsohne.

Super- oder Subclassing ist allerdings ein ganz normaler Vorgang beim programmieren. In fast allen Sprachen kommt man nicht ohne aus. Ist also kein Teufelswerk.

[AHT]

Lade dir mal Tasks and Token von meiner HP herunter.
Das geht mit TNT:

[AHT]

Im Prinzip geht das mit vielen Controls - hier Listviews:

[Bangkok]

Zitat von Frabbing

Ist also kein Teufelswerk.

Denke ich auch nicht, ich verwende es ja selbst auch, aber erst vermehrt seit es die SubClassProc gibt, vorher hat mich der Fastmode daran doch sehr gestört.

[AHT]

Wenn ich mal Lust hab, baue ich auch gerne mal die XP Uhr um....

[horsthorn]

Danke euch allen für eure Tipps und Screenshots.
Der Sinn der Übüng ist bei mir folgender:
Ähnlich einem Bannermaker möchte ich Bilder und Texte (Drawtext...) in einem Fenster(Windowstyle 80) zusammenstellen und dann als JPG-Datei speichern.
Wenn ich das über die Tastatur eingebe, ist das kein Problem. Mit der Maus die einzelnen Objekte (Static) an Ort und Stelle zu bewegen, ist dann schon etwas anderes.
So sieht ein Versuch aus, wenn ich alles mit Positionsangaben als Screenshot speichere:

[Frabbing]

Zitat von AHT

Wenn ich mal Lust hab, baue ich auch gerne mal die XP Uhr um....

Was stört dich daran?

[AHT]

Zitat von Frabbing

Was stört dich daran?

Ich hasse Eintönigkeit...

@Horst: Nur Statics oder zeichnest du auch direkt per Drawtext?

[horsthorn]

Zitat von AHT

Ich hasse Eintönigkeit...

@Horst: Nur Statics oder zeichnest du auch direkt per Drawtext?

Bin noch zu Nichts gekommen !
Erklärung: Bin gebürtiger Düsseldorfer und auch in Heidelberg tobt die "5. Jahreszeit" - Helau !

Will aber auch mit Drawtext arbeiten...

[Frabbing]

Dann fehlt dir noch ein Avatar mit passender Mütze und roter Nase.

[horsthorn]

...ma kann ewwer alles överdrive