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

add TStatusBar.Canvas

Browse Source 
git-svn-id: trunk@6467 -
This commit is contained in:
micha 2005-01-03 11:54:37 +00:00
parent 4e074259bb
commit 0e75b215d0
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/comctrls.pp
View File

@ -106,6 +106,7 @@ type
TStatusBar = Class(TWinControl)
private
FCanvas: TCanvas;
FHandlePanelCount: integer; // realized panels in the Handle object
FHandleObjectNeedsUpdate: boolean;
FHandleUpdatePanelIndex: integer; // which panel in the handle object needs update
@ -128,6 +129,7 @@ type
procedure BeginUpdate;
procedure EndUpdate;
function UpdatingStatusBar: boolean;
property Canvas: TCanvas read FCanvas;
published
property Panels: TStatusPanels read FPanels write SetPanels;
property SimpleText: String read FSimpleText write SetSimpleText;
@ -2284,6 +2286,9 @@ end.
{ =============================================================================
$Log$
Revision 1.156 2005/01/03 11:54:37 micha
add TStatusBar.Canvas
Revision 1.155 2005/01/03 01:07:08 mattias
fixed registering TProgressBar, disabled docking in TToolBar, return key for codeexplorer, updated finnish translation

3
lcl/include/statusbar.inc
View File

@ -21,6 +21,8 @@ constructor TStatusBar.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
fCompStyle := csStatusBar;
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Self;
ControlStyle := [csCaptureMouse, csClickEvents, csDoubleClicks, csOpaque];
FSimplePanel := True;
FPanels := TStatusPanels.Create(Self);
@ -63,6 +65,7 @@ end;
{------------------------------------------------------------------------------}
destructor TStatusBar.Destroy;
begin
FreeThenNil(FCanvas);
FreeThenNil(FPanels);
inherited Destroy;
end;