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

improved smartlinking: graphics and forms finalization

Browse Source 
git-svn-id: trunk@8254 -
This commit is contained in:
mattias 2005-12-06 11:25:16 +00:00
parent 8e974df7ce
commit e84231cff6
4 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/clipbrd.pp
View File

@ -344,6 +344,7 @@ var
begin
OnLoadGraphicFromClipboardFormat:=@LoadGraphicFromClipboardFormat;
OnSaveGraphicToClipboardFormat:=@SaveGraphicToClipboardFormat;
OnLoadSaveClipBrdGraphicValid:=true;
for AClipboardType:=Low(TClipboardType) to High(TClipboardType) do
FClipboards[AClipboardType]:=nil;
@ -351,6 +352,7 @@ end;
procedure InternalFinal;
begin
OnLoadSaveClipBrdGraphicValid:=false;
FreeAllClipboards;
end;

2
lcl/forms.pp
View File

@ -1689,7 +1689,7 @@ initialization
finalization
//DebugLn('forms.pp - finalization section');
LCLProc.OwnerFormDesignerModifiedProc:=nil;
HintWindowClass:=THintWindow;
HintWindowClass:=nil;
FreeThenNil(Application);
FreeThenNil(Screen);

4
lcl/graphics.pp
View File

@ -1324,6 +1324,7 @@ type
FormatID: TClipboardFormat);
var
OnLoadSaveClipBrdGraphicValid: boolean = false;
OnLoadGraphicFromClipboardFormat: TOnLoadGraphicFromClipboardFormat=nil;
OnSaveGraphicToClipboardFormat: TOnSaveGraphicToClipboardFormat=nil;
@ -1845,8 +1846,7 @@ initialization
finalization
GraphicsFinalized:=true;
OnLoadGraphicFromClipboardFormat:=nil;
OnSaveGraphicToClipboardFormat:=nil;
OnLoadSaveClipBrdGraphicValid:=false;
FreeAndNil(PicClipboardFormats);
FreeAndNil(PicFileFormats);

6
lcl/include/graphic.inc
View File

@ -128,7 +128,8 @@ end;
procedure TGraphic.LoadFromClipboardFormatID(ClipboardType: TClipboardType;
FormatID: TClipboardFormat);
begin
if Assigned(OnLoadGraphicFromClipboardFormat) then
if OnLoadSaveClipBrdGraphicValid
and Assigned(OnLoadGraphicFromClipboardFormat) then
OnLoadGraphicFromClipboardFormat(Self,ClipboardType,FormatID);
end;
@ -140,7 +141,8 @@ end;
procedure TGraphic.SaveToClipboardFormatID(ClipboardType: TClipboardType;
FormatID: TClipboardFormat);
begin
if Assigned(OnSaveGraphicToClipboardFormat) then
if OnLoadSaveClipBrdGraphicValid
and Assigned(OnSaveGraphicToClipboardFormat) then
OnSaveGraphicToClipboardFormat(Self,ClipboardType,FormatID);
end;