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

MG: set default value for TStatusBar.SimplePanel

Browse Source 
git-svn-id: trunk@3287 -
This commit is contained in:
lazarus 2002-09-05 13:33:10 +00:00
parent 98a15081f3
commit df053a6541
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/comctrls.pp
View File

@ -115,8 +115,8 @@ type
property Canvas : TCanvas read FCanvas; property Canvas : TCanvas read FCanvas;
published published
property Panels: TStatusPanels read FPanels write SetPanels; property Panels: TStatusPanels read FPanels write SetPanels;
property SimpleText : String read FSimpleText write SetSimpleText; property SimpleText: String read FSimpleText write SetSimpleText;
property SimplePanel : Boolean read FSimplePanel write SetSimplePanel; property SimplePanel: Boolean read FSimplePanel write SetSimplePanel default True;
property Visible; property Visible;
end; end;
@ -1615,6 +1615,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.39 2002/09/05 13:33:10 lazarus
MG: set default value for TStatusBar.SimplePanel
Revision 1.38 2002/09/03 08:07:17 lazarus Revision 1.38 2002/09/03 08:07:17 lazarus
MG: image support, TScrollBox, and many other things from Andrew MG: image support, TScrollBox, and many other things from Andrew