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

added clipboard checks

Browse Source 
git-svn-id: trunk@4596 -
This commit is contained in:
mattias 2003-09-10 16:33:51 +00:00
parent 61d1cf358a
commit 5bfc2f7fed
1 changed files with 5 additions and 2 deletions

7
lcl/include/clipbrd.inc
View File

@ -423,12 +423,12 @@ var
begin
//writeln('[TClipboard.FindPictureFormatID]');
List:=nil;
if not FAllocated then
if not FAllocated then begin
if not ClipboardGetFormats(ClipboardType,cnt,List) then begin
Result:=0;
exit;
end;
else begin
end else begin
cnt:=0;
end;
try
@ -607,6 +607,9 @@ end;
{
$Log$
Revision 1.13 2003/09/10 16:33:51 mattias
added clipboard checks
Revision 1.12 2003/09/10 16:29:13 mattias
added Kylix 3 specials