Bild oder Zeichnung

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
MASH
Beiträge: 130
Registriert: 22.05.2005 17:43

Bild oder Zeichnung

Beitrag von MASH »

Ich habe mal eine frage was besser ist was die systemresourcen angeht, Speziel auf das bild und die Zeichnung.

Code: Alles auswählen


ExamineDesktops()
Procedure Open_Window_0()   ;Hintergrundfenster
  If OpenWindow(#Window_0,0,0,Desk_Breit,Desk_Hoch,#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered,"Hintergrund")
    If CreateGadgetList(WindowID())
           
      If CreateImage(#Image_1,Desk_Breit,Desk_Hoch)
        If StartDrawing(ImageOutput())
          e = 0
          For k=0 To 255
            Box(0,e,Desk_Breit,20,RGB(0,0,255-k)) ;Hintergrundfärbung
            e + 3
          Next k
          StopDrawing()
        EndIf
      EndIf      
      ImageGadget(#Image_1,0,0,0,0,ImageID())     
    EndIf
  EndIf
EndProcedure
oder

Code: Alles auswählen

DataSection
Image0:
  IncludeBinary "Bild4.png"
EndDataSection

Enumeration
  #Window_0
EndEnumeration
Enumeration
  #Image_0
  #Image_1
EndEnumeration

Global Image0,Desk_Hoch,Desk_Breit

UsePNGImageDecoder()
Image0 = CatchImage(0,?Image0)

ExamineDesktops()

Procedure Open_Window_0()   ;Hintergrundfenster
  If OpenWindow(#Window_0,0,0,Desk_Breit,Desk_Hoch,#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered,"Hintergrund")
    If CreateGadgetList(WindowID())
      ResizeImage(0,Desk_Breit,Desk_Hoch,#PB_Image_Smooth)
      ImageGadget(#Image_1,0,0,0,0,UseImage(0)) 
    EndIf
  EndIf
EndProcedure

wobei das bild im zweiten beispiel ein PNG - ZIP 102x73x24 (16Mil) 0.36 KB (365 Bytes) ist.
Danke Mark S.
Benutzeravatar
Batze
Beiträge: 1492
Registriert: 03.06.2005 21:58
Wohnort: Berlin
Kontaktdaten:

Beitrag von Batze »

Zeichnen ist eigentlich immer kleiner. :allright:
Hier sind meine Codes (aber die Seite geht gerade nicht):
http://www.basicpure.de.vu
Benutzeravatar
MASH
Beiträge: 130
Registriert: 22.05.2005 17:43

Beitrag von MASH »

Ich habe noch eine frage zum Drawing wenn ich etwas zeichne und es befindet sich dort ein Gadget dann überlappt die zeichnung das gadget es soll aber umgekehrt sein, so dass das Gadget sich auf der Zeichnung befindet. Muss ich dan den bildschirm refreschen?

EDIT: Hat sich erledigt man musste es zuletzt zeichnen und ich dachte als erstes. :allright:

EDIT2: Geht doch nicht ich habe mir nur was eingebildet.
Danke Mark S.
Antworten