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

MG: fixes for fpc1.1

Browse Source 
git-svn-id: trunk@2105 -
This commit is contained in:
lazarus 2002-08-17 23:40:57 +00:00
parent cd1e56f8d3
commit 45a54d0346
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -259,6 +259,7 @@ function GetWidgetOrigin(TheWidget: PGtkWidget): TPoint;
function GetWidgetClientOrigin(TheWidget: PGtkWidget): TPoint;
function TranslateGdkPointToClientArea(SourceWindow: PGdkWindow;
SourcePos: TPoint; DestinationWidget: PGtkWidget): TPoint;
procedure ReleaseMouseCapture(OnlyIfCapturedByLCL: boolean);
procedure UpdateMouseCaptureControl;
procedure SetCursor(AWinControl : TWinControl; Data: Pointer);
@ -330,12 +331,17 @@ procedure ConnectSignalAfter(const AnObject:gtk_Object; const ASignal: PChar;
const ACallBackProc: Pointer; LCLComponent: TComponent);
procedure ConnectInternalWidgetsSignals(AWidget: PGtkWidget;
AWinControl: TWinControl);
procedure SetAccelGroup(const Widget: Pointer; const AnAccelGroup: Pointer);
function GetAccelGroup(const Widget: Pointer): Pointer;
procedure SetAccelKey(const Widget: Pointer; const AKey: Integer);
function GetAccelKey(const Widget: Pointer): Integer;
procedure Accelerate(const Widget : Pointer; const Msg : TLMShortCut;
const Signal : string);
function GetAccelGroup(const Widget: PGtkWidget;
CreateIfNotExists: boolean): PGTKAccelGroup;
procedure SetAccelGroup(const Widget: PGtkWidget;
const AnAccelGroup: PGTKAccelGroup);
procedure FreeAccelGroup(const Widget: PGtkWidget);
procedure RegroupAccelerator(Widget: PGtkWidget);
procedure ClearAccelKey(Widget: PGtkWidget);
procedure Accelerate(Component: TComponent; const Widget : PGtkWidget;
const Key: guint; Mods: TGdkModifierType; const Signal : string);
procedure Accelerate(Component: TComponent; const Widget : PGtkWidget;
const Msg : TLMShortCut; const Signal : string);
procedure GetGdkPixmapFromGraphic(LCLGraphic: TGraphic;
var IconImg, IconMask: PGdkPixmap; var Width, Height: integer);
procedure GetGdkPixmapFromMenuItem(LCLMenuItem: TMenuItem;