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

lcl: Remove ParentFontChanged from TCustomCheckListBox and TToolbar since it's not necessary

Browse Source 
git-svn-id: trunk@23247 -
This commit is contained in:
blikblum 2009-12-24 01:07:11 +00:00
parent 442c987512
commit d1191aa008
3 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/checklst.pas
View File

@ -65,7 +65,6 @@ type
procedure ItemClick(const AIndex: Integer); virtual;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure FontChanged(Sender: TObject); override;
procedure ParentFontChanged; override;
public
constructor Create(AOwner: TComponent); override;
procedure MeasureItem(Index: Integer; var TheHeight: Integer); override;
@ -330,13 +329,6 @@ begin
ItemHeight := CalculateStandardItemHeight;
end;
procedure TCustomCheckListBox.ParentFontChanged;
begin
inherited ParentFontChanged;
if ([csLoading, csDestroying] * ComponentState = []) and (Style = lbStandard) then
ItemHeight := CalculateStandardItemHeight;
end;
procedure TCustomCheckListBox.DefineProperties(Filer: TFiler);
begin
inherited DefineProperties(Filer);

1
lcl/comctrls.pp
View File

@ -1709,7 +1709,6 @@ type
procedure ControlsAligned; override;
function FindButtonFromAccel(Accel: Word): TToolButton;
procedure FontChanged(Sender: TObject); override;
procedure ParentFontChanged; override;
procedure Loaded; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure RepositionButton(Index: Integer);

6
lcl/include/toolbar.inc
View File

@ -725,12 +725,6 @@ begin
ApplyFontForButtons;
end;
procedure TToolBar.ParentFontChanged;
begin
inherited ParentFontChanged;
ApplyFontForButtons;
end;
function TToolBar.CheckMenuDropdown(Button: TToolButton): Boolean;
var
APoint: TPoint;