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

MG: added filters and history to TOpenDialog

Browse Source 
git-svn-id: trunk@896 -
This commit is contained in:
lazarus 2002-02-09 01:47:17 +00:00
parent ec7ede3f47
commit 295d095f60
1 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,7 +73,6 @@ type
Procedure HookSignals(Sender : TObject); //hooks all signals for controls Procedure HookSignals(Sender : TObject); //hooks all signals for controls
procedure CreateComponent(Sender : TObject); procedure CreateComponent(Sender : TObject);
procedure InitializeCommonDialog(ADialog: TObject; AWindow: PGtkWidget);
procedure DestroyLCLControl(Sender : TObject); procedure DestroyLCLControl(Sender : TObject);
procedure AddChild(Parent,Child : Pointer; Left,Top: Integer); procedure AddChild(Parent,Child : Pointer; Left,Top: Integer);
procedure ResizeChild(Sender : TObject; Left,Top,Width,Height : Integer); procedure ResizeChild(Sender : TObject; Left,Top,Width,Height : Integer);
@ -118,8 +117,8 @@ type
procedure SendCachedLCLMessages; procedure SendCachedLCLMessages;
procedure SendCachedGtkMessages; procedure SendCachedGtkMessages;
procedure SetCallback(Msg : LongInt; Sender : TObject); procedure SetCallback(Msg : LongInt; Sender : TObject); override;
procedure RemoveCallbacks(Sender : TObject); procedure RemoveCallbacks(Sender : TObject); override;
protected protected
Cursor_Watch : pGDKCursor; Cursor_Watch : pGDKCursor;
Cursor_Arrow : pGDKCursor; Cursor_Arrow : pGDKCursor;
@ -302,7 +301,22 @@ const
aGtkSelectionMode: Array[Boolean] of TGtkSelectionMode = aGtkSelectionMode: Array[Boolean] of TGtkSelectionMode =
(GTK_SELECTION_SINGLE,GTk_SELECTION_EXTENDED); (GTK_SELECTION_SINGLE,GTk_SELECTION_EXTENDED);
type
PFileSelHistoryEntry = ^TFileSelHistoryEntry;
TFileSelHistoryEntry = record
Filename: PChar;
MenuItem: PGtkWidget;
end;
PFileSelFilterEntry = ^TFileSelFilterEntry;
TFileSelFilterEntry = record
Description: PChar;
Mask: PChar;
FilterIndex: integer;
MenuItem: PGtkWidget;
end;
{$I dragicons.inc} {$I dragicons.inc}
{$I gtkproc.inc} {$I gtkproc.inc}
@ -377,6 +391,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.45 2002/05/30 14:11:12 lazarus
MG: added filters and history to TOpenDialog
Revision 1.44 2002/05/29 21:44:38 lazarus Revision 1.44 2002/05/29 21:44:38 lazarus
MG: improved TCommon/File/OpenDialog, fixed TListView scrolling and broder MG: improved TCommon/File/OpenDialog, fixed TListView scrolling and broder