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

6
components/richmemo/samples/inline/mainform.lfm
View File

@ -8,7 +8,7 @@ object Form1: TForm1
ClientWidth = 615 ClientWidth = 615
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.2.4.0' LCLVersion = '1.3'
object Button1: TButton object Button1: TButton
Left = 532 Left = 532
Height = 25 Height = 25
@ -27,9 +27,9 @@ object Form1: TForm1
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
HideSelection = False HideSelection = False
Lines.Strings = ( Lines.Strings = (
'Every hunter wants to know where Cheetah hides' 'Every hunter wants to know where cheetah hides'
) )
Rtf = '{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1033{\fonttbl{\f0\fnil\fcharset0 Segoe UI;}{\f1\fnil Segoe UI;}}'#13#10'{\colortbl ;\red0\green128\blue0;\red0\green0\blue255;\red0\green0\blue0;}'#13#10'{\*\generator Riched20 6.3.9600}\viewkind4\uc1 '#13#10'\pard\cf1\b\f0\fs18 Every \cf2 hunter \cf3 wants to know where Cheetah hides\cf0\b0\f1\par'#13#10'\par'#13#10'}'#13#10#0 Rtf = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Segoe UI;}{\f1\fnil Segoe UI;}}'#13#10'{\colortbl ;\red0\green128\blue0;\red0\green0\blue255;\red0\green0\blue0;}'#13#10'{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\cf1\b\f0\fs18 Every \cf2 hunter \cf3\b0 wants to know where \b cheetah \b0 hides\par'#13#10'\cf0\f1\par'#13#10'}'#13#10#0
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
ZoomFactor = 1 ZoomFactor = 1

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 * * You're free to copy and modify the file. No need to keep the refernce *
* to the origin of the file. * * 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); procedure TForm1.Button3Click(Sender: TObject);
var var
inlineimg : TInlineImage; inlineimg : TInlineImage;
i : integer; const
ScreenToDocDPI = 72 / 96;
begin begin
inlineimg := TInlineImage.Create; inlineimg := TInlineImage.Create;
inlineimg.imageList:=ImageList1; inlineimg.imageList:=ImageList1;
inlineimg.startTime:=GetTickCount; inlineimg.startTime:=GetTickCount;
anims.add(inlineimg); 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; end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);

7
components/richmemo/samples/inline/testinline.lpi
View File

@ -40,7 +40,6 @@
<Unit0> <Unit0>
<Filename Value="testinline.lpr"/> <Filename Value="testinline.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="testinline"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
@ -69,12 +68,6 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions Count="3">