Die Suche ergab 60 Treffer
- 11.12.2010 17:40
- Forum: Grafik & Sound - Programmierung
- Thema: Im Raum: Quadrat verdeckt teilweise Quadrat?
- Antworten: 17
- Zugriffe: 2279
Re: Im Raum: Quadrat verdeckt teilweise Quadrat?
die schwarzen flächen in einem zauberwürfel liegen doch immer im innern, egal wie der würfel verdreht ist und schauen immer höchstens teilweise nach draußen. also erst die schwarzen flächen zeichnen, dann den rest
- 29.11.2010 15:36
- Forum: Anfänger
- Thema: Gadget auf ImageGadget verschwindet
- Antworten: 8
- Zugriffe: 3014
Re: Gadget auf ImageGadget verschwindet
das wäre keine lösung?
window = OpenWindow(#PB_Any,200,100,400,230,"Test",#PB_Window_SystemMenu)
testGad = TrackBarGadget(#PB_Any, 0, 0, 400, 30, 0,100)
image = CreateImage(#PB_Any,400,200)
imageGad = ImageGadget(#PB_Any,0,30,400,200,ImageID(image))
Repeat
event = WaitWindowEvent()
If event ...
window = OpenWindow(#PB_Any,200,100,400,230,"Test",#PB_Window_SystemMenu)
testGad = TrackBarGadget(#PB_Any, 0, 0, 400, 30, 0,100)
image = CreateImage(#PB_Any,400,200)
imageGad = ImageGadget(#PB_Any,0,30,400,200,ImageID(image))
Repeat
event = WaitWindowEvent()
If event ...
- 25.11.2010 22:28
- Forum: Anfänger
- Thema: selbst erstelltes Image mit transparentem Hintergrund
- Antworten: 8
- Zugriffe: 2342
Re: selbst erstelltes Image mit transparentem Hintergrund
ein kleines beispiel, um mal mit rumzuspielen:
If CreateImage(1,700,500,32|#PB_Image_Transparent)
StartDrawing(ImageOutput(1))
DrawingMode(#PB_2DDrawing_AlphaBlend)
For i=0 To 70
For j=0 To 50
Box(i*10,j*10,10,10,RGBA(i*3,j*5,0,2*(i+j)))
Next
Next
StopDrawing()
EndIf
OpenWindow(0,0,0,800 ...
If CreateImage(1,700,500,32|#PB_Image_Transparent)
StartDrawing(ImageOutput(1))
DrawingMode(#PB_2DDrawing_AlphaBlend)
For i=0 To 70
For j=0 To 50
Box(i*10,j*10,10,10,RGBA(i*3,j*5,0,2*(i+j)))
Next
Next
StopDrawing()
EndIf
OpenWindow(0,0,0,800 ...
- 25.11.2010 20:10
- Forum: Anfänger
- Thema: SetWindowColor
- Antworten: 3
- Zugriffe: 984
SetWindowColor
bei mir verschwindet das rechteck, wenn ich die fensterfarbe ändere. warum?
OpenWindow(0,0,0,800,600,"test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
;SetWindowColor(0, $00FF00);<---------------kommentar entfernen
StartDrawing(WindowOutput(0))
Box(100,100,600,400,$FF00FF)
StopDrawing ...
OpenWindow(0,0,0,800,600,"test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
;SetWindowColor(0, $00FF00);<---------------kommentar entfernen
StartDrawing(WindowOutput(0))
Box(100,100,600,400,$FF00FF)
StopDrawing ...
- 23.11.2010 22:14
- Forum: Anfänger
- Thema: Wie rechnet man mit Purebasic richtig?
- Antworten: 5
- Zugriffe: 1169
Re: Wie rechnet man mit Purebasic richtig?
ich bin jetzt vielleicht etwas spät, aber...
betrag.f = 163,49
Int(betrag)=-163,--
-------------------------
differenz 0,49
das ist offensichtlich NICHT größer als 0,49
also wird der else zweig der abfrage genommen. und da steht: Debug "> 50 Cent"
nicht weil pb so rechnet, sondern du :wink:
try ...
betrag.f = 163,49
Int(betrag)=-163,--
-------------------------
differenz 0,49
das ist offensichtlich NICHT größer als 0,49
also wird der else zweig der abfrage genommen. und da steht: Debug "> 50 Cent"
nicht weil pb so rechnet, sondern du :wink:
try ...
- 23.11.2010 12:32
- Forum: Allgemein
- Thema: LostFocus (Window)
- Antworten: 1
- Zugriffe: 492
LostFocus (Window)
bei gadgets gibts das event: #PB_EventType_LostFocus.
bei einem window habe ich nur #PB_Event_ActivateWindow gefunden.
aber wie erkenne ich, wenn das fenster den fokus verliert?
bei einem window habe ich nur #PB_Event_ActivateWindow gefunden.
aber wie erkenne ich, wenn das fenster den fokus verliert?
- 13.11.2010 12:24
- Forum: Anfänger
- Thema: ScreenOutput()
- Antworten: 3
- Zugriffe: 1006
Re: ScreenOutput()
StartDrawing() ist nicht nötig. StopDrawing() reicht?
InitSprite()
#window=1
If OpenWindow(#window, 0,0,800,600, "TestWindowedScreen",#PB_Window_ScreenCentered)
If OpenWindowedScreen(WindowID(#window),0,0,WindowWidth(#window),WindowHeight(#window),1,0,0)
OutputID1=ScreenOutput():Debug(Str ...
InitSprite()
#window=1
If OpenWindow(#window, 0,0,800,600, "TestWindowedScreen",#PB_Window_ScreenCentered)
If OpenWindowedScreen(WindowID(#window),0,0,WindowWidth(#window),WindowHeight(#window),1,0,0)
OutputID1=ScreenOutput():Debug(Str ...
- 13.11.2010 11:59
- Forum: Anfänger
- Thema: ScreenOutput()
- Antworten: 3
- Zugriffe: 1006
ScreenOutput()
das Kommando "ScreenOutput()" ändert bei mehrmaligem Aufruf seinen Wert:
InitSprite()
#window=1
If OpenWindow(#window, 0,0,800,600, "TestWindowedScreen",#PB_Window_ScreenCentered)
If OpenWindowedScreen(WindowID(#window),0,0,WindowWidth(#window),WindowHeight(#window),1,0,0)
OutputID1 ...
InitSprite()
#window=1
If OpenWindow(#window, 0,0,800,600, "TestWindowedScreen",#PB_Window_ScreenCentered)
If OpenWindowedScreen(WindowID(#window),0,0,WindowWidth(#window),WindowHeight(#window),1,0,0)
OutputID1 ...
- 12.11.2010 21:32
- Forum: Grafik & Sound - Programmierung
- Thema: flipbuffers()
- Antworten: 7
- Zugriffe: 1641
- 12.11.2010 15:49
- Forum: Grafik & Sound - Programmierung
- Thema: flipbuffers()
- Antworten: 7
- Zugriffe: 1641
Re: flipbuffers()
@PureLust
nice. aber sobald ich den Affengriff mache, ist das Fenster weis
@Grillmeister
das klappt mit der Meldung "windowed screen neu gestartet"
nice. aber sobald ich den Affengriff mache, ist das Fenster weis
@Grillmeister
das klappt mit der Meldung "windowed screen neu gestartet"