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

lcl: add protected field TStatusPanel.FIntfFlag to store useful flags in the status panels by interfaces (needs in the next commit)

Browse Source 
git-svn-id: trunk@18618 -
This commit is contained in:
paul 2009-02-09 14:59:27 +00:00
parent 51334b4f2b
commit 895b31f8f4
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -79,6 +79,8 @@ type
procedure SetText(const Value: string);
procedure SetWidth(Value: Integer);
protected
// field to use by interface. dont use it in the LCL
FIntfFlag: Integer;
function GetDisplayName: string; override;
procedure PanelChanged(const Parts: TPanelParts);
procedure SetIndex(Value: Integer); override;

3
lcl/include/statuspanel.inc
View File

@ -25,6 +25,7 @@ begin
FBevel := pbLowered;
FParentBiDiMode := True;
FAlignment := taLeftJustify;
FIntfFlag := 0;
inherited Create(aCollection);
AStatusBar:=StatusBar;
@ -150,4 +151,4 @@ begin
Changed(True);
PanelChanged([ppWidth]);
end;
end;
end;