
* added SaveRTFFile function to utilities * modified IDE RTF editor to allow saving a file git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5305 8e941d3f-bd1b-0410-a28a-d453659cc2b4
306 lines
11 KiB
Plaintext
306 lines
11 KiB
Plaintext
object RTFEditDialog: TRTFEditDialog
|
|
Left = 395
|
|
Height = 275
|
|
Top = 269
|
|
Width = 538
|
|
Caption = 'Rich Text Edit Dialog'
|
|
ClientHeight = 275
|
|
ClientWidth = 538
|
|
LCLVersion = '1.7'
|
|
object btnLoad: TButton
|
|
Left = 8
|
|
Height = 25
|
|
Top = 243
|
|
Width = 75
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Load'
|
|
OnClick = btnLoadClick
|
|
TabOrder = 1
|
|
end
|
|
object btnClear: TButton
|
|
Left = 168
|
|
Height = 25
|
|
Top = 243
|
|
Width = 75
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Clear'
|
|
OnClick = btnClearClick
|
|
TabOrder = 3
|
|
end
|
|
object RichMemo1: TRichMemo
|
|
Left = 8
|
|
Height = 197
|
|
Top = 40
|
|
Width = 522
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
HideSelection = False
|
|
Lines.Strings = (
|
|
'RichMemo1'
|
|
)
|
|
OnChange = RichMemo1Change
|
|
ScrollBars = ssAutoBoth
|
|
TabOrder = 0
|
|
ZoomFactor = 1
|
|
end
|
|
object btnOk: TButton
|
|
Left = 376
|
|
Height = 25
|
|
Top = 243
|
|
Width = 75
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'OK'
|
|
ModalResult = 1
|
|
TabOrder = 4
|
|
end
|
|
object btnCancel: TButton
|
|
Left = 455
|
|
Height = 25
|
|
Top = 243
|
|
Width = 75
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 5
|
|
end
|
|
object btnJA: TSpeedButton
|
|
Left = 288
|
|
Height = 22
|
|
Top = 8
|
|
Width = 31
|
|
Glyph.Data = {
|
|
36030000424D3603000000000000360000002800000010000000100000000100
|
|
1800000000000003000064000000640000000000000000000000FFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
}
|
|
GroupIndex = 1
|
|
OnClick = btnJAClick
|
|
end
|
|
object btnCA: TSpeedButton
|
|
Left = 224
|
|
Height = 22
|
|
Top = 8
|
|
Width = 32
|
|
Glyph.Data = {
|
|
36030000424D3603000000000000360000002800000010000000100000000100
|
|
1800000000000003000064000000640000000000000000000000FFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000
|
|
0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000
|
|
0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000
|
|
0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
}
|
|
GroupIndex = 1
|
|
OnClick = btnCAClick
|
|
end
|
|
object btnLA: TSpeedButton
|
|
Left = 192
|
|
Height = 22
|
|
Top = 8
|
|
Width = 32
|
|
Glyph.Data = {
|
|
36030000424D3603000000000000360000002800000010000000100000000100
|
|
1800000000000003000064000000640000000000000000000000FFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
}
|
|
GroupIndex = 1
|
|
OnClick = btnLAClick
|
|
ParentBidiMode = False
|
|
end
|
|
object btnRA: TSpeedButton
|
|
Left = 256
|
|
Height = 22
|
|
Top = 8
|
|
Width = 32
|
|
Glyph.Data = {
|
|
36030000424D3603000000000000360000002800000010000000100000000100
|
|
1800000000000003000064000000640000000000000000000000FFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
}
|
|
GroupIndex = 1
|
|
OnClick = btnRAClick
|
|
end
|
|
object btnBold: TSpeedButton
|
|
Left = 112
|
|
Height = 22
|
|
Top = 8
|
|
Width = 23
|
|
Caption = 'B'
|
|
OnClick = btnBoldClick
|
|
end
|
|
object btnItalic: TSpeedButton
|
|
Left = 136
|
|
Height = 22
|
|
Top = 8
|
|
Width = 23
|
|
Caption = 'I'
|
|
OnClick = btnItalicClick
|
|
end
|
|
object btnUnderline: TSpeedButton
|
|
Left = 160
|
|
Height = 22
|
|
Top = 8
|
|
Width = 23
|
|
Caption = 'U'
|
|
OnClick = btnUnderlineClick
|
|
end
|
|
object btnFont: TSpeedButton
|
|
Left = 8
|
|
Height = 22
|
|
Top = 8
|
|
Width = 48
|
|
Caption = 'Font'
|
|
OnClick = btnFontClick
|
|
end
|
|
object btnColor: TSpeedButton
|
|
Left = 56
|
|
Height = 22
|
|
Top = 8
|
|
Width = 48
|
|
Caption = 'Color'
|
|
OnClick = btnColorClick
|
|
end
|
|
object btnSave: TButton
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 88
|
|
Height = 25
|
|
Top = 243
|
|
Width = 75
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Save'
|
|
OnClick = btnSaveClick
|
|
TabOrder = 2
|
|
end
|
|
object RtfOpenDialog: TOpenDialog
|
|
Filter = 'Rich-text file (*.rtf)|*.rtf|Any file (*.*)|*.*'
|
|
left = 32
|
|
top = 168
|
|
end
|
|
object ColorDialog1: TColorDialog
|
|
Color = clBlack
|
|
CustomColors.Strings = (
|
|
'ColorA=000000'
|
|
'ColorB=000080'
|
|
'ColorC=008000'
|
|
'ColorD=008080'
|
|
'ColorE=800000'
|
|
'ColorF=800080'
|
|
'ColorG=808000'
|
|
'ColorH=808080'
|
|
'ColorI=C0C0C0'
|
|
'ColorJ=0000FF'
|
|
'ColorK=00FF00'
|
|
'ColorL=00FFFF'
|
|
'ColorM=FF0000'
|
|
'ColorN=FF00FF'
|
|
'ColorO=FFFF00'
|
|
'ColorP=FFFFFF'
|
|
'ColorQ=C0DCC0'
|
|
'ColorR=F0CAA6'
|
|
'ColorS=F0FBFF'
|
|
'ColorT=A4A0A0'
|
|
)
|
|
left = 32
|
|
top = 112
|
|
end
|
|
object FontDialog1: TFontDialog
|
|
MinFontSize = 0
|
|
MaxFontSize = 0
|
|
left = 32
|
|
top = 64
|
|
end
|
|
object RtfSaveDialog: TSaveDialog
|
|
Filter = 'Rich-text file (*.rtf)|*.rtf'
|
|
Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
|
|
left = 120
|
|
top = 168
|
|
end
|
|
end
|