Seite 2 von 3
Verfasst: 23.10.2006 20:56
von Kiffi
> naja das ist eh keine richtige webseite sondern eher nurn paar texte und
> ne textbox plus link
dann verstehe ich nicht, was das mit HTML zu tun haben soll.
> Kommt in die Sig
Wann?
Grüße ... Kiffi
Verfasst: 23.10.2006 20:57
von Bogy
Kiffi hat geschrieben:> naja das ist eh keine richtige webseite sondern eher nurn paar texte und
> ne textbox plus link
dann verstehe ich nicht, was das mit HTML zu tun haben soll.
> Kommt in die Sig
Wann?
Grüße ... Kiffi
signatur wurde am anfang nicht angehängt sry
Wenn du mir ne alternative gibt die net kompli ist würd ichs auch gern machen
Verfasst: 23.10.2006 21:02
von Kaeru Gaman
unter "info-datei" kann ich mir nich so richtig was vorstellen...
normalerweise solltest du bei ner ausgabe in nem fenster auch nen Close-Button haben,
und auf den solltest du reagieren.
Code: Alles auswählen
OpenWindow(0,0,0,200,100,"INFO")
Repeat
EVID = WaitWindowEvent()
Until EVID = #PB_Event_CloseWindow
reagiert auf Button
und auf ALT-F4
Code: Alles auswählen
OpenWindow(0,0,0,200,100,"INFO",#PB_Window_BorderLess)
StartDrawing(WindowOutput(0))
DrawText(10,10,"INFO")
StopDrawing()
Repeat
EVID = WaitWindowEvent()
Until EVID = #PB_Event_CloseWindow
hat keinen X-Button, reagiert nur auf ALT-F4, und auch nur, wenn es den fokus hat.
PS:
auch ALT-F4 ist ein #PB_Event_CloseWindow
ohne event-schleife kein window.
Verfasst: 23.10.2006 21:02
von Kiffi
Danke für die Signatur!
> Wenn du mir ne alternative gibt die net kompli ist würd ichs auch gern
> machen
wie können wir Dir eine Alternative empfehlen, wenn wir nicht wissen, was
Du überhaupt machen willst? (siehe auch das Posting von Kaeru Gaman)
Soll das Programm in einem Fenster laufen? In einer Konsole? Oder wie?
Grüße ... Kiffi
Verfasst: 23.10.2006 21:03
von KeyPusher
hier zwei kleine "programme" die man mit Alt-F4 beenden kann.
für console:
Code: Alles auswählen
OpenConsole()
Repeat
Delay(10)
Inkey()
Until RawKey()=115
CloseConsole()
End
für fenster:
Code: Alles auswählen
If OpenWindow(0, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
AddKeyboardShortcut(0,#PB_Shortcut_F4|#PB_Shortcut_Alt, 1)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
If EventMenu()=1
Quit=1
EndIf
Until Quit = 1
EndIf
CloseWindow(0)
End
steht aber alles irgendwie in der hilfe. da hab ich's auch her - wenn auch nicht am stück

Verfasst: 23.10.2006 21:04
von Bogy
Standart fenster
Ist ja kein "programm" sagt nur nen Paar zeilen die man auch makieren kann oder ne Textbox das wars mit evt einen Link
Verfasst: 23.10.2006 21:05
von Kaeru Gaman
boah wird hier hardcore schnell gepostet...
PS: bitte auch meinen code
4(!) postings weiter oben beachten...

Verfasst: 23.10.2006 21:08
von Bogy
hab mal
Code: Alles auswählen
If OpenWindow(0, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
AddKeyboardShortcut(0,#PB_Shortcut_F4|#PB_Shortcut_Alt, 1)
text$+"<html>"+Chr(13)+Chr(10)
text$+"<head>"+Chr(13)+Chr(10)
text$+"</head>"+Chr(13)+Chr(10)
text$+"<body>"+Chr(13)+Chr(10)
text$+""+Chr(13)+Chr(10)
text$+"<h1>test</h1>"+Chr(13)+Chr(10)
text$+"<br>"+Chr(13)+Chr(10)
text$+"bla"+Chr(13)+Chr(10)
text$+"</body>"+Chr(13)+Chr(10)
text$+"</html>"+Chr(13)+Chr(10)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
If EventMenu()=1
Quit=1
EndIf
Until Quit = 1
EndIf
CloseWindow(0)
End
probiert wurde aber kein text angezeigt
Verfasst: 23.10.2006 21:11
von Kaeru Gaman
bitte mal die codes vorher auch lesen.
auf den shortcut kannst du verzichten.
wie ich sagte, auch ALT-F4 ist ein normales Close.
dein text wird nicht angezeigt, weil du nichts anzeigst.
du müsstest zumindest ein textgadget erstellen, dem du den text$ übergibst.
Verfasst: 23.10.2006 21:12
von Bogy
Kaeru Gaman hat geschrieben:bitte mal die codes vorher auch lesen.
auf den shortcut kannst du verzichten.
wie ich sagte, auch ALT-F4 ist ein normales Close.
dein text wird nicht angezeigt, weil du nichts anzeigst.
du müsstest zumindest ein textgadget erstellen, dem du den text$ übergibst.
was bedeutet das auf n00bisch?
Code example