You've already forked lazarus-ccr
33 lines
1.1 KiB
Plaintext
33 lines
1.1 KiB
Plaintext
|
object Form1: TForm1
|
||
|
|
Left = 457
|
||
|
|
Height = 240
|
||
|
|
Top = 261
|
||
|
|
Width = 320
|
||
|
|
Caption = 'Form1'
|
||
|
|
ClientHeight = 240
|
||
|
|
ClientWidth = 320
|
||
|
|
LCLVersion = '1.2.4.0'
|
||
|
|
object RichMemo1: TRichMemo
|
||
|
|
Left = 8
|
||
|
|
Height = 208
|
||
|
|
Top = 16
|
||
|
|
Width = 304
|
||
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||
|
|
HideSelection = False
|
||
|
|
Lines.Strings = (
|
||
|
|
'Move mouse cursor over this Rich Memo. '
|
||
|
|
'Form caption should change to the result of '
|
||
|
|
'CharAtPos'
|
||
|
|
'123457890 123457890 123457890'
|
||
|
|
''
|
||
|
|
''
|
||
|
|
'123457890 123457890 123457890'
|
||
|
|
)
|
||
|
|
OnMouseMove = RichMemo1MouseMove
|
||
|
|
Rtf = '{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1033{\fonttbl{\f0\fnil\fcharset0 Segoe UI;}{\f1\fnil Segoe UI;}}'#13#10'{\*\generator Riched20 6.3.9600}\viewkind4\uc1 '#13#10'\pard\f0\fs18 Move mouse cursor over this Rich Memo. Form caption should change to the result of CharAtPos\par'#13#10'123457890 123457890 123457890\par'#13#10'\par'#13#10'\par'#13#10'123457890 123457890 123457890\f1\par'#13#10'\par'#13#10'}'#13#10#0
|
||
|
|
ScrollBars = ssVertical
|
||
|
|
TabOrder = 0
|
||
|
|
ZoomFactor = 1
|
||
|
|
end
|
||
|
|
end
|