Componentes.Terceros.jvcl/official/3.36/examples/JvDBExplorer/EDITSTR.DFM
2009-02-27 12:23:32 +00:00

204 lines
5.5 KiB
Plaintext

object StrEditDlg: TJvStrEditDlg
Left = 207
Top = 107
Width = 487
Height = 322
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poDefaultPosOnly
ShowHint = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 264
Width = 479
Height = 31
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object Panel2: TPanel
Left = 304
Top = 0
Width = 175
Height = 31
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object OkBtn: TBitBtn
Left = 7
Top = 0
Width = 77
Height = 25
Caption = 'OK'
TabOrder = 0
OnClick = OkBtnClick
Glyph.Data = {
46010000424D460100000000000076000000280000001C0000000D0000000100
040000000000D000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333330000333333333333333333F3333333330000333303333333
33333F3F3333333300003330003333333333F333F33333330000330000033333
333F33333F33333300003000300033333383333333F333330000300333000333
338333F8333F33330000333333300033333888338333F3330000333333330003
3333333338333F33000033333333300033333333338333F30000333333333300
3333333333383383000033333333333333333333333388330000333333333333
33333333333333330000}
Margin = 4
NumGlyphs = 2
Spacing = -1
end
object CancelBtn: TBitBtn
Left = 91
Top = 0
Width = 77
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
Glyph.Data = {
46010000424D460100000000000076000000280000001C0000000D0000000100
040000000000D000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333000033333333333333333FF33333FF330000333003333300
3333833F333833F3000033300033300033338333F38333F30000333300030003
3333383338333F330000333330000033333333833333F3330000333333000333
33333338333F33330000333330000033333333833333F3330000333300030003
3333383338333F33000033300033300033338333F38333F30000333003333300
3333833F333833F3000033333333333333333883333388330000333333333333
33333333333333330000}
Margin = 4
NumGlyphs = 2
Spacing = -1
end
end
object LoadBtn: TBitBtn
Left = 9
Top = 0
Width = 77
Height = 25
Caption = '&Load...'
TabOrder = 1
OnClick = FileOpen
end
object SaveBtn: TBitBtn
Left = 93
Top = 0
Width = 77
Height = 25
Caption = '&Save as...'
TabOrder = 2
OnClick = SaveBtnClick
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 479
Height = 26
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object LineCount: TLabel
Left = 14
Top = 9
Width = 169
Height = 17
AutoSize = False
Caption = '0 lines'
end
object Panel4: TPanel
Left = 276
Top = 0
Width = 203
Height = 26
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object DBNavigator: TDBNavigator
Left = 104
Top = 5
Width = 88
Height = 21
DataSource = DataSource
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 0
end
object PlainTextCheck: TCheckBox
Left = 24
Top = 7
Width = 77
Height = 17
Caption = 'Text only'
State = cbChecked
TabOrder = 1
OnClick = PlainTextCheckClick
end
end
end
object Panel5: TPanel
Left = 0
Top = 26
Width = 479
Height = 238
Align = alClient
BevelOuter = bvNone
BorderWidth = 10
TabOrder = 2
object Memo: TJvDBRichEdit
Left = 10
Top = 10
Width = 459
Height = 218
DataSource = DataSource
Align = alClient
PlainText = True
ScrollBars = ssBoth
TabOrder = 0
OnChange = MemoChange
OnKeyDown = MemoKeyDown
end
end
object OpenDialog: TOpenDialog
DefaultExt = 'TXT'
FileEditStyle = fsEdit
Filter =
'Text files (*.TXT)|*.TXT|RichText files (*.*)|*.RTF|All files (*' +
'.*)|*.*'
Options = [ofHideReadOnly, ofShowHelp, ofPathMustExist, ofFileMustExist]
Title = 'Load text file'
Left = 76
Top = 40
end
object SaveDialog: TSaveDialog
DefaultExt = 'TXT'
FileEditStyle = fsEdit
Filter =
'Text files (*.TXT)|*.TXT|RichText files (*.*)|*.RTF|All files (*' +
'.*)|*.*'
Options = [ofOverwritePrompt, ofCreatePrompt]
Title = 'Save as'
Left = 104
Top = 40
end
object DataSource: TDataSource
OnDataChange = DataSourceDataChange
Left = 20
Top = 40
end
object FormPlacement: TJvFormStorage
MinMaxInfo.MinTrackHeight = 150
MinMaxInfo.MinTrackWidth = 360
StoredProps.Strings = (
'Memo.PlainText')
Left = 48
Top = 40
end
end