paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 12:20:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed TCustomEditButton anchoring button, fixing bug #10748/2

Browse Source 
git-svn-id: trunk@14208 -
This commit is contained in:
mattias 2008-02-20 13:28:46 +00:00
parent 1a97191680
commit d47865abc6
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/editbtn.pas
View File

@ -61,7 +61,6 @@ type
procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;
protected
procedure SetParent(AParent: TWinControl); override;
procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
procedure DoPositionButton; virtual;
procedure DoButtonClick (Sender: TObject); virtual;
Procedure Loaded; override;
@ -655,6 +654,7 @@ procedure TCustomEditButton.Loaded;
begin
inherited Loaded;
CheckButtonVisible;
DoPositionButton;
end;
procedure TCustomEditButton.WMKillFocus(var Message: TLMKillFocus);
@ -669,21 +669,17 @@ begin
inherited SetParent(AParent);
if FButton <> nil then
begin
FButton.Parent := Parent;
DoPositionButton;
CheckButtonVisible;
end;
end;
procedure TCustomEditButton.DoSetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
inherited DoSetBounds(ALeft, ATop, AWidth, AHeight);
DoPositionButton;
end;
procedure TCustomEditButton.DoPositionButton;
begin
if FButton <> nil then
FButton.SetBounds(Left+Width, Top, FButton.Width, Height);
if FButton = nil then exit;
FButton.Parent := Parent;
FButton.Visible := Visible;
FButton.AnchorToCompanion(akLeft,0,Self);
end;
procedure TCustomEditButton.WMSetFocus(var Message: TLMSetFocus);