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

fixed RemovePage. And I forgot last cvs log entry: TPage.TabVisible from Andrew Haines

Browse Source 
git-svn-id: trunk@6528 -
This commit is contained in:
mattias 2005-01-09 23:36:29 +00:00
parent f8d3853f8c
commit 5916c57809
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk/gtkwsextctrls.pp
View File

@ -292,13 +292,16 @@ end;
procedure TGtkWSCustomNotebook.RemovePage(const ANotebook: TCustomNotebook;
const AIndex: integer);
var
PageWidget: PGtkWidget;
PageWidget: PGtkWidget;
Page: TCustomPage;
begin
// The gtk does not provide a function to remove a page without destroying it.
// Luckily the LCL destroys the Handle, when a page is removed, so this
// function is not needed.
// However this is usefull for the TCustomPage.TabVisible property. :)
PageWidget := PGtkWidget(ANotebook.Page[AIndex].Handle);
Page:=ANotebook.Page[AIndex];
if not Page.HandleAllocated then exit;
PageWidget := PGtkWidget(Page.Handle);
gtk_widget_hide(PageWidget);
end;