Farbe durch "KLICK" ändern

Übersicht

BlitzBasic

Allgemein

	totonak5 Betreff: Farbe durch "KLICK" ändern	Mo, Aug 23, 2004 16:57 Antworten mit Zitat
Hi! Wie kann ich den folgenden Quelltext so umändern, dass wenn ich auf eines der unteren Buttons Klicke, das Feld nicht gleich wieder weiß wird, sondern die jeweilige Farbe behält? Graphics 1024,768 SetBuffer BackBuffer() HidePointer Repeat Cls ; Buttons Color 255,0,0 Rect 60,650,100,40 Color 0,255,0 Rect 180,650,100,40 ; Fläche Color 255,255,255 If RectsOverlap(X,Y,5,5, 60,650,100,40) And MouseDown(1) Then Color 255,0,0 If RectsOverlap(X,Y,5,5, 180,650,100,40) And MouseDown(1) Then Color 0,255,0 Rect 200,150,640,480 Color 130,130,130 Rect 199,149,642,482,0 Rect 196,146,648,488,0 Color 180,180,180 Rect 198,148,644,484,0 Color 220,220,220 Rect 197,147,646,486,0 X = MouseX() Y = MouseY() Color 0,0,255 Rect X,Y,10,10 Flip Until KeyHit(1) Danke!
Just for Fun! Jesus loves U!

totonak5

Betreff: Farbe durch "KLICK" ändern

Mo, Aug 23, 2004 16:57
Antworten mit Zitat

Hi!

Wie kann ich den folgenden Quelltext so umändern, dass wenn ich auf eines der unteren Buttons Klicke, das Feld nicht gleich wieder weiß wird, sondern die jeweilige Farbe behält?

Graphics 1024,768
SetBuffer BackBuffer()
HidePointer

Repeat
Cls

; Buttons
Color 255,0,0
Rect 60,650,100,40
Color 0,255,0
Rect 180,650,100,40

; Fläche
Color 255,255,255
If RectsOverlap(X,Y,5,5, 60,650,100,40) And MouseDown(1) Then Color 255,0,0
If RectsOverlap(X,Y,5,5, 180,650,100,40) And MouseDown(1) Then Color 0,255,0
Rect 200,150,640,480
Color 130,130,130
Rect 199,149,642,482,0
Rect 196,146,648,488,0
Color 180,180,180
Rect 198,148,644,484,0
Color 220,220,220
Rect 197,147,646,486,0

X = MouseX()
Y = MouseY()
Color 0,0,255
Rect X,Y,10,10
Flip

Until KeyHit(1)

Danke!

Just for Fun!
Jesus loves U!

	BladeRunner Moderator	Mo, Aug 23, 2004 17:02 Antworten mit Zitat
gib jedem Button eine ID bzw. Zustands-Flag und ändere sie beim klicken dementsprechend...
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mo, Aug 23, 2004 17:02
Antworten mit Zitat

gib jedem Button eine ID bzw. Zustands-Flag und ändere sie beim klicken dementsprechend...

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Slayer	Mo, Aug 23, 2004 17:05 Antworten mit Zitat
Nur mal so als kleines beispiel Code: [AUSKLAPPEN] [EINKLAPPEN] Global winx=1024,winy=768,winbit=16,winmod=2 Global dib1 = 0 Graphics winx,winy,winbit,winmod SetBuffer BackBuffer () While Not KeyHit(k_esc) If MouseHit (1) Then dib1 = Not dib1 If dib1 = 0 Then ClsColor 255,0,0 If dib1 = 1 Then ClsColor 0,255,0 Flip:Cls Wend:End
AMD2500XP, SB5.1, DX9, 512MB DDR333, XPPro SP1a,ATI 9800SE 256bit 128MB,B3B, B+ immer die neue Version

Slayer

Mo, Aug 23, 2004 17:05
Antworten mit Zitat

Nur mal so als kleines beispiel Wink

Code: [AUSKLAPPEN]

Global winx=1024,winy=768,winbit=16,winmod=2

Global dib1 = 0
Graphics winx,winy,winbit,winmod
SetBuffer BackBuffer ()

While Not KeyHit(k_esc)

If MouseHit (1) Then dib1 = Not dib1

If dib1 = 0 Then ClsColor 255,0,0
If dib1 = 1 Then ClsColor 0,255,0

Flip:Cls

Wend:End

AMD2500XP, SB5.1, DX9, 512MB DDR333,
XPPro SP1a,ATI 9800SE 256bit 128MB,B3B, B+ immer die neue Version