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, ButtonEdit: formatting

Browse Source 
git-svn-id: trunk@44640 -
This commit is contained in:
juha 2014-04-07 20:26:49 +00:00
parent fd9065da9c
commit 72ebe38661
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/buttonedit.pas
View File

@ -157,7 +157,6 @@ type
procedure DoEditExit(Sender: TObject); virtual;
procedure DoEditTextChange(Sender: TObject); virtual;
procedure Loaded; override;
procedure SetAutoSize(AValue: Boolean); override;
procedure SetColor(AValue: TColor); override;
@ -1123,7 +1122,6 @@ begin
Result := '';
end;
procedure TCustomButtonEdit.SetCharCase(AValue: TEditCharCase);
begin
FEdit.CharCase := AValue;
@ -1192,7 +1190,6 @@ begin
FEdit.PasswordChar := AValue;
end;
procedure TCustomButtonEdit.SetPopupMenu(AValue: TPopupMenu);
begin
FEdit.PopupMenu := AValue;
@ -1203,7 +1200,6 @@ begin
FEdit.Text := AValue;
end;
function TCustomButtonEdit.CalcButtonVisible: Boolean;
begin
Result := (csdesigning in ComponentState) or
@ -1222,20 +1218,17 @@ begin
CheckButtonVisible;
end;
procedure TCustomButtonEdit.SetGlyph(AValue: TBitmap);
begin
FButton.Glyph := AValue;
Invalidate;
end;
procedure TCustomButtonEdit.SetReadOnly(AValue: Boolean);
begin
FEdit.ReadOnly := AValue;
end;
constructor TCustomButtonEdit.Create(AOwner: TComponent);
var
B: TBitmap;
@ -1251,7 +1244,6 @@ begin
with GetControlClassDefaultSize do
SetInitialBounds(0, 0, CX, CY);
with FButton do
begin
Align := alRight;