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

MG: fixes for fpc1.1

Browse Source 
git-svn-id: trunk@2449 -
This commit is contained in:
lazarus 2002-08-17 23:41:23 +00:00
parent 1737ab40fa
commit fcbeaadf01
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -38,6 +38,7 @@ var
//Dragging : Boolean; //Dragging : Boolean;
MouseCaptureWidget: PGtkWidget; MouseCaptureWidget: PGtkWidget;
MouseCapureByLCL: boolean;
const const
DblClickTime = 250;// 250 miliseconds or less between clicks is a double click DblClickTime = 250;// 250 miliseconds or less between clicks is a double click
@ -272,6 +273,16 @@ const
OldCheckMenuItemToggleSize: integer = 0; OldCheckMenuItemToggleSize: integer = 0;
{ Accelerators }
type
PAcceleratorKey = ^TAcceleratorKey;
TAcceleratorKey = record
Key: guint;
Mods: TGdkModifierType;
Signal: string;
Realized: boolean;
end;
implementation implementation
end. end.