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

fix removing last page from tcustomnotebook (issue #7839)

Browse Source 
git-svn-id: trunk@10525 -
This commit is contained in:
micha 2007-01-28 15:20:40 +00:00
parent 315a021fbd
commit 305e2a2521
3 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/extctrls.pp
View File

@ -62,7 +62,6 @@ type
procedure SetParent(AParent: TWinControl); override;
property Flags: TPageFlags read FFlags write FFlags;
procedure CMHitTest(var Message: TLMNCHITTEST); message CM_HITTEST;
procedure DestroyHandle; override;
function GetPageIndex: integer;
procedure SetPageIndex(AValue: Integer);
function DialogChar(var Message: TLMKey): boolean; override;

2
lcl/include/customnotebook.inc
View File

@ -615,7 +615,7 @@ end;
function TCustomNotebook.GetPage(aIndex: Integer): TCustomPage;
begin
if (aIndex<0) or (aIndex>=fPageList.Count) then
RaiseGDBException('TCustomNotebook.GeTCustomPage Index out of bounds');
RaiseGDBException('TCustomNotebook.GetCustomPage Index out of bounds');
Result := TCustomPage(fPageList.Items[aIndex]);
end;

6
lcl/include/custompage.inc
View File

@ -143,12 +143,6 @@ begin
' Message.Result=',Message.Result);}
end;
procedure TCustomPage.DestroyHandle;
begin
inherited DestroyHandle;
Exclude(FFlags,pfAdded);
end;
{------------------------------------------------------------------------------
TCustomPage AdjustClientRect
Params: Rect