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

LCL: reduced hints

Browse Source 
git-svn-id: trunk@27772 -
This commit is contained in:
mattias 2010-10-20 08:18:58 +00:00
parent b07592dfec
commit 5ad496ffd6
4 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -425,7 +425,7 @@ type
TTabControlNoteBookStrings = class(TTabControlStrings)
private
FNoteBook: TNoteBook;
FNoteBook: TNoteBook{%H-};
protected
function Get(Index: Integer): string; override;
function GetCount: Integer; override;

3
lcl/extctrls.pp
View File

@ -1298,7 +1298,6 @@ type
FBalloonHint: string;
FBalloonTimeout: Integer;
FBalloonTitle: string;
FIconList: TImageList;
FPopUpMenu: TPopupMenu;
FIcon: TIcon;
FIcons: TCustomImageList;
@ -1399,7 +1398,7 @@ begin
{$ifdef INSTALL_TUNTABBEDNOTEBOOK} TUntabbedNotebook, {$ENDIF}
TLabeledEdit, TSplitter, TTrayIcon]);
RegisterComponents('System',[TTimer,TIdleTimer]);
RegisterNoIcon([TNotebook, TPage{$ifdef INSTALL_TUNTABBEDNOTEBOOK}, TUNBPage{$ENDIF}]);
RegisterNoIcon([TNotebook{%H-}, TPage{$ifdef INSTALL_TUNTABBEDNOTEBOOK}, TUNBPage{$ENDIF}]);
end;
{$I custompage.inc}

6
lcl/include/notebook.inc
View File

@ -19,12 +19,12 @@
function TNotebook.GetActiveNotebookPageComponent: TPage;
begin
Result:=TPage(GetActivePageComponent);
Result:=TPage{%H-}(GetActivePageComponent);
end;
function TNotebook.GetNoteBookPage(Index: Integer): TPage;
begin
Result:=TPage(GetPage(Index));
Result:=TPage{%H-}(GetPage(Index));
end;
procedure TNotebook.SetActiveNotebookPageComponent(const AValue: TPage);
@ -37,7 +37,7 @@ end;
------------------------------------------------------------------------------}
constructor TNotebook.Create(TheOwner: TComponent);
begin
PageClass:=TPage;
PageClass:=TPage{%H-};
inherited Create(TheOwner);
end;

2
lcl/include/tabcontrol.inc
View File

@ -233,7 +233,7 @@ end;
constructor TTabControlNoteBookStrings.Create(TheTabControl: TCustomTabControl);
begin
inherited Create(TheTabControl);
FNoteBook := TNoteBook.Create(nil);
FNoteBook := TNoteBook{%H-}.Create(nil);
FNoteBook.ControlStyle := FNoteBook.ControlStyle + [csNoDesignSelectable];
FNoteBook.Parent := TabControl;
FNoteBook.OnGetImageIndex := @NBGetImageIndex;