From 77610e63ca5e183b5a68c7bc66b33ca7cea2a77b Mon Sep 17 00:00:00 2001 From: skalogryz Date: Tue, 23 Dec 2014 14:14:10 +0000 Subject: [PATCH] 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 --- .../richmemo/samples/testsimple/unit1.lfm | 39 ++----- .../richmemo/samples/testsimple/unit1.lrs | 104 +++++++++--------- .../richmemo/samples/testsimple/unit1.pas | 10 -- 3 files changed, 61 insertions(+), 92 deletions(-) diff --git a/components/richmemo/samples/testsimple/unit1.lfm b/components/richmemo/samples/testsimple/unit1.lfm index 8c5210d76..365d6de64 100644 --- a/components/richmemo/samples/testsimple/unit1.lfm +++ b/components/richmemo/samples/testsimple/unit1.lfm @@ -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 diff --git a/components/richmemo/samples/testsimple/unit1.lrs b/components/richmemo/samples/testsimple/unit1.lrs index 0b44555e6..08c621bb6 100644 --- a/components/richmemo/samples/testsimple/unit1.lrs +++ b/components/richmemo/samples/testsimple/unit1.lrs @@ -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 ]); diff --git a/components/richmemo/samples/testsimple/unit1.pas b/components/richmemo/samples/testsimple/unit1.pas index b762946fe..2e7d1d9ca 100644 --- a/components/richmemo/samples/testsimple/unit1.pas +++ b/components/richmemo/samples/testsimple/unit1.pas @@ -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);