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

commit clean up

Browse Source 
git-svn-id: trunk@7831 -
This commit is contained in:
mattias 2005-09-26 09:34:38 +00:00
parent 86fba93d3c
commit ebdafeb975
3 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/extctrls.pp
View File

@ -65,12 +65,12 @@ type
function GetPageIndex: integer;
procedure SetPageIndex(AValue: Integer);
public
property PageIndex: Integer read GetPageIndex write SetPageIndex;
property TabVisible: Boolean read GetTabVisible write SetTabVisible default True;
constructor Create(TheOwner: TComponent); override;
procedure AdjustClientRect(var ARect: TRect); override;
function CanTab: boolean; override;
function IsVisible: Boolean; override;
property PageIndex: Integer read GetPageIndex write SetPageIndex;
property TabVisible: Boolean read GetTabVisible write SetTabVisible default True;
property ImageIndex: integer read FImageIndex write SetImageIndex default -1;
property Left stored False;
property Top stored False;

4
lcl/grids.pas
View File

@ -3399,15 +3399,13 @@ begin
end;
procedure TCustomGrid.SetFlat(const AValue: Boolean);
var
Bs: TBorderStyle;
begin
if FFlat=AValue then exit;
FFlat:=AValue;
if FGridBorderStyle=bsSingle then
UpdateBorderStyle
else
Invalidate;
Invalidate;
end;
procedure TCustomGrid.SetFocusRectVisible(const AValue: Boolean);

2
lcl/include/custompage.inc
View File

@ -27,7 +27,7 @@ begin
fTabVisible := True;
ControlStyle := ControlStyle + [csAcceptsControls,csDesignFixedBounds,csNoDesignVisible];
// height and width dependent on parent, align to client rect
// height and width depends on parent, align to client rect
Align := alClient;
Caption := '';
Visible := false;