2 Probleme mit WebGadget

[Sosti]

Hallo Leute!

Ich sollte eine CD erstellen mit der Demo-Version einer Homepage (alles HTML), dazu möchte ich mit PB einfaches Fenster mit Webgadget erstellen.

Nun stellen sich mir 2 Probleme:

1. Das Fenster sollte man maximieren können, doch sollten sich da auch die Proportionen des Gadgets mitverändern, und hier streikt es ;o(

2. die Exe liegt im Root-Verzeichnis der CD, also versuche ich als Pfad "FILE://demo/index.de.html", doch da stürzt es mir immer ab. Muss ich also immer den kompletten Pfad angeben? Wenn ja, wie ermittle ich diesen denn? nicht jeder hat sein CD-Rom-Laufwerk als D: laufen.

lg, Jan

[ts-soft]

Hallo Leute!

Ich sollte eine CD erstellen mit der Demo-Version einer Homepage (alles HTML), dazu möchte ich mit PB einfaches Fenster mit Webgadget erstellen.

Nun stellen sich mir 2 Probleme:

1. Das Fenster sollte man maximieren können, doch sollten sich da auch die Proportionen des Gadgets mitverändern, und hier streikt es ;o(

In der Ereignisschleife auf das #PB_Event_SizeWindow reagieren und anhand von WindowWidth() und WindowHeight() das WebGadget resizen

2. die Exe liegt im Root-Verzeichnis der CD, also versuche ich als Pfad "FILE://demo/index.de.html", doch da stürzt es mir immer ab. Muss ich also immer den kompletten Pfad angeben? Wenn ja, wie ermittle ich diesen denn? nicht jeder hat sein CD-Rom-Laufwerk als D: laufen.

lg, Jan

Mit folgendem Code ermittelste den Absoluten Pfad zu deiner Exe:

Code: Alles auswählen

Procedure.s GetExePath()
  Prg.s = Space(#MAX_PATH)
  GetModuleFileName_(GetModuleHandle_(0), @Prg, #MAX_PATH)
  Prg = GetPathPart(Prg)
  If (FindString(prg,"\PureBasic\Compilers", 1))
    Prg.s = Space(#MAX_PATH)
    GetCurrentDirectory_(#MAX_PATH,@Prg)
  EndIf
  If Right(Prg, 1) <> "" : Prg + "" : EndIf
  ProcedureReturn Prg
EndProcedure