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

fix crash while creating PreviewFileControl

Browse Source 
git-svn-id: trunk@13556 -
This commit is contained in:
paul 2008-01-01 13:00:28 +00:00
parent 08bcabd139
commit 49f04ab86a
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtkint.pp
View File

@ -312,7 +312,7 @@ uses
// GtkWSDirSel,
// GtkWSEditBtn,
GtkWSExtCtrls,
// GtkWSExtDlgs,
GtkWSExtDlgs,
// GtkWSFileCtrl,
GtkWSForms,
GtkWSGrids,

11
lcl/interfaces/gtk/gtkwsextdlgs.pp
View File

@ -27,7 +27,14 @@ unit GtkWSExtDlgs;
interface
uses
ExtDlgs, WSExtDlgs, WSLCLClasses;
{$IFDEF gtk2}
glib2, gdk2pixbuf, gdk2, gtk2, Pango,
{$ELSE}
glib, gdk, gtk, gdkpixbuf, GtkFontCache,
{$ENDIF}
Classes, Controls, ExtDlgs, LCLType,
WSExtDlgs, WSLCLClasses,
GtkDef, GtkProc, GtkWsControls, GtkInt;
type
@ -38,7 +45,7 @@ type
protected
class procedure SetCallbacks(const AGtkWidget: PGtkWidget; const AWidgetInfo: PWidgetInfo); virtual;
public
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
end;
{ TGtkWSPreviewFileDialog }