Hilfe_Fenster

[Fanpost]

Nur zur Info, ich bin 65 und erst vor kurzem mit PureBasic angefangen - wegen Tollhaus und Kinder.................

[walbus]

[BI2]

@Fanpost: Ich weiß nicht ob Du DAS schon heruntergeladen hast, wenn nicht wäre das eine Empfehlung für den Anfang.

Gruß, BI2

[Fanpost]

@walbus: habe ich auch nicht auf mich bezogen

@BI2: danke für den Link

Ich werde mich morgen ausführlich mit dem "Hilfe" Fenster beschäftigen.
Danke für alle Infos.

[andi256]

Code: Alles auswählen

#hilfefile = "c:\code\hilfe.txt"  ;pfad auf zu lesendes Hilfe File

Enumeration ;windows
 #windowmain 
 #windowhilfe 
EndEnumeration

Enumeration ;gadgets
 ;main
  #buttonhilfe
 ;hilfe
  #Editor
EndEnumeration

#file = 0

Procedure baue_hauptfenster()
 OpenWindow(#windowmain,500,500,200,60,"Main")
 ButtonGadget(#buttonhilfe,10,10,80,20,"Hilfe")
EndProcedure 

Procedure baue_hilfefenster()
 OpenWindow(#windowhilfe,550,550,200,100,"Hilfe")
 EditorGadget(#editor,10,10,180,80)
 
 ;entweder direkt 
 ;AddGadgetItem(#editor,-1,"Hilfe")
 ;AddGadgetItem(#editor,-1,"-----")
 ;AddGadgetItem(#editor,-1,"hier der Text")
 
 ;oder über File
 If ReadFile(#file,#hilfefile)
  While Eof(#file) = 0 
   AddGadgetItem(#editor,-1,ReadString(#file))
  Wend
   CloseFile(#file) 
  Else
  MessageRequester("Information","Konnte Hilfefile nicht finden!")
 EndIf
EndProcedure 

baue_hauptfenster()
baue_hilfefenster() 
HideWindow(#windowhilfe,#True)   ; verstecke Hilfefenster

Repeat
  Select WindowEvent()
    Case 0 
      Delay(1)
    Case #PB_Event_CloseWindow
     If EventWindow() = #Windowhilfe
      HideWindow(#windowhilfe,#True) ; verstecke Hilfefenster
     Else
      quit = #True
     EndIf    
    Case #PB_Event_Gadget  
      Select EventGadget()
        Case #buttonhilfe
         HideWindow(#windowhilfe,#False) ; aktiviere Hilfefenster
      EndSelect
  EndSelect 
Until quit = #True

mfg

[Fanpost]

@andi256 Danke für den Code

Bei den anderen habe ich mich ja schon bedankt, nur aus zeitlichen Gründen konnte ich mich noch nicht
ausführlich damit beschäftigen.