paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +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 Darwin}MacOSAll, {$ENDIF}
Types, Math, Classes, SysUtils, LCLType, LCLProc, GraphType, InterfaceBase,
LResources, FileUtil, UTF8Process, Maps, LMessages, lazutf8sysutils;
LResources, FileUtil, UTF8Process, Maps, LMessages, lazutf8sysutils, LCLStrConsts;
{$ifdef Trace}
{$ASSERTIONS ON}
@ -59,8 +59,7 @@ uses
// All interface communication (Our additions)
{$I lclintfh.inc}
function PredefinedClipboardFormat(
AFormat: TPredefinedClipboardFormat): TClipboardFormat;
function PredefinedClipboardFormat(AFormat: TPredefinedClipboardFormat): TClipboardFormat;
function MsgKeyDataToShiftState(KeyData: PtrInt): TShiftState;
@ -178,12 +177,14 @@ end;
{$ENDIF}
function PredefinedClipboardFormat(AFormat: TPredefinedClipboardFormat
): TClipboardFormat;
function PredefinedClipboardFormat(AFormat: TPredefinedClipboardFormat): TClipboardFormat;
begin
if FPredefinedClipboardFormats[AFormat]=0 then
if FPredefinedClipboardFormats[AFormat]=0 then begin
if WidgetSet=nil then
raise Exception.Create(rsNoWidgetSet);
FPredefinedClipboardFormats[AFormat]:=
ClipboardRegisterFormat(PredefinedClipboardMimeTypes[AFormat]);
end;
Result:=FPredefinedClipboardFormats[AFormat];
end;