You've already forked lazarus-ccr
richmemo: remove numbering buttons - they are to be added as a separate demo
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3851 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
@ -8,11 +8,11 @@ object Form1: TForm1
|
||||
ClientHeight = 483
|
||||
ClientWidth = 634
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '1.2.4.0'
|
||||
LCLVersion = '1.3'
|
||||
object RichMemo1: TRichMemo
|
||||
Left = 15
|
||||
Height = 264
|
||||
Top = 96
|
||||
Height = 288
|
||||
Top = 72
|
||||
Width = 609
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
Font.Height = -13
|
||||
@ -27,6 +27,7 @@ object Form1: TForm1
|
||||
ParentFont = False
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
ZoomFactor = 1
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 16
|
||||
@ -132,7 +133,7 @@ object Form1: TForm1
|
||||
end
|
||||
object StartIdent: TFloatSpinEdit
|
||||
Left = 344
|
||||
Height = 23
|
||||
Height = 21
|
||||
Top = 18
|
||||
Width = 78
|
||||
Increment = 1
|
||||
@ -144,7 +145,7 @@ object Form1: TForm1
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 304
|
||||
Height = 15
|
||||
Height = 13
|
||||
Top = 18
|
||||
Width = 27
|
||||
Caption = 'Start '
|
||||
@ -152,15 +153,15 @@ object Form1: TForm1
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 304
|
||||
Height = 15
|
||||
Height = 13
|
||||
Top = 48
|
||||
Width = 32
|
||||
Width = 31
|
||||
Caption = 'Offset'
|
||||
ParentColor = False
|
||||
end
|
||||
object OffsetIdent: TFloatSpinEdit
|
||||
Left = 344
|
||||
Height = 23
|
||||
Height = 21
|
||||
Top = 46
|
||||
Width = 78
|
||||
Increment = 1
|
||||
@ -170,29 +171,11 @@ object Form1: TForm1
|
||||
TabOrder = 12
|
||||
Value = 0
|
||||
end
|
||||
object Button11: TButton
|
||||
Left = 16
|
||||
Height = 25
|
||||
Top = 52
|
||||
Width = 75
|
||||
Caption = 'Bullet'
|
||||
OnClick = Button11Click
|
||||
TabOrder = 13
|
||||
end
|
||||
object Button12: TButton
|
||||
Left = 104
|
||||
Height = 25
|
||||
Top = 52
|
||||
Width = 75
|
||||
Caption = 'Number'
|
||||
OnClick = Button12Click
|
||||
TabOrder = 14
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 16
|
||||
Height = 15
|
||||
Height = 13
|
||||
Top = 434
|
||||
Width = 34
|
||||
Width = 31
|
||||
Caption = 'Label3'
|
||||
ParentColor = False
|
||||
end
|
||||
|
||||
@ -4,58 +4,54 @@ LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#25#1#6'Height'#3#227#1#3'Top'#3#198#0#5'W'
|
||||
+'idth'#3'z'#2#13'ActiveControl'#7#9'RichMemo1'#7'Caption'#6#5'Form1'#12'Clie'
|
||||
+'ntHeight'#3#227#1#11'ClientWidth'#3'z'#2#8'OnCreate'#7#10'FormCreate'#10'LC'
|
||||
+'LVersion'#6#7'1.2.4.0'#0#9'TRichMemo'#9'RichMemo1'#4'Left'#2#15#6'Height'#3
|
||||
+#8#1#3'Top'#2'`'#5'Width'#3'a'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
|
||||
+#8'akBottom'#0#11'Font.Height'#2#243#9'Font.Name'#6#6'Tahoma'#13'HideSelecti'
|
||||
+'on'#8#13'Lines.Strings'#1#6#9'RichMemo1'#0#8'OnChange'#7#15'RichMemo1Change'
|
||||
+#7'OnKeyUp'#7#14'RichMemo1KeyUp'#9'OnMouseUp'#7#16'RichMemo1MouseUp'#10'Pare'
|
||||
+'ntFont'#8#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TButton'#7
|
||||
+'Button1'#4'Left'#2#16#6'Height'#2#25#3'Top'#3'p'#1#5'Width'#3#160#0#7'Ancho'
|
||||
+'rs'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#17'Make Bold and Red'#7'OnClick'
|
||||
+#7#12'Button1Click'#8'TabOrder'#2#1#7'TabStop'#8#0#0#7'TButton'#7'Button2'#4
|
||||
+'Left'#3#192#0#6'Height'#2#25#3'Top'#3'p'#1#5'Width'#2'a'#7'Anchors'#11#6'ak'
|
||||
+'Left'#8'akBottom'#0#7'Caption'#6#11'Get Attribs'#7'OnClick'#7#12'Button2Cli'
|
||||
+'ck'#8'TabOrder'#2#2#7'TabStop'#8#0#0#7'TButton'#7'Button3'#4'Left'#3'0'#1#6
|
||||
+'Height'#2#25#3'Top'#3'p'#1#5'Width'#2'`'#7'Anchors'#11#6'akLeft'#8'akBottom'
|
||||
+#0#7'Caption'#6#11'Select Font'#7'OnClick'#7#12'Button3Click'#8'TabOrder'#2#3
|
||||
+#7'TabStop'#8#0#0#7'TButton'#7'Button4'#4'Left'#3#16#2#6'Height'#2#25#3'Top'
|
||||
+#3'p'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#8'S'
|
||||
+'ave RTF'#7'OnClick'#7#12'Button4Click'#8'TabOrder'#2#4#7'TabStop'#8#0#0#7'T'
|
||||
+'Button'#7'Button5'#4'Left'#3#184#1#6'Height'#2#25#3'Top'#3'p'#1#5'Width'#2
|
||||
+'K'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#8'Load RTF'#7'OnClick'
|
||||
+#7#12'Button5Click'#8'TabOrder'#2#5#7'TabStop'#8#0#0#7'TButton'#7'Button6'#4
|
||||
+'Left'#2#16#6'Height'#2#25#3'Top'#3#144#1#5'Width'#3#160#0#7'Anchors'#11#6'a'
|
||||
+'kLeft'#8'akBottom'#0#7'Caption'#6#16'Next Style Range'#7'OnClick'#7#12'Butt'
|
||||
+'on6Click'#8'TabOrder'#2#6#7'TabStop'#8#0#0#7'TButton'#7'Button7'#4'Left'#2
|
||||
+#15#6'Height'#2#25#3'Top'#2#16#5'Width'#2'3'#7'Caption'#6#4'Left'#7'OnClick'
|
||||
+#7#12'Button7Click'#8'TabOrder'#2#7#0#0#7'TButton'#7'Button8'#4'Left'#2'H'#6
|
||||
+'Height'#2#25#3'Top'#2#16#5'Width'#2'5'#7'Caption'#6#6'Center'#7'OnClick'#7
|
||||
+#12'Button8Click'#8'TabOrder'#2#8#0#0#7'TButton'#7'Button9'#4'Left'#3#131#0#6
|
||||
+'Height'#2#25#3'Top'#2#16#5'Width'#2'5'#7'Caption'#6#5'Right'#7'OnClick'#7#12
|
||||
+'Button9Click'#8'TabOrder'#2#9#0#0#7'TButton'#8'Button10'#4'Left'#3#192#0#6
|
||||
+'Height'#2#25#3'Top'#2#16#5'Width'#2'5'#7'Caption'#6#7'Justify'#7'OnClick'#7
|
||||
+#13'Button10Click'#8'TabOrder'#2#10#0#0#14'TFloatSpinEdit'#10'StartIdent'#4
|
||||
+'Left'#3'X'#1#6'Height'#2#23#3'Top'#2#18#5'Width'#2'N'#9'Increment'#5#0#0#0#0
|
||||
+#0#0#0#128#255'?'#8'MaxValue'#5#0#0#0#0#0#0#0#200#5'@'#8'MinValue'#5#0#0#0#0
|
||||
+#0#0#0#200#5#192#8'OnChange'#7#16'StartIdentChange'#8'TabOrder'#2#11#5'Value'
|
||||
+#5#0#0#0#0#0#0#0#0#0#0#0#0#6'TLabel'#6'Label1'#4'Left'#3'0'#1#6'Height'#2#15
|
||||
+#3'Top'#2#18#5'Width'#2#27#7'Caption'#6#6'Start '#11'ParentColor'#8#0#0#6'TL'
|
||||
+'abel'#6'Label2'#4'Left'#3'0'#1#6'Height'#2#15#3'Top'#2'0'#5'Width'#2' '#7'C'
|
||||
+'aption'#6#6'Offset'#11'ParentColor'#8#0#0#14'TFloatSpinEdit'#11'OffsetIdent'
|
||||
+#4'Left'#3'X'#1#6'Height'#2#23#3'Top'#2'.'#5'Width'#2'N'#9'Increment'#5#0#0#0
|
||||
+#0#0#0#0#128#255'?'#8'MaxValue'#5#0#0#0#0#0#0#0#200#5'@'#8'MinValue'#5#0#0#0
|
||||
+#0#0#0#0#200#5#192#8'OnChange'#7#16'StartIdentChange'#8'TabOrder'#2#12#5'Val'
|
||||
+'ue'#5#0#0#0#0#0#0#0#0#0#0#0#0#7'TButton'#8'Button11'#4'Left'#2#16#6'Height'
|
||||
+#2#25#3'Top'#2'4'#5'Width'#2'K'#7'Caption'#6#6'Bullet'#7'OnClick'#7#13'Butto'
|
||||
+'n11Click'#8'TabOrder'#2#13#0#0#7'TButton'#8'Button12'#4'Left'#2'h'#6'Height'
|
||||
+#2#25#3'Top'#2'4'#5'Width'#2'K'#7'Caption'#6#6'Number'#7'OnClick'#7#13'Butto'
|
||||
+'n12Click'#8'TabOrder'#2#14#0#0#6'TLabel'#6'Label3'#4'Left'#2#16#6'Height'#2
|
||||
+#15#3'Top'#3#178#1#5'Width'#2'"'#7'Caption'#6#6'Label3'#11'ParentColor'#8#0#0
|
||||
+#11'TFontDialog'#11'FontDialog1'#11'MinFontSize'#2#0#11'MaxFontSize'#2#0#4'l'
|
||||
+'eft'#3'`'#1#3'top'#3#133#1#0#0#11'TSaveDialog'#11'SaveDialog1'#10'DefaultEx'
|
||||
+'t'#6#4'.rtf'#6'Filter'#6#27'RichText file (*.rtf)|*.rtf'#7'Options'#11#17'o'
|
||||
+'fOverwritePrompt'#14'ofEnableSizing'#12'ofViewDetail'#0#4'left'#3#24#1#3'to'
|
||||
+'p'#3#133#1#0#0#11'TOpenDialog'#11'OpenDialog1'#10'DefaultExt'#6#4'.rtf'#6'F'
|
||||
+'ilter'#6#27'RichText file (*.rtf)|*.rtf'#4'left'#3#208#0#3'top'#3#133#1#0#0
|
||||
+#0
|
||||
+'LVersion'#6#3'1.3'#0#9'TRichMemo'#9'RichMemo1'#4'Left'#2#15#6'Height'#3' '#1
|
||||
+#3'Top'#2'H'#5'Width'#3'a'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'a'
|
||||
+'kBottom'#0#11'Font.Height'#2#243#9'Font.Name'#6#6'Tahoma'#13'HideSelection'
|
||||
+#8#13'Lines.Strings'#1#6#9'RichMemo1'#0#8'OnChange'#7#15'RichMemo1Change'#7
|
||||
+'OnKeyUp'#7#14'RichMemo1KeyUp'#9'OnMouseUp'#7#16'RichMemo1MouseUp'#10'Parent'
|
||||
+'Font'#8#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#10'ZoomFactor'#5#0#0
|
||||
+#0#0#0#0#0#128#255'?'#0#0#7'TButton'#7'Button1'#4'Left'#2#16#6'Height'#2#25#3
|
||||
+'Top'#3'p'#1#5'Width'#3#160#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Captio'
|
||||
+'n'#6#17'Make Bold and Red'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#1#7
|
||||
+'TabStop'#8#0#0#7'TButton'#7'Button2'#4'Left'#3#192#0#6'Height'#2#25#3'Top'#3
|
||||
+'p'#1#5'Width'#2'a'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#11'Ge'
|
||||
+'t Attribs'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#2#7'TabStop'#8#0#0#7
|
||||
+'TButton'#7'Button3'#4'Left'#3'0'#1#6'Height'#2#25#3'Top'#3'p'#1#5'Width'#2
|
||||
+'`'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#11'Select Font'#7'OnC'
|
||||
+'lick'#7#12'Button3Click'#8'TabOrder'#2#3#7'TabStop'#8#0#0#7'TButton'#7'Butt'
|
||||
+'on4'#4'Left'#3#16#2#6'Height'#2#25#3'Top'#3'p'#1#5'Width'#2'K'#7'Anchors'#11
|
||||
+#6'akLeft'#8'akBottom'#0#7'Caption'#6#8'Save RTF'#7'OnClick'#7#12'Button4Cli'
|
||||
+'ck'#8'TabOrder'#2#4#7'TabStop'#8#0#0#7'TButton'#7'Button5'#4'Left'#3#184#1#6
|
||||
+'Height'#2#25#3'Top'#3'p'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8'akBottom'
|
||||
+#0#7'Caption'#6#8'Load RTF'#7'OnClick'#7#12'Button5Click'#8'TabOrder'#2#5#7
|
||||
+'TabStop'#8#0#0#7'TButton'#7'Button6'#4'Left'#2#16#6'Height'#2#25#3'Top'#3
|
||||
+#144#1#5'Width'#3#160#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#16
|
||||
+'Next Style Range'#7'OnClick'#7#12'Button6Click'#8'TabOrder'#2#6#7'TabStop'#8
|
||||
+#0#0#7'TButton'#7'Button7'#4'Left'#2#15#6'Height'#2#25#3'Top'#2#16#5'Width'#2
|
||||
+'3'#7'Caption'#6#4'Left'#7'OnClick'#7#12'Button7Click'#8'TabOrder'#2#7#0#0#7
|
||||
+'TButton'#7'Button8'#4'Left'#2'H'#6'Height'#2#25#3'Top'#2#16#5'Width'#2'5'#7
|
||||
+'Caption'#6#6'Center'#7'OnClick'#7#12'Button8Click'#8'TabOrder'#2#8#0#0#7'TB'
|
||||
+'utton'#7'Button9'#4'Left'#3#131#0#6'Height'#2#25#3'Top'#2#16#5'Width'#2'5'#7
|
||||
+'Caption'#6#5'Right'#7'OnClick'#7#12'Button9Click'#8'TabOrder'#2#9#0#0#7'TBu'
|
||||
+'tton'#8'Button10'#4'Left'#3#192#0#6'Height'#2#25#3'Top'#2#16#5'Width'#2'5'#7
|
||||
+'Caption'#6#7'Justify'#7'OnClick'#7#13'Button10Click'#8'TabOrder'#2#10#0#0#14
|
||||
+'TFloatSpinEdit'#10'StartIdent'#4'Left'#3'X'#1#6'Height'#2#21#3'Top'#2#18#5
|
||||
+'Width'#2'N'#9'Increment'#5#0#0#0#0#0#0#0#128#255'?'#8'MaxValue'#5#0#0#0#0#0
|
||||
+#0#0#200#5'@'#8'MinValue'#5#0#0#0#0#0#0#0#200#5#192#8'OnChange'#7#16'StartId'
|
||||
+'entChange'#8'TabOrder'#2#11#5'Value'#5#0#0#0#0#0#0#0#0#0#0#0#0#6'TLabel'#6
|
||||
+'Label1'#4'Left'#3'0'#1#6'Height'#2#13#3'Top'#2#18#5'Width'#2#27#7'Caption'#6
|
||||
+#6'Start '#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#3'0'#1#6'Height'
|
||||
+#2#13#3'Top'#2'0'#5'Width'#2#31#7'Caption'#6#6'Offset'#11'ParentColor'#8#0#0
|
||||
+#14'TFloatSpinEdit'#11'OffsetIdent'#4'Left'#3'X'#1#6'Height'#2#21#3'Top'#2'.'
|
||||
+#5'Width'#2'N'#9'Increment'#5#0#0#0#0#0#0#0#128#255'?'#8'MaxValue'#5#0#0#0#0
|
||||
+#0#0#0#200#5'@'#8'MinValue'#5#0#0#0#0#0#0#0#200#5#192#8'OnChange'#7#16'Start'
|
||||
+'IdentChange'#8'TabOrder'#2#12#5'Value'#5#0#0#0#0#0#0#0#0#0#0#0#0#6'TLabel'#6
|
||||
+'Label3'#4'Left'#2#16#6'Height'#2#13#3'Top'#3#178#1#5'Width'#2#31#7'Caption'
|
||||
+#6#6'Label3'#11'ParentColor'#8#0#0#11'TFontDialog'#11'FontDialog1'#11'MinFon'
|
||||
+'tSize'#2#0#11'MaxFontSize'#2#0#4'left'#3'`'#1#3'top'#3#133#1#0#0#11'TSaveDi'
|
||||
+'alog'#11'SaveDialog1'#10'DefaultExt'#6#4'.rtf'#6'Filter'#6#27'RichText file'
|
||||
+' (*.rtf)|*.rtf'#7'Options'#11#17'ofOverwritePrompt'#14'ofEnableSizing'#12'o'
|
||||
+'fViewDetail'#0#4'left'#3#24#1#3'top'#3#133#1#0#0#11'TOpenDialog'#11'OpenDia'
|
||||
+'log1'#10'DefaultExt'#6#4'.rtf'#6'Filter'#6#27'RichText file (*.rtf)|*.rtf'#4
|
||||
+'left'#3#208#0#3'top'#3#133#1#0#0#0
|
||||
]);
|
||||
|
||||
@ -16,8 +16,6 @@ type
|
||||
TForm1 = class(TForm)
|
||||
Button1: TButton;
|
||||
Button10: TButton;
|
||||
Button11: TButton;
|
||||
Button12: TButton;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
Button4: TButton;
|
||||
@ -85,19 +83,11 @@ begin
|
||||
end;
|
||||
|
||||
procedure TForm1.Button11Click(Sender: TObject);
|
||||
var
|
||||
Num : TParaNumbering;
|
||||
begin
|
||||
Num.Numbering:=TParaNumStyle(1);
|
||||
RichMemo1.SetParaNumbering(RichMemo1.SelStart, RichMEmo1.SelLength, Num);
|
||||
end;
|
||||
|
||||
procedure TForm1.Button12Click(Sender: TObject);
|
||||
var
|
||||
Num : TParaNumbering;
|
||||
begin
|
||||
Num.Numbering:=TParaNumStyle(2);
|
||||
RichMemo1.SetParaNumbering(RichMemo1.SelStart, RichMEmo1.SelLength, Num);
|
||||
end;
|
||||
|
||||
procedure TForm1.Button2Click(Sender: TObject);
|
||||
|
||||
Reference in New Issue
Block a user