paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 21:16:05 +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) TTabControlNoteBookStrings = class(TTabControlStrings)
private private
FNoteBook: TNoteBook; FNoteBook: TNoteBook{%H-};
protected protected
function Get(Index: Integer): string; override; function Get(Index: Integer): string; override;
function GetCount: Integer; override; function GetCount: Integer; override;

3
lcl/extctrls.pp
View File

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

6
lcl/include/notebook.inc
View File

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

2
lcl/include/tabcontrol.inc
View File

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