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

gtk2 intf only showing one grip for last statusbar panel from Andrew Haines

Browse Source 
git-svn-id: trunk@7255 -
This commit is contained in:
mattias 2005-06-20 09:07:09 +00:00
parent 07807f53bf
commit 4056975eaf
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/printers/printer4lazarus.pas
View File

@ -7,8 +7,7 @@ unit Printer4Lazarus;
interface
uses
PrintersDlgs, OSPrinters, uDlgSelectPrinter, cupsdyn, uDlgPropertiesPrinter,
LazarusPackageIntf;
PrintersDlgs, OSPrinters, LazarusPackageIntf;
implementation

13
lcl/interfaces/gtk/gtkproc.inc
View File

@ -5789,6 +5789,16 @@ begin
UpdateStatusBarPanel(StatusBar,i,CurStatusPanelWidget);
inc(i);
ListItem:=ListItem^.next;
{$IFDEF GTK2}
if ListItem <> nil then begin
if gtk_statusbar_get_has_resize_grip(PGtkStatusBar(CurStatusPanelWidget)) then
gtk_statusbar_set_has_resize_grip(PGtkStatusBar(CurStatusPanelWidget), False);
end
else begin
if not gtk_statusbar_get_has_resize_grip(PGtkStatusBar(CurStatusPanelWidget)) then
gtk_statusbar_set_has_resize_grip(PGtkStatusBar(CurStatusPanelWidget), True);
end;
{$ENDIF}
end;
end;
@ -8213,6 +8223,9 @@ end;
{ =============================================================================
$Log$
Revision 1.363 2005/06/20 09:07:09 mattias
gtk2 intf only showing one grip for last statusbar panel from Andrew Haines
Revision 1.362 2005/06/13 09:38:54 mattias
updated COPYING and README for new files