paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 01:22:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: formatting

Browse Source 
git-svn-id: trunk@18549 -
This commit is contained in:
paul 2009-02-04 04:00:16 +00:00
parent 82572a7ab9
commit 81fe22f744
3 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/canvas.inc
View File

@ -1166,7 +1166,7 @@ begin
Changing;
RequiredState([csHandleValid, csFontValid, csBrushValid]);
Flags := 0;
If TextStyle.Opaque then
if TextStyle.Opaque then
Flags := ETO_Opaque;
ExtUTF8Out(FHandle, X, Y, Flags, nil, PChar(Text), Length(Text), nil);
MoveTo(X + TextWidth(Text), Y);

6
lcl/include/custompage.inc
View File

@ -22,9 +22,9 @@ constructor TCustomPage.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
fImageIndex:=-1;
fCompStyle := csPage;
fTabVisible := True;
FImageIndex:=-1;
FCompStyle := csPage;
FTabVisible := True;
ControlStyle := ControlStyle + [csAcceptsControls,csDesignFixedBounds,csNoDesignVisible,csNoFocus];
// height and width depends on parent, align to client rect

5
lcl/include/wincontrol.inc
View File

@ -5587,7 +5587,8 @@ end;
TWinControl UpdateControlState
------------------------------------------------------------------------------}
procedure TWinControl.UpdateControlState;
var AWinControl: TWinControl;
var
AWinControl: TWinControl;
begin
AWinControl:= Self;
{ If any of the parent is not visible, exit }
@ -5607,7 +5608,7 @@ end;
------------------------------------------------------------------------------}
procedure TWinControl.InsertControl(AControl: TControl);
begin
InsertControl(AControl,ControlCount);
InsertControl(AControl, ControlCount);
end;
procedure TWinControl.InsertControl(AControl: TControl; Index: integer);