paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 10:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TSplitter: protected SetResizeAnchor

Browse Source 
git-svn-id: trunk@25815 -
This commit is contained in:
mattias 2010-06-01 16:42:58 +00:00
parent c640156c1a
commit 8de24d2ca4
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/extctrls.pp
View File

@ -474,8 +474,6 @@ type
procedure SetAutoSnap(const AValue: boolean);
procedure SetBeveled(const AValue: boolean);
procedure SetMinSize(const AValue: integer);
procedure SetResizeAnchor(const AValue: TAnchorKind);
procedure SetResizeControl(const AValue: TControl);
procedure SetResizeStyle(const AValue: TResizeStyle);
protected
class procedure WSRegisterClass; override;
@ -493,6 +491,8 @@ type
procedure Paint; override;
procedure SetAlign(Value: TAlign); override;
procedure SetAnchors(const AValue: TAnchors); override;
procedure SetResizeAnchor(const AValue: TAnchorKind); virtual;
procedure SetResizeControl(const AValue: TControl); virtual;
procedure StartSplitterMove(const MouseXY: TPoint);
public
constructor Create(TheOwner: TComponent); override;

3
lcl/include/customsplitter.inc
View File

@ -484,9 +484,8 @@ begin
Cursor := crHSplit
else
Cursor := crVSplit;
if not (csLoading in ComponentState) then begin
if not (csLoading in ComponentState) then
Align:=alNone;
end;
end;
procedure TCustomSplitter.SetResizeControl(const AValue: TControl);