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

AJ:fixed statusbar border for SimpleText mode

Browse Source 
git-svn-id: trunk@3527 -
This commit is contained in:
lazarus 2002-10-21 14:15:16 +00:00
parent c22a450c11
commit 53508f6de2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/statusbar.inc
View File

@ -129,7 +129,6 @@ Begin
Canvas.Line(X+1,Top,X+1,Top+Height-1);
End;
Procedure TStatusBar.WMPaint(var Msg: TLMPaint);
var
I : Integer;
@ -138,20 +137,20 @@ var
PW : Longint;
Begin
inherited;
Style := Canvas.TextStyle;
FillChar(Style, SizeOf(Style),0);
With Style do begin
Layout := tlCenter;
Alignment := taLeftJustify;
WordBreak := False;
SingleLine := True;
Clipping := True;
ShowPrefix := False;
Opaque := True;
end;
Canvas.Color := Color;
R := Rect(Left, Top, Left + ClientWidth, Top + ClientHeight);
if SimplePanel = False then
Begin
Style.Opaque := True;
Style.Clipping := True;
if Panels.Count = 0 then exit;
For I := 0 to Panels.Count-1 do
Begin
@ -173,6 +172,7 @@ Begin
end
else begin
Style.Clipping := False;
Style.Opaque := False;
InflateRect(R, -2, -2);
Canvas.FillRect(R);
InflateRect(R, 2, 2);