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

MG: impoved focussing, unfocussing on destroy and fixed unit search

Browse Source 
git-svn-id: trunk@2182 -
This commit is contained in:
lazarus 2002-08-17 23:41:05 +00:00
parent 45d6eae899
commit 02b3856fd0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -240,7 +240,7 @@ procedure GetGTKKeyInfo(const Event: PGDKEventKey; var KeyCode,VirtualKey: Word;
var SysKey, Extended, Toggle: Boolean); var SysKey, Extended, Toggle: Boolean);
procedure StoreCommonDialogSetup(ADialog: TCommonDialog); procedure StoreCommonDialogSetup(ADialog: TCommonDialog);
procedure DestroyCommonDialogAddOns(ADialog: TCommonDialog); procedure DestroyCommonDialogAddOns(ADialog: TCommonDialog);
function ObjectToGTKObject(const AObject: TObject): gtk_object; function ObjectToGTKObject(const AObject: TObject): PGtkObject;
function GetMainWidget(const Widget: Pointer): Pointer; function GetMainWidget(const Widget: Pointer): Pointer;
procedure SetMainWidget(const ParentWidget, ChildWidget: Pointer); procedure SetMainWidget(const ParentWidget, ChildWidget: Pointer);
function GetFixedWidget(const Widget: Pointer): Pointer; function GetFixedWidget(const Widget: Pointer): Pointer;