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

LCL-GTK3: Implement clipboard format. Issue #36348, patch from CudaText man.

Browse Source 
git-svn-id: trunk@62426 -
This commit is contained in:
juha 2019-12-20 21:59:00 +00:00
parent b46b72fb2b
commit 1dba2b6305
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk3/gtk3bindings/lazgdk3.pas
View File

@ -2885,8 +2885,8 @@ type
PGdkAtom = ^TGdkAtom;
TGdkAtom = object
function name: Pgchar; cdecl; inline;
function intern(atom_name: Pgchar; only_if_exists: gboolean): TGdkAtom; cdecl; inline; static;
function intern_static_string(atom_name: Pgchar): TGdkAtom; cdecl; inline; static;
function intern(atom_name: Pgchar; only_if_exists: gboolean): PGdkAtom; cdecl; inline; static;
function intern_static_string(atom_name: Pgchar): PGdkAtom; cdecl; inline; static;
end;
TGdkDisplay = object(TGObject)
function get_default: PGdkDisplay; cdecl; inline; static;
@ -3891,8 +3891,8 @@ type
function gdk_app_launch_context_get_type: TGType; cdecl; external;
function gdk_atom_intern(atom_name: Pgchar; only_if_exists: gboolean): TGdkAtom; cdecl; external;
function gdk_atom_intern_static_string(atom_name: Pgchar): TGdkAtom; cdecl; external;
function gdk_atom_intern(atom_name: Pgchar; only_if_exists: gboolean): PGdkAtom; cdecl; external;
function gdk_atom_intern_static_string(atom_name: Pgchar): PGdkAtom; cdecl; external;
function gdk_atom_name(atom: TGdkAtom): Pgchar; cdecl; external;
function gdk_cairo_create(window: PGdkWindow): Pcairo_t; cdecl; external;
function gdk_cairo_get_clip_rectangle(cr: Pcairo_t; rect: PGdkRectangle): gboolean; cdecl; external;
@ -4502,12 +4502,12 @@ begin
Result := LazGdk3.gdk_atom_name(self);
end;
function TGdkAtom.intern(atom_name: Pgchar; only_if_exists: gboolean): TGdkAtom; cdecl;
function TGdkAtom.intern(atom_name: Pgchar; only_if_exists: gboolean): PGdkAtom; cdecl;
begin
Result := LazGdk3.gdk_atom_intern(atom_name, only_if_exists);
end;
function TGdkAtom.intern_static_string(atom_name: Pgchar): TGdkAtom; cdecl;
function TGdkAtom.intern_static_string(atom_name: Pgchar): PGdkAtom; cdecl;
begin
Result := LazGdk3.gdk_atom_intern_static_string(atom_name);
end;

12
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -170,13 +170,13 @@ begin
FormatCount, Formats);
end;
function TGtk3WidgetSet.ClipboardRegisterFormat(const AMimeType: string
): TClipboardFormat;
function TGtk3WidgetSet.ClipboardRegisterFormat(const AMimeType: string): TClipboardFormat;
begin
{$IFDEF GTK3DEBUGNOTIMPLEMENTED}
DebugLn('WARNING: TGtk3WidgetSet.ClipboardRegisterFormat not implemented ...');
{$ENDIF}
Result:=inherited ClipboardRegisterFormat(AMimeType);
if Assigned(Application) then
Result := TClipboardFormat(TGdkAtom.intern(PChar(AMimeType), False))
else
RaiseGDBException(
'ERROR: TGtk3WidgetSet.ClipboardRegisterFormat gdk not initialized');
end;
function TGtk3WidgetSet.CombineRgn(Dest, Src1, Src2: HRGN;