pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: cleanup inline example. left the reference to the origin of the cheetah logo image

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3849 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-12-23 13:16:25 +00:00
parent 5c830bda81
commit 01753e2ba7
3 changed files with 9 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/richmemo/samples/inline/mainform.pas
View File

@@ -11,6 +11,9 @@ unit mainform;
* You're free to copy and modify the file. No need to keep the refernce *
* to the origin of the file. *
* *
* Cheetah logo image has been aquired from freepascal site. *
* http://www.freepascal.org/pic/logo.gif *
* *
*****************************************************************************
}
@@ -116,13 +119,14 @@ end;
procedure TForm1.Button3Click(Sender: TObject);
var
inlineimg : TInlineImage;
i : integer;
const
ScreenToDocDPI = 72 / 96;
begin
inlineimg := TInlineImage.Create;
inlineimg.imageList:=ImageList1;
inlineimg.startTime:=GetTickCount;
anims.add(inlineimg);
RichMemo1.InDelInline(inlineimg, RichMemo1.SelStart, 0, Size(round(ImageList1.Width*72/96),round(ImageList1.Height*72/96)));
RichMemo1.InDelInline(inlineimg, RichMemo1.SelStart, 0, Size(round(ImageList1.Width*ScreenToDocDPI),round(ImageList1.Height*ScreenToDocDPI)));
end;
procedure TForm1.FormCreate(Sender: TObject);