PureBoard

Verfasst: **04.07.2005 00:09**

mach es so:

;  window
If OpenWindow(0,1,1,820,720,#PB_Window_SystemMenu|#PB_Window_ScreenCentered | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget,"Power-Explorer")

DisableDebugger


   If CreateGadgetList(WindowID())
   
     If LoadImage(3, "bilder\go.bmp")
      ButtonImageGadget(3,780,60,30,20,UseImage(3))
    EndIf
     
     If LoadImage(1, "bilder\Back4.bmp")
      ButtonImageGadget(1,10,10,75,40,UseImage(1))
    EndIf
     
     If LoadImage(4, "bilder\Forward4.bmp")
      ButtonImageGadget(4,90,10,75,40,UseImage(4))
    EndIf
       
     If LoadImage(5, "bilder\Stop.bmp")
      ButtonImageGadget(5,170,10,75,40,UseImage(5))
    EndIf
       
     If LoadImage(66, "bilder\Refresh2.bmp")
      ButtonImageGadget(66,250,10,75,40,UseImage(66))
    EndIf
   
    TextGadget(202,820,100,110,15,"Schliersberg")
   
     If LoadImage(6, "bilder\SBC.bmp")
      ButtonImageGadget(6,820,120,100,50,UseImage(6))
    EndIf
   
     If LoadImage(7, "bilder\SBWC.bmp")
      ButtonImageGadget(7,930,120,100,50,UseImage(7))
    EndIf

    TextGadget(14,820,175,110,15,"Downloads")

     If LoadImage(8, "bilder\DC.bmp")
      ButtonImageGadget(8,820,190,100,50,UseImage(8))
    EndIf
   
     If LoadImage(9, "bilder\MP3-MW.bmp")
      ButtonImageGadget(9,930,190,100,50,UseImage(9))
    EndIf
   
    TextGadget(15,820,250,110,15,"Suchmaschinen")
   
     If LoadImage(10, "bilder\google.bmp")
      ButtonImageGadget(10,820,265,100,50,UseImage(10))
    EndIf
   
     If LoadImage(11, "bilder\yahoo.bmp")
      ButtonImageGadget(11,930,265,100,50,UseImage(11))
    EndIf
   
    TextGadget(16,820,325,110,15,"Purebasic")
   
     If LoadImage(12, "bilder\PA.bmp")
      ButtonImageGadget(12,820,340,100,50,UseImage(12))
    EndIf
   
     If LoadImage(13, "bilder\PB.bmp")
      ButtonImageGadget(13,930,340,100,50,UseImage(13))
    EndIf
   
    TextGadget(201,820,400,110,15,"Wetter")
   
     If LoadImage(205, "bilder\SatBild.bmp")
      ButtonImageGadget(205,820,415,100,50,UseImage(205))
    EndIf
   
     If LoadImage(204, "bilder\Wetter.bmp")
      ButtonImageGadget(204,930,415,100,50,UseImage(204))
    EndIf
   
    TextGadget(E-mail,820,475,110,15,"E-mail")
     
     If LoadImage(999, "bilder\Freenet.bmp")
      ButtonImageGadget(1000,820,490,100,50,UseImage(999))
    EndIf
   
;     If LoadImage(mmm, "bilder\mmm.bmp")
;      ButtonImageGadget(mmm,930,480,100,50,UseImage(mmm))
;    EndIf
     
     StringGadget(2,10,60,760,20,"")
     
     ;-textgadget
     TextGadget(999,835,40,70,25,"")
     
     TextGadget(998,935,40,60,25,"")
     
     Frame3DGadget(5000,825,20,87,47,"Datum")
     
     Frame3DGadget(5001,925,20,77,47,"Zeit")
   


   EndIf

   If CreateMenu(0, WindowID())
     MenuTitle("Menu")
;     MenuItem(1, "")
;     MenuItem(2, "")     
;     MenuItem(3, "")
;     MenuItem(4, "")
;     MenuItem(5, "")
;     MenuItem(6, "")
;     MenuItem(7, "")
;     MenuItem(8, "")   
    MenuItem(9, "Leere Seite")
    MenuItem(10, "Seite Löschen")
    MenuBar()
    MenuItem(11, "Beenden")

   EndIf

   Repeat
     
     ;-aktualisieren
     If FormateDate("%hh : %ii : %ss",Date()) <> getgadgettext(998)
       SetGadgetText(999,FormatDate("%dd . %mm . %yyyy",Date()))   
     
       SetGadgetText(998,FormatDate("%hh : %ii : %ss",Date()))
     EndIf
   
   
     EventID = WindowEvent()     
     Select EventID     
       Case #PB_Event_Gadget
         Select EventGadgetID()
         
          Case 1 :
          SetGadgetState(0,#PB_Web_Back)

          Case 3 :
          Text$ = GetGadgetText(2)
          WebGadget(0,10,100,800,600,text$)
         
          Case 4 :
          SetGadgetState(0,#PB_Web_Forward)
         
          Case 5 :
          SetGadgetState(0,#PB_Web_Stop)
         
          Case 66 :
          SetGadgetState(0,#PB_Web_Refresh)
         
          Case 6 :
          WebGadget(0,10,100,800,600,"www.schliersbergalm.de/sbalm2003/home.html")
         
          Case 7 :
          WebGadget(0,10,100,800,600,"www.schliersbergalm.de/webcam/fullsize.jpg")
         
          Case 8 :
          WebGadget(0,10,100,800,600,"www.download.com")
         
          Case 10 :
          WebGadget(0,10,100,800,600,"www.google.de")
         
          Case 12 :
          WebGadget(0,10,100,800,600,"www.purearea.net")
         
          Case 13 :
          WebGadget(0,10,100,800,600,"www.pure-board.de")
         
          Case 11 :
          WebGadget(0,10,100,800,600,"www.yahoo.de")
         
          Case 9 :
          WebGadget(0,10,100,800,600,"www.mp3-meiaworld.com")

          Case 205:
          WebGadget(0,10,100,800,600,"http://de.weather.yahoo.com/w/wcom/eur_satintl_440_dmy_y.html")
         
          Case 204:
          WebGadget(0,10,100,800,600,"http://de.weather.yahoo.com/GMXX/GMXX0087/index_c.html")
         
          Case 1000:
          WebGadget(0,10,100,800,600,"www.freenet.de")


          EndSelect
         
         
         
         
         
       Case #PB_Event_Menu
         Select EventMenuID()
           
;           Case 1 : WebGadget(0,10,100,800,600,"")           
;           Case 2 : WebGadget(0,10,100,800,600,"")
;           Case 3 : WebGadget(0,10,100,800,600,"")
;           Case 4 : WebGadget(0,10,100,800,600,"")
;           Case 5 : WebGadget(0,10,100,800,600,"")
;           Case 6 : WebGadget(0,10,100,800,600,"")
;           Case 7 : WebGadget(0,10,100,800,600,"")
;           Case 8 : WebGadget(0,10,100,800,600,"")
           Case 9 : WebGadget(0,10,100,800,600,"about:blank")
          Case 10 : WebGadget(0,00,000,000,000,"")
          Case 11 : End

         EndSelect
     
     EndSelect
   Until EventID = #PB_Event_CloseWindow
 EndIf

Verfasst: **04.07.2005 00:15**

Danke

Verfasst: **04.07.2005 00:50**

@Badboy99

Der Source auf Deiner Homepage läßt sich mit den Farben kaum lesen und die Bilder sind auch sehr groß. Vielleicht solltest Du da noch was ändern

Verfasst: **04.07.2005 01:52**

wenn er zum downloaden wäre, wär es besser oder einfach als textdatei. dann ist er zwar nicht in farbe aber das macht ja dann der pb editor.
[Edit]BTW: verlink lieber auf purebasic.com das ist die officielle seite[/Edit]

Verfasst: **04.07.2005 20:39**

ist es jetzt besser???

Verfasst: **04.07.2005 23:56**

also noch was, mach einfach das

Code: Alles auswählen

<table style="background: #000;">
  <tbody>
    <tr>
      <td>

vor den quelltext und das

Code: Alles auswählen

      </td>
    </tr>
  </tbody>
</table>

nach den text dann ist der text in einem kasten ähnlich wie z.B. das:

in so einem kasten wäre es dann

Verfasst: **05.07.2005 00:17**

Badboy99 hat geschrieben:ist es jetzt besser???

Also grün auf grün ist für mich sehr schwer lesbar (man wird ja alt

) Vielleicht machste es so: http://www.purebasic.ts-soft-online.de/dl/explorer.html

Verfasst: **05.07.2005 21:09**

Ein kleiner Tipp: verwende das PNG-Format (*.png) oder das JPEG-Format (*.jpg) für die Bilder anstatt des BMP-Formats. Und benutze bitte nicht Paint zum Vergrössern/Verkleinern deiner Bilder, sondern nimm IrfanView. Der hat nen Haufen Algorythmen zur Auswahl, die das 100 Mal besser als MS Paint erledigen. ICh nehm immer den Lancoz-Filter...

Was das Posten deiner Bilder angeht:
1.) Lade das Bild auf deinen Webspace hoch. (Nur als PNG oder JPG, NIEMALS als BMP!!!)
2.) Öffne die Bilddatei AUF DEINEM WEBSPACE im Webbrowser
3.) Notiere dir die Adresse (URL) des Bildes
4.) Poste einfach die Adresse, die du dir eben notiert hast, anstatt das Bild umständlich über BB-Code einzubinden. Denn nicht jeder, der deinen Thread liest, wil zangsläufig auch deine Bilder sehen. Ausserdem sparst du so raffic bei deinem Webspace. Und wenn du zuviel Trafic verursachst, dann kann es sein, dass dein Hoster dich samt deinen Dateien einfach von seinem Server löscht.

cya
Pascal