{* * @(#) sdesignf.txt - System Designer program ('file view' form description). * (c) 1997 Ivan Maidanski http://ivmai.chat.ru * Freeware program source. All rights reserved. ** * Language: Delphi Form textual description * Tested with: Borland Delphi DeskTop 2.01 for Windows 95 * Last modified: 1997-04-18 14:35:00 GMT+04:00 *} object ProjectForm: TProjectForm Left = 202 Top = 102 ActiveControl = DataBaseView AutoScroll = False ClientHeight = 268 ClientWidth = 392 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poDefaultPosOnly Visible = True OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnResize = FormResize PixelsPerInch = 120 TextHeight = 16 object DataBaseView: TTreeView Left = 0 Top = 0 Width = 200 Height = 248 Indent = 19 OnEdited = EndEditing OnChange = SelectorChanged Align = alLeft ParentColor = False TabOrder = 0 end object StatusLine: TStatusBar Left = 0 Top = 248 Width = 392 Height = 20 Panels = <> ParentShowHint = False ShowHint = False SimplePanel = True end object ItemView: TListView Left = 200 Top = 0 Width = 192 Height = 248 Align = alClient Columns = < item Caption = 'Name' Width = 90 end item Caption = 'Value' Width = 95 end> ReadOnly = False Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [fsItalic] IconOptions.WrapText = False SortType = stText TabOrder = 1 ViewStyle = vsReport end object SaveDlg: TSaveDialog DefaultExt = 'txt' FileEditStyle = fsEdit FileName = 'Untitled' Filter = 'Text files (*.txt)|*.txt' Options = [ofOverwritePrompt, ofHideReadOnly, ofShowHelp] end object FindDlg: TFindDialog Options = [frDown, frShowHelp] Left = 32 end end