Großes Fenster

[Gerhard Putschalka]

Hallo Thomas, hallo Frank,

vorerst vielen Dank. Jetzt habe ich einiges zum Probieren.

Wenn ich eine brauchbare Lösung gefunden habe melde ich mich wieder.

Gerhard.

[Gerhard Putschalka]

Hallo Thomas,

ich denke Deine WEB-Version ist die einfachste und erscheint mir als die braubarste Lösung.
Bist Du einverstanden dass ich sie in meiner BidlShow verwende und auf meine H.P. stelle?
Auch vielen Dank an Frank.

Gruß
Gerhard.

[THFR]

Hallo Gerhard,
das kannst du.
Ich hatte Weiteres versucht (html style) und bin aber mit dem Bildwechsel nicht zufrieden.
Vielleicht sollte man es mit eingebautem JS machen.
Du kennst dich da ja auch aus oder hast eine bessere Lösung gefunden.

Gruß Thomas

' Arbeitspfad im Interpretermodus , in der *. exe dann $ProgDir
Var old_file$ = GetDir$("@")'$ProgDir'

var text1$="style='font-family: Arial; font-size:14px; font-weight:bold; color:#0000A0;'"
var text2$="style='font-family: Arial; font-size:12px; font-weight:normal; color:#0000A0;'"


WindowStyle 16 + 64
Window %maxX,%maxY

UseFont "Arial",14,0,0,0,0
SetDialogFont 1

var SMenue&=@Create("Window",%hwnd, "", 0, 0, 0, 0)
var box&=@Create("ChoiceBox", SMenue&,0, 1, 1,98 , 90)
ClearList
AddFiles "*.jpg"
@MoveListToHandle(box&)
var Ed17$=@GetString$(box&,0)
SendMessage(box&,$014D,-1,addr(Ed17$))
SetWindowPos SMenue&=(%maxX-120),0 - 100,24;-1

AddHotKey 7001, 13, 0

Declare a$, h&

Html_Fenster Ed17$

While 0=0
waitInput

case MenuItem(7001) : Break
If GetFocus(box&)
  waitInput
  If @GetString$(box&,@GetCurSel(box&))<>ed17$
    ed17$= @GetString$(box&,@GetCurSel(box&))
    Html_Fenster Ed17$
  EndIf
  SetFocus(%hwnd)
EndIf
EndWhile
DestroyWindow(h&)
end

Proc Html_Fenster
  DestroyWindow(h&)
  a$="mshtml: <div "+text1$+"><b>Bild "+Ed17$+"</b><font "
  a$=a$+text2$+">....neu wählen oder beenden mit Enter</Font></div><img src='"
  a$=a$+old_file$+"\"+ed17$+"'/>"
  h& = @create("htmlWin",%hWnd,a$,4,0,0,%maxX-4,%maxY-4)
EndProc

[Gerhard Putschalka]

Hallo Thomas,

mit HTML bin ich nicht sehr vertraut.

Meine neue Version der BildShow ist jetzt auf meiner HP. Vielleicht kannst Du Teile davon brauchen.

Gruß
Gerhard.