Problem mit Area-Scroll-Surface

[Detlef Jagolski]

Hallo!

Wenn ich hwnd maximiere und CeateArea in der Größe anpasse, verschwindet die untere Scrollbar oder erst dann wenn ich den Scrollbar Anklicke.
Hat einer eine Idee was da falsch läuft?

$P+
Set("ErrorLevel",0)
 
' *** GlobalStatements der Form
$H WINDOWS.PH
$H MESSAGES.PH
$H STRUCTS.PH
 
$I C:\PROGRAMME\PRFELLOW\LIB\AN_AREA.INC = Fram1_
' *** GlobalStatements der Form-Controls
 
Proc OnApplicationExit
SubClass %hwnd, 0
SubClass Frame1&, 0
EndProc
 
Proc OnApplicationInit
EndProc
 
OnApplicationInit
 
Declare appexit%
SubClassProc 
Fram1_SubclassArea
  If SubClassMessage(%hwnd, ~WM_SIZE)
     SetWindowPos Frame1& = 0,0-Width(%hwnd),Height(%hwnd);0
   EndIf
EndProc
 
Set("TrueColor",1)
WindowStyle $003F
WindowTitle "DesignForm"
Window %maxX + 5,114 - 622,564
Cls ~GetSysColor(15)
~SetClassLong(%hwnd, ~GCL_STYLE, (~GetClassLong(%hwnd, ~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
var Frame1& = Fram1_CreateArea(800,800,$20000,$50300000,0,0,Width(%hwnd),Height(%hwnd),%hwnd)
var Button1&=Create("Button",Frame1&,"Aus",120,20,75,25)
SubClass %hwnd, 1
SubClass Frame1&, 1
SetWindowPos %hwnd = 207,114 - 622,564;0
WhileNot appexit%
 WaitInput
 If %key = 2
  appexit%=1
 
 ElseIf %key = 4
  ' Fenstergröße
 ElseIf %key = 5
  ' Hilfe
 EndIf
Wend
OnApplicationExit

Area / Scroll / Surface / Flächen - Control

Gruss

Detlef

[Frabbing]

Ist noch nicht 100%ig perfekt. Die Ausmasse der Scrollbalken werden beim Ziehen des Hauptfensters noch nicht neu angepasst.
Der "Bug" ist aber weg, du hast beim Größenverändern deines Fensters nicht beachtet, dass es dadurch größer werden kann als deine Maximalmasse der Area. Darum wurden die Scollbalken weggekickt und dann war das Fenster nicht mehr bedienbar. Das muß natürlich beachtet werden.

Hier die neue Include, mit deinem veränderten Code:
Area / Scroll / Surface / Flächen - Control

[Detlef Jagolski]

Danke Frank

Gruß

Detlef