eigenes fenster verschieben

Übersicht

BlitzBasic

Allgemein

	Mathias-Kwiatkowski Betreff: eigenes fenster verschieben	So, Okt 15, 2006 16:32 Antworten mit Zitat
hi leute bastle gerade einfach an einer gui für mein projekt in dieser gui kommen fenster vor, ich habe es schon geschafft das man wenn man auf X vom fenster klickt das sich das dan schliesst, aber was ich nicht schaffe das es verschiebbar ist, es lässt sich verschieben aber leider nur nach unten hin und nach rechts aber nach oben oder links gehts nicht, warum,??? hier nen kleinen codeausschnitt. Code: [AUSKLAPPEN] [EINKLAPPEN] For Create.Win=Each Win For LeisteOben=Create\x+26 To Create\x+Create\tox-26 DrawImage Window_Elemente,LeisteOben,Create\y,1 Next DrawImage Window_Elemente,Create\x,Create\y,0 DrawImage Window_Elemente,Create\x+Create\tox,Create\y,2 DrawImage Window_Elemente,Create\x+Create\tox-26,Create\y,3 Color 0,0,0 Rect Create\x,Create\y+20,Create\tox+25,Create\toy,0 GetColor Create\x+2,Create\y+19 Color ColorRed(),ColorGreen(),ColorBlue() Rect Create\x+1,Create\y+20,Create\tox+25-2,Create\toy-1,1 ;Fenster verschieben If MouseDown(1) And MouseX()>Create\x And MouseX()<Create\x+Create\tox+26 And MouseY()>Create\y And MouseY()<Create\y+20 Then create\x=MouseX()-2 : Create\y=MouseY()-2 EndIf ;wenn man mit der maus das X drückt If MouseHit(1) And MouseX()>Create\x+Create\tox-26 And MouseX()<Create\x+Create\tox-26+26 And MouseY()>Create\y And MouseY()<Create\y+20 Then Delete Create.Win Next bin dankbar um jede hilfe

Mathias-Kwiatkowski

Betreff: eigenes fenster verschieben

So, Okt 15, 2006 16:32
Antworten mit Zitat

hi leute bastle gerade einfach an einer gui für mein projekt in dieser gui kommen fenster vor, ich habe es schon geschafft das man wenn man auf X vom fenster klickt das sich das dan schliesst, aber was ich nicht schaffe das es verschiebbar ist, es lässt sich verschieben aber leider nur nach unten hin und nach rechts aber nach oben oder links gehts nicht, warum,??? hier nen kleinen codeausschnitt.

Code: [AUSKLAPPEN]

For Create.Win=Each Win
   For LeisteOben=Create\x+26 To Create\x+Create\tox-26
      DrawImage Window_Elemente,LeisteOben,Create\y,1
   Next
   DrawImage Window_Elemente,Create\x,Create\y,0
   DrawImage Window_Elemente,Create\x+Create\tox,Create\y,2
   DrawImage Window_Elemente,Create\x+Create\tox-26,Create\y,3
   Color 0,0,0
   Rect Create\x,Create\y+20,Create\tox+25,Create\toy,0

   GetColor Create\x+2,Create\y+19
   Color ColorRed(),ColorGreen(),ColorBlue()
   Rect Create\x+1,Create\y+20,Create\tox+25-2,Create\toy-1,1

   ;Fenster verschieben
   If MouseDown(1) And MouseX()>Create\x And MouseX()<Create\x+Create\tox+26 And MouseY()>Create\y And MouseY()<Create\y+20 Then

      create\x=MouseX()-2 : Create\y=MouseY()-2

   EndIf
   ;wenn man mit der maus das X drückt
   If MouseHit(1) And MouseX()>Create\x+Create\tox-26 And MouseX()<Create\x+Create\tox-26+26 And MouseY()>Create\y And MouseY()<Create\y+20 Then Delete Create.Win
Next

bin dankbar um jede hilfe

	Blitzcoder Newsposter	So, Okt 15, 2006 16:39 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] create\x=MouseX()-2 : Create\y=MouseY()-2 Du musst ja davon ausgehen, dass man nicht genau auf die linke obere Ecke des Fensters klickt. Das heisst, du musst zuerst die Differenz zwischen Mausposition un Fensterposition errechenen, und dann das Fenster entsprechend verschieben. MfG blitzcoder
P4 3 Ghz@3,55Ghz\|GF 6600GT 256MB\|Samsung 80GB \| 2x Samsung 160GB\|2048MB DDR-400 RAM\|6 Mbit Flatrate \| Logitech G15 \| Samsung 225BW-TFT \| Ubuntu Gutsy Linux \| Windows Vista \| Desktop \| Blog \| CollIDE \| Worklog ________________ \|°°°°°°°°°°°°°°\|\|'""\|""\__,_ \|______________ \|\|__ \|__\|__ \|) \|(@) \|(@)"""\|(@)(@)**\|(@)

Blitzcoder

Newsposter

So, Okt 15, 2006 16:39
Antworten mit Zitat

Code: [AUSKLAPPEN]

create\x=MouseX()-2 : Create\y=MouseY()-2

Du musst ja davon ausgehen, dass man nicht genau auf die linke obere Ecke des Fensters klickt. Das heisst, du musst zuerst die Differenz zwischen Mausposition un Fensterposition errechenen, und dann das Fenster entsprechend verschieben.

MfG blitzcoder

P4 3 Ghz@3,55Ghz|GF 6600GT 256MB|Samsung 80GB | 2x Samsung 160GB|2048MB DDR-400 RAM|6 Mbit Flatrate | Logitech G15 | Samsung 225BW-TFT | Ubuntu Gutsy Linux | Windows Vista | Desktop | Blog | CollIDE | Worklog
________________
|°°°°°°°°°°°°°°||'""|""\__,_
|______________ ||__ |__|__ |)
|(@) |(@)"""**|(@)(@)****|(@)