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

LCL: check for Interfaces unit for clipboard. It can be missing when clipboard is used in cmd line prog and LCL dependency added manually.

Browse Source 
git-svn-id: trunk@42446 -
This commit is contained in:
juha 2013-08-22 11:56:14 +00:00
parent ae48b1dba1
commit 1461a91522
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/lclintf.pas
View File

@ -47,7 +47,7 @@ uses
{$IFDEF UNIX}Unix, {$ENDIF} {$IFDEF UNIX}Unix, {$ENDIF}
{$IFDEF Darwin}MacOSAll, {$ENDIF} {$IFDEF Darwin}MacOSAll, {$ENDIF}
Types, Math, Classes, SysUtils, LCLType, LCLProc, GraphType, InterfaceBase, Types, Math, Classes, SysUtils, LCLType, LCLProc, GraphType, InterfaceBase,
LResources, FileUtil, UTF8Process, Maps, LMessages, lazutf8sysutils; LResources, FileUtil, UTF8Process, Maps, LMessages, lazutf8sysutils, LCLStrConsts;
{$ifdef Trace} {$ifdef Trace}
{$ASSERTIONS ON} {$ASSERTIONS ON}
@ -59,8 +59,7 @@ uses
// All interface communication (Our additions) // All interface communication (Our additions)
{$I lclintfh.inc} {$I lclintfh.inc}
function PredefinedClipboardFormat( function PredefinedClipboardFormat(AFormat: TPredefinedClipboardFormat): TClipboardFormat;
AFormat: TPredefinedClipboardFormat): TClipboardFormat;
function MsgKeyDataToShiftState(KeyData: PtrInt): TShiftState; function MsgKeyDataToShiftState(KeyData: PtrInt): TShiftState;
@ -178,12 +177,14 @@ end;
{$ENDIF} {$ENDIF}
function PredefinedClipboardFormat(AFormat: TPredefinedClipboardFormat function PredefinedClipboardFormat(AFormat: TPredefinedClipboardFormat): TClipboardFormat;
): TClipboardFormat;
begin begin
if FPredefinedClipboardFormats[AFormat]=0 then if FPredefinedClipboardFormats[AFormat]=0 then begin
if WidgetSet=nil then
raise Exception.Create(rsNoWidgetSet);
FPredefinedClipboardFormats[AFormat]:= FPredefinedClipboardFormats[AFormat]:=
ClipboardRegisterFormat(PredefinedClipboardMimeTypes[AFormat]); ClipboardRegisterFormat(PredefinedClipboardMimeTypes[AFormat]);
end;
Result:=FPredefinedClipboardFormats[AFormat]; Result:=FPredefinedClipboardFormats[AFormat];
end; end;