paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 22:26:29 +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; Changing;
RequiredState([csHandleValid, csFontValid, csBrushValid]); RequiredState([csHandleValid, csFontValid, csBrushValid]);
Flags := 0; Flags := 0;
If TextStyle.Opaque then if TextStyle.Opaque then
Flags := ETO_Opaque; Flags := ETO_Opaque;
ExtUTF8Out(FHandle, X, Y, Flags, nil, PChar(Text), Length(Text), nil); ExtUTF8Out(FHandle, X, Y, Flags, nil, PChar(Text), Length(Text), nil);
MoveTo(X + TextWidth(Text), Y); MoveTo(X + TextWidth(Text), Y);

6
lcl/include/custompage.inc
View File

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

5
lcl/include/wincontrol.inc
View File

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