PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

openwindow() öffnet sich net,debugger meldet nix

https://www.purebasic.fr/german/viewtopic.php?t=1539

Seite 1 von 3

openwindow() öffnet sich net,debugger meldet nix

Verfasst: 06.01.2005 23:07
von captain third
hey,morgn alle mann,ich hab mir mal gedacht ich schreib ein html editor,naja der is net fertig,aber ich wollte ihn mir mal anguggn,irgendwo mittn drin....naja mein problem ist so,wenn ich starte,startet alles,also debugger und das fenster #window_0 jetzt kommts aber,in der taskleiste sieht man zwar dass es offen ist,aber das fenster sieht man net aufm desktop...ich geb euch mal den script,vlt vasteht ihr was ich meine

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration

Enumeration
  #Button_0
  #String_0
  #Panel_0
  #Editor_0
  #Button_1
  #Button_3
  #Button_4
  #Button_5
  #Button_6
  #Button_7
  #Button_8
  #Button_9
  #Button_10
  #Button_11
  #Button_12
  #Button_13
  #Button_14
  #Button_16
  #Button_17
  #Button_18
  #Button_19
  #Button_20
  #Button_21
  #Button_22
  #Button_23
  #Button_24
  #Button_25
  #Button_26
  #Button_27
  #Button_28
  #Button_29
  #Button_30
  #Button_31
  #Button_32
EndEnumeration

Enumeration
  #StatusBar_0
EndEnumeration

  If OpenWindow(#Window_0, 3000, 3000, 0, 0,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Html Editor written by Third")
    If CreateStatusBar(#StatusBar_0, WindowID())
    EndIf
    
    If CreateGadgetList(WindowID())
      ButtonGadget(#Button_0, 10, 10, 160, 30, "Html Erstellen")
      StringGadget(#String_0, 10, 50, 200, 20, "Dateiname")
      EditorGadget(#Editor_0, 10, 110, 650, 480)
      SetGadgetText(#Editor_0, ";Willkommen in meinem HTML-Script-Editor...Power,written and copyright by Third")
      ButtonGadget(#Button_32, 10, 80, 170, 20, "Html Datei Öffnen")
      
      ;- Panel0
      PanelGadget(#Panel_0, 230, 10, 430, 90)
      AddGadgetItem(#Panel_0, -1, "#HTML 1")
      ButtonGadget(#Button_1, 8, 8, 100, 20, "Textarea")
      ButtonGadget(#Button_3, 8, 28, 100, 20, "Bild einfügen")
      ButtonGadget(#Button_4, 108, 8, 100, 20, "Hyper-Link")
      ButtonGadget(#Button_5, 108, 28, 100, 20, "E-mail Link")
      ButtonGadget(#Button_6, 208, 8, 100, 20, "Hintergrund-Bild")
      ButtonGadget(#Button_7, 208, 28, 100, 20, "Zeilenumbruch")
      ButtonGadget(#Button_8, 308, 8, 100, 20, "Text hochsetzen")
      ButtonGadget(#Button_9, 308, 28, 100, 20, "text tiefsetzen")
      AddGadgetItem(#Panel_0, -1, "#HTML 2")
      ButtonGadget(#Button_10, 8, 8, 100, 20, "Text zentriert")
      ButtonGadget(#Button_11, 8, 28, 100, 20, "text rechtsbündig")
      ButtonGadget(#Button_12, 108, 8, 100, 20, "Tabelle")
      ButtonGadget(#Button_13, 108, 28, 100, 20, "Fixierter Hintergrund")
      ButtonGadget(#Button_14, 208, 8, 100, 20, "Hinweis Fenster")
      AddGadgetItem(#Panel_0, -1, "#Java 1")
      ButtonGadget(#Button_16, 8, 8, 100, 20, "Mausverfolger")
      ButtonGadget(#Button_17, 8, 28, 100, 20, "Maus-Uhr")
      ButtonGadget(#Button_18, 108, 8, 100, 20, "Statustext 1")
      GadgetToolTip(#Button_18, "Blinkender Statuszeilen-Text")
      ButtonGadget(#Button_19, 108, 28, 100, 20, "Statustext 2")
      GadgetToolTip(#Button_19, "Schreibmaschinen art schreibt es ind den statuszeilen")
      ButtonGadget(#Button_20, 208, 8, 100, 20, "TitelText1")
      GadgetToolTip(#Button_20, "Schreibt einen text als schreibmaschine in den Titel")
      ButtonGadget(#Button_21, 208, 28, 100, 20, "Scrollbarfervärbung")
      ButtonGadget(#Button_22, 308, 8, 100, 20, "Matrix-Effekt")
      ButtonGadget(#Button_23, 308, 28, 100, 20, "User-Begrüßung")
      AddGadgetItem(#Panel_0, -1, "CSS/Stylesheets")
      ButtonGadget(#Button_24, 8, 8, 100, 20, "Glühender Text")
      ButtonGadget(#Button_25, 8, 28, 100, 20, "Wellentext")
      ButtonGadget(#Button_26, 108, 8, 100, 20, "Textschatten")
      ButtonGadget(#Button_27, 108, 28, 100, 20, "Bild transparentiern")
      ButtonGadget(#Button_28, 208, 8, 100, 20, "Bild verwischen")
      ButtonGadget(#Button_29, 208, 28, 100, 20, "Bildwellen")
      ButtonGadget(#Button_30, 308, 8, 100, 20, "Bildschatten")
      ButtonGadget(#Button_31, 308, 28, 100, 20, "Bild-glühen")
      CloseGadgetList()
      
;-Mainprogramm       
      Repeat
      
       EventID = WaitWindowEvent() 
     If EventID = #PB_Event_CloseWindow 
       Quit = 1 
     EndIf 
     If EventID = #PB_Event_Gadget 
      If EventGadgetID()=#Button_1 
       SetGadgetText(#Editor_0,"<Textarea>Hier kommt der Text rein</textarea>")
      EndIf 
      If EventGadgetID()=#Button_3
       SetGadgetText(#Editor_0,"<img src=  url des bildes   alt=  info    >")
      EndIf
      If eventgadgetid()=#Button_4
       SetGadgetText(#Editor_0,"<a href=url zum link target=_blank title=Linkinfo>Knuddels</a>")
      EndIf
      If EventGadgetID()=#Button_5
       SetGadgetText(#Editor_0,"<a href=emailadresse>Text</a>")
      EndIf
      If EventGadgetID()=#Button_6
       SetGadgetText(#Editor_0,"<body background=URL-des-Bildes>")
      EndIf
      If  EventGadgetID()=#Button_7
       SetGadgetText(#Editor_0,"<br>")
      EndIf
      If EventGadgetID()=#Button_8
       SetGadgetText(#Editor_0,"<sup>1234567890</sup>")
      EndIf
      If EventGadgetID()=#Button_9
       SetGadgetText(#Editor_0,"<sub>1234567890</sub>")
      EndIf
      If EventGadgetID()=#Button_10
       SetGadgetText(#Editor_0,"<div align=center>...Absatz mittig...</div>")
      EndIf
      If EventGadgetID()=#Button_11
       SetGadgetText(#Editor_0,"<div align=right>...Absatz rechtsbündig...</div>")
      EndIf
      If EventGadgetID()=#Button_12
       SetGadgetText(#Editor_0,"<table border=anführungsstriche zahl anführungsstriche>")
       SetGadgetText(#Editor_0,"<tr>")
       SetGadgetText(#Editor_0,"<td>Test1</td>")
       SetGadgetText(#Editor_0,"<td>Test2</td>")
       SetGadgetText(#Editor_0,"</tr>")
       SetGadgetText(#Editor_0,"<tr>")
       SetGadgetText(#Editor_0,"<td>Test2</td>")
       SetGadgetText(#Editor_0,"<td>Test3</td>")
       SetGadgetText(#Editor_0,"</tr> ")
       SetGadgetText(#Editor_0,"</table>")
      EndIf
    endif
    Until quit=1
   EndIf
  EndIf

Verfasst: 06.01.2005 23:13
von GPI
Grob geschätzt: Du bist übermüdet

Code: Alles auswählen

OpenWindow(#Window_0, 3000, 3000, 0, 0, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Html Editor written by Third")
Sieh dir mal die Parameter an.

Verfasst: 06.01.2005 23:14
von ts-soft
Vielleicht solltest Du Deine Bildschirmauflösung ändern. Z.B. 4098 x 3072

Dann wirst Dein Fenster wohl sehen :lol:

Verfasst: 06.01.2005 23:15
von Franky
Frage, was für einen Bildschirm hast du, dass ein Fenster der Größe 0,0 bei 3000, 3000 angezeigt wird?

Zu deutsch:

Code: Alles auswählen

  If OpenWindow(#Window_0, 0, 0, 3000,3000,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Html Editor written by Franky :P")
statt

Code: Alles auswählen

  If OpenWindow(#Window_0, 3000,3000, 0, 0,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Html Editor written by Third")

:wink:


Edit: Mist, nur dritter :twisted: <)

Verfasst: 06.01.2005 23:18
von captain third
achja,da merkt man wieder mein schlafmangel :mrgreen: ich mach mir jetzt ein kaffee :mrgreen: :mrgreen: danke....in zukunft pass ich auf :mrgreen:

Verfasst: 06.01.2005 23:30
von Kiffi

Code: Alles auswählen

Enumeration
  #Button_0
  #String_0
  #Panel_0
  #Editor_0
  #Button_1
  #Button_3
  #Button_4
  #Button_5
  #Button_6
  #Button_7
  #Button_8
  #Button_9 
  [...]
> ich mach mir jetzt ein kaffee

nachdem Du den Kaffee getrunken hast, würde ich Dir vorschlagen, Deine
Buttons mit aussagekräftigen Namen zu versehen, denn später wirst Du
Schwierigkeiten haben, sie auseinanderzuhalten.

Grüße ... Kiffi

Verfasst: 06.01.2005 23:31
von captain third
nönö....ich komme damit schon sehr gut klar....macht die gewöhnung :mrgreen: *pocket coffee ess*

Verfasst: 06.01.2005 23:39
von captain third
ach eine frage hät ich noch....passt zwar nicht zu dem thema aber egal...also die frage:wenn man jetzt auf einen button drückt z.b. #Button_3
kommt der setgagdetstring(sowiso) und schreibt alles in die erste zeile...kann man irgendwie machen das dann alles da hinkommt wo auch der blinkender text cursor ist im #Editor_0 ???

Verfasst: 06.01.2005 23:39
von Franky
Ich kann mich Kiffi nur anschließen


Mein Prog hat momentan etwa 950 Gadgets.

#button_563 hilft da net viel ;)

und wenn du´s dir bei kleinen sachen angewöhnst, fällt´s dir später net so schwer

Verfasst: 06.01.2005 23:41
von Franky
Sendmessage() mit #em_replacesel
Alle Zeiten sind UTC+02:00
Seite 1 von 3

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de