paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 10:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed picture

Browse Source 
git-svn-id: trunk@1493 -
This commit is contained in:
lazarus 2002-03-09 16:48:46 +00:00
parent e14d49fb6c
commit 219b96b901
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/picture.inc
View File

@ -142,7 +142,7 @@ constructor TPicture.Create;
begin
inherited Create;
GetFileFormats;
GetClipboardFormats;
//GetClipboardFormats;
end;
destructor TPicture.Destroy;
@ -266,11 +266,11 @@ begin
end;
procedure TPicture.LoadFromClipboardFormat(FormatID: TClipboardFormat);
var
{var
NewGraphic: TGraphic;
GraphicClass: TGraphicClass;
GraphicClass: TGraphicClass;}
begin
GraphicClass := ClipboardFormats.FindFormat(FormatID);
{ GraphicClass := ClipboardFormats.FindFormat(FormatID);
if GraphicClass = nil then
InvalidGraphic(@SUnknownClipboardFormat);
@ -285,7 +285,7 @@ begin
FGraphic.Free;
FGraphic := NewGraphic;
FGraphic.OnChange := Changed;
Changed(Self);
Changed(Self);}
end;
procedure TPicture.SaveToClipboardFormat(FormatID: TClipboardFormat);