paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 22:59:08 +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, // GtkWSDirSel,
// GtkWSEditBtn, // GtkWSEditBtn,
GtkWSExtCtrls, GtkWSExtCtrls,
// GtkWSExtDlgs, GtkWSExtDlgs,
// GtkWSFileCtrl, // GtkWSFileCtrl,
GtkWSForms, GtkWSForms,
GtkWSGrids, GtkWSGrids,

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

@ -27,7 +27,14 @@ unit GtkWSExtDlgs;
interface interface
uses 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 type
@ -38,7 +45,7 @@ type
protected protected
class procedure SetCallbacks(const AGtkWidget: PGtkWidget; const AWidgetInfo: PWidgetInfo); virtual; class procedure SetCallbacks(const AGtkWidget: PGtkWidget; const AWidgetInfo: PWidgetInfo); virtual;
public public
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override; class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
end; end;
{ TGtkWSPreviewFileDialog } { TGtkWSPreviewFileDialog }