paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 00:12:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

clean up

Browse Source 
git-svn-id: trunk@5337 -
This commit is contained in:
mattias 2004-03-22 19:15:53 +00:00
parent 4cda98b31b
commit cdd369ee12
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkpagecallback.inc
View File

@ -21,7 +21,6 @@ var
NoteBookWidget: PGtkWidget;
PageWidget: PGtkWidget;
TabWidget: PGtkWidget;
TabImageWidget: PGtkWidget;
begin
NoteBook:=Page.Parent as TCustomNotebook;
if (NoteBook.Images=nil) or (Page.ImageIndex<0)
@ -36,9 +35,6 @@ begin
TabWidget:=gtk_notebook_get_tab_label(PGtkNoteBook(NotebookWidget),
PageWidget);
if TabWidget=nil then exit;
TabImageWidget:=PGtkWidget(gtk_object_get_data(PGtkObject(TabWidget),
'TabImage'));
//writeln('DrawNotebookPageIcon B ',Page.Name,' ',GetWidgetDebugReport(TabImageWidget));
DrawImageListIconOnWidget(NoteBook.Images,Page.ImageIndex,Widget);
end;