mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-07 20:36:38 +02:00
lcl: misc formatting
git-svn-id: trunk@18096 -
This commit is contained in:
parent
a256b569c8
commit
342531bc74
@ -159,7 +159,7 @@ type
|
|||||||
property AutoScroll: Boolean read FAutoScroll write SetAutoScroll default true;
|
property AutoScroll: Boolean read FAutoScroll write SetAutoScroll default true;
|
||||||
procedure AlignControls(AControl: TControl; var ARect: TRect); override;
|
procedure AlignControls(AControl: TControl; var ARect: TRect); override;
|
||||||
procedure CreateWnd; override;
|
procedure CreateWnd; override;
|
||||||
function GetClientScrollOffset: TPoint; override;
|
function GetClientScrollOffset: TPoint; override;
|
||||||
function GetLogicalClientRect: TRect; override;// logical size of client area
|
function GetLogicalClientRect: TRect; override;// logical size of client area
|
||||||
procedure DoOnResize; override;
|
procedure DoOnResize; override;
|
||||||
procedure WMHScroll(var Message : TLMHScroll); message LM_HScroll;
|
procedure WMHScroll(var Message : TLMHScroll); message LM_HScroll;
|
||||||
|
@ -546,7 +546,7 @@ begin
|
|||||||
Assert(False, 'Trace:WMSIZE in TCustomForm');
|
Assert(False, 'Trace:WMSIZE in TCustomForm');
|
||||||
if not (csDesigning in ComponentState) then begin
|
if not (csDesigning in ComponentState) then begin
|
||||||
OldState:=FWindowState;
|
OldState:=FWindowState;
|
||||||
Case (Message.SizeType and not SIZE_SourceIsInterface) of
|
case (Message.SizeType and not SIZE_SourceIsInterface) of
|
||||||
SIZENORMAL :
|
SIZENORMAL :
|
||||||
if Showing then
|
if Showing then
|
||||||
FWindowState := wsNormal;
|
FWindowState := wsNormal;
|
||||||
|
Loading…
Reference in New Issue
Block a user