01.03.2005 Кодировка : Windows(кириллица) http://spcalc.narod.ru/download/spfsformdesign.zip Компонент TSP_fs_FormDesign (Delphi-5). Версия 1.01 от 01.03.2005 Freeware (c) : Sergey Popov, Usinsk, Komi, 2005 e-mail : sapopov@mail.ru http : spcalc.narod.ru Назначение : Разработка ФОРМ для FastScript (Fast Reports Inc.) с использованием среды Delphi-5. ================================================== Исходный текст, сгенерированный компонентом TSP_fs_FormDesign. -------------------------------------------------------------- #language PascalScript //TSP_fs_FormDesign.CreateScript_FormDesign_For_FS //About : Этот текст сгенерирован компонентом TSP_fs_FormDesign (Delphi-5) //Version : 1.01 (01.03.2005) for FastScript-1.4 (Freeware) //(c) : Sergey Popov, Usinsk, Komi, 2005 //e-mail : sapopov@mail.ru //http : sapopov.kominet.ru //Comment : Пример исходного кода (создающего форму и визуальные компоненты) для FastScript-1.4 //Date : 01.03.2005 17:34:11 //............................................ //............................................ //Список переменных Var NrRes : integer; //Возвращаемое значение, если ShowModal FormMain : TForm; //Создаваемая форма Panel1 : TPanel; OkBtn : TButton; CancelBtn : TButton; Panel2 : TPanel; Splitter1 : TSplitter; Panel3 : TPanel; Splitter2 : TSplitter; GroupBox1 : TGroupBox; Memo_Res : TMemo; Panel4 : TPanel; Splitter3 : TSplitter; GroupBox2 : TGroupBox; Label1 : TLabel; SpeedButton1 : TSpeedButton; Edit1 : TEdit; CheckBox1 : TCheckBox; Panel5 : TPanel; Splitter4 : TSplitter; ListBox1 : TListBox; CheckBox2 : TCheckBox; RadioButton1 : TRadioButton; RadioButton2 : TRadioButton; GroupBox3 : TGroupBox; Memo1 : TMemo; //............................................ //************************************* //Обработчики событий для элементов управления на форме //...................................... //Panel1 procedure Panel1_Click(Sender: TPanel); //Event : OnClick begin end; procedure Panel1_DblClick(Sender: TPanel); //Event : OnDblClick begin end; procedure Panel1_MouseMove(Sender: TPanel); //Event : OnMouseMove begin end; //...................................... //...................................... //OkBtn procedure OkBtn_Click(Sender: TButton); //Event : OnClick begin end; procedure OkBtn_MouseMove(Sender: TButton); //Event : OnMouseMove begin end; //...................................... //...................................... //CancelBtn procedure CancelBtn_Click(Sender: TButton); //Event : OnClick begin end; procedure CancelBtn_MouseMove(Sender: TButton); //Event : OnMouseMove begin end; //...................................... //...................................... //Panel2 procedure Panel2_Click(Sender: TPanel); //Event : OnClick begin end; procedure Panel2_DblClick(Sender: TPanel); //Event : OnDblClick begin end; procedure Panel2_MouseMove(Sender: TPanel); //Event : OnMouseMove begin end; //...................................... //...................................... //Panel3 procedure Panel3_Click(Sender: TPanel); //Event : OnClick begin end; procedure Panel3_DblClick(Sender: TPanel); //Event : OnDblClick begin end; procedure Panel3_MouseMove(Sender: TPanel); //Event : OnMouseMove begin end; //...................................... //...................................... //GroupBox1 procedure GroupBox1_Click(Sender: TGroupBox); //Event : OnClick begin end; procedure GroupBox1_DblClick(Sender: TGroupBox); //Event : OnDblClick begin end; procedure GroupBox1_MouseMove(Sender: TGroupBox); //Event : OnMouseMove begin end; //...................................... //...................................... //Memo_Res procedure Memo_Res_Click(Sender: TMemo); //Event : OnClick begin end; procedure Memo_Res_DblClick(Sender: TMemo); //Event : OnDblClick begin end; procedure Memo_Res_MouseMove(Sender: TMemo); //Event : OnMouseMove begin end; procedure Memo_Res_Enter(Sender: TMemo); //Event : OnEnter begin end; procedure Memo_Res_Exit(Sender: TMemo); //Event : OnExit begin end; //...................................... //...................................... //Panel4 procedure Panel4_Click(Sender: TPanel); //Event : OnClick begin end; procedure Panel4_DblClick(Sender: TPanel); //Event : OnDblClick begin end; procedure Panel4_MouseMove(Sender: TPanel); //Event : OnMouseMove begin end; //...................................... //...................................... //GroupBox2 procedure GroupBox2_Click(Sender: TGroupBox); //Event : OnClick begin end; procedure GroupBox2_DblClick(Sender: TGroupBox); //Event : OnDblClick begin end; procedure GroupBox2_MouseMove(Sender: TGroupBox); //Event : OnMouseMove begin end; //...................................... //...................................... //Label1 procedure Label1_Click(Sender: TLabel); //Event : OnClick begin end; procedure Label1_DblClick(Sender: TLabel); //Event : OnDblClick begin end; //...................................... //...................................... //SpeedButton1 procedure SpeedButton1_Click(Sender: TSpeedButton); //Event : OnClick begin end; procedure SpeedButton1_MouseMove(Sender: TSpeedButton); //Event : OnMouseMove begin end; //...................................... //...................................... //Edit1 procedure Edit1_Click(Sender: TEdit); //Event : OnClick begin end; procedure Edit1_DblClick(Sender: TEdit); //Event : OnDblClick begin end; procedure Edit1_MouseMove(Sender: TEdit); //Event : OnMouseMove begin end; procedure Edit1_Enter(Sender: TEdit); //Event : OnEnter begin end; procedure Edit1_Exit(Sender: TEdit); //Event : OnExit begin end; //...................................... //...................................... //CheckBox1 procedure CheckBox1_Click(Sender: TCheckBox); //Event : OnClick begin end; procedure CheckBox1_MouseMove(Sender: TCheckBox); //Event : OnMouseMove begin end; procedure CheckBox1_Enter(Sender: TCheckBox); //Event : OnEnter begin end; procedure CheckBox1_Exit(Sender: TCheckBox); //Event : OnExit begin end; //...................................... //...................................... //Panel5 procedure Panel5_Click(Sender: TPanel); //Event : OnClick begin end; procedure Panel5_DblClick(Sender: TPanel); //Event : OnDblClick begin end; procedure Panel5_MouseMove(Sender: TPanel); //Event : OnMouseMove begin end; //...................................... //...................................... //ListBox1 procedure ListBox1_Click(Sender: TListBox); //Event : OnClick begin end; procedure ListBox1_DblClick(Sender: TListBox); //Event : OnDblClick begin end; procedure ListBox1_MouseMove(Sender: TListBox); //Event : OnMouseMove begin end; procedure ListBox1_Enter(Sender: TListBox); //Event : OnEnter begin end; procedure ListBox1_Exit(Sender: TListBox); //Event : OnExit begin end; //...................................... //...................................... //CheckBox2 procedure CheckBox2_Click(Sender: TCheckBox); //Event : OnClick begin end; procedure CheckBox2_MouseMove(Sender: TCheckBox); //Event : OnMouseMove begin end; procedure CheckBox2_Enter(Sender: TCheckBox); //Event : OnEnter begin end; procedure CheckBox2_Exit(Sender: TCheckBox); //Event : OnExit begin end; //...................................... //...................................... //RadioButton1 procedure RadioButton1_Click(Sender: TRadioButton); //Event : OnClick begin end; procedure RadioButton1_MouseMove(Sender: TRadioButton); //Event : OnMouseMove begin end; procedure RadioButton1_Enter(Sender: TRadioButton); //Event : OnEnter begin end; procedure RadioButton1_Exit(Sender: TRadioButton); //Event : OnExit begin end; //...................................... //...................................... //RadioButton2 procedure RadioButton2_Click(Sender: TRadioButton); //Event : OnClick begin end; procedure RadioButton2_MouseMove(Sender: TRadioButton); //Event : OnMouseMove begin end; procedure RadioButton2_Enter(Sender: TRadioButton); //Event : OnEnter begin end; procedure RadioButton2_Exit(Sender: TRadioButton); //Event : OnExit begin end; //...................................... //...................................... //GroupBox3 procedure GroupBox3_Click(Sender: TGroupBox); //Event : OnClick begin end; procedure GroupBox3_DblClick(Sender: TGroupBox); //Event : OnDblClick begin end; procedure GroupBox3_MouseMove(Sender: TGroupBox); //Event : OnMouseMove begin end; //...................................... //...................................... //Memo1 procedure Memo1_Click(Sender: TMemo); //Event : OnClick begin end; procedure Memo1_DblClick(Sender: TMemo); //Event : OnDblClick begin end; procedure Memo1_MouseMove(Sender: TMemo); //Event : OnMouseMove begin end; procedure Memo1_Enter(Sender: TMemo); //Event : OnEnter begin end; procedure Memo1_Exit(Sender: TMemo); //Event : OnExit begin end; //...................................... //************************************* //======================== procedure Free_FormMain; //Освобождаем ресурсы ... begin TRY if FormMain<>NIL then begin FormMain.Free; FormMain:=NIL; end; FINALLY END; end; //Free_FormMain //======================== //======================== function Create_FormMain : TForm; //Создаем форму и соотв. компоненты на ней ... Var Yes : boolean; begin Yes := FALSE; Result := TForm.Create(nil); TRY //------------------------ //Свойства формы Result.Caption := 'Пример разработки формы (Delphi-5) для пакета FastScript-1.4 '; Result.Left := 209; Result.Top := 121; Result.Width := 606; Result.Height := 526; Result.FormStyle := fsNormal; Result.Position := poDesigned; Result.BorderStyle := bsDialog; Result.BorderWidth := 0; Result.WindowState := wsNormal; Result.Color := clBtnFace; Result.Font.Name := 'MS Sans Serif'; Result.Font.Size := 8; Result.Font.Color := clWindowText; Result.Font.CharSet := 1; //------------------------ //...................................... //Panel1 Panel1 := TPanel.Create(Result); Panel1.Parent := Result; Panel1.Left := 0; Panel1.Top := 472; Panel1.Width := 600; Panel1.Height := 29; Panel1.Visible := TRUE; Panel1.Tag := 0; Panel1.Enabled := TRUE; Panel1.Hint := ''; Panel1.ShowHint := FALSE; Panel1.Caption := ''; Panel1.Align := alBottom; Panel1.Color := clBtnFace; Panel1.Font.Name := 'MS Sans Serif'; Panel1.Font.Size := 8; Panel1.Font.Color := clWindowText; Panel1.Font.CharSet := 1; Panel1.BevelWidth := 1; Panel1.BorderWidth := 0; Panel1.BevelInner := bvLowered; Panel1.BevelOuter := bvLowered; Panel1.TabOrder := 0; Panel1.TabStop := FALSE; Panel1.AutoSize := FALSE; Panel1.OnClick := @Panel1_Click; Panel1.OnDblClick := @Panel1_DblClick; Panel1.OnMouseMove := @Panel1_MouseMove; //...................................... //...................................... //OkBtn OkBtn := TButton.Create(Result); OkBtn.Parent := Panel1; OkBtn.Left := 8; OkBtn.Top := 2; OkBtn.Width := 75; OkBtn.Height := 25; OkBtn.Visible := TRUE; OkBtn.Tag := 0; OkBtn.Enabled := TRUE; OkBtn.Hint := ''; OkBtn.ShowHint := FALSE; OkBtn.Caption := 'OkBtn'; OkBtn.Font.Name := 'MS Sans Serif'; OkBtn.Font.Size := 8; OkBtn.Font.Color := clWindowText; OkBtn.Font.CharSet := 1; OkBtn.TabOrder := 0; OkBtn.TabStop := TRUE; OkBtn.Cancel := FALSE; OkBtn.ModalResult := 1; OkBtn.OnClick := @OkBtn_Click; OkBtn.OnMouseMove := @OkBtn_MouseMove; //...................................... //...................................... //CancelBtn CancelBtn := TButton.Create(Result); CancelBtn.Parent := Panel1; CancelBtn.Left := 112; CancelBtn.Top := 2; CancelBtn.Width := 75; CancelBtn.Height := 25; CancelBtn.Visible := TRUE; CancelBtn.Tag := 0; CancelBtn.Enabled := TRUE; CancelBtn.Hint := ''; CancelBtn.ShowHint := FALSE; CancelBtn.Caption := 'CancelBtn'; CancelBtn.Font.Name := 'MS Sans Serif'; CancelBtn.Font.Size := 8; CancelBtn.Font.Color := clWindowText; CancelBtn.Font.CharSet := 1; CancelBtn.TabOrder := 1; CancelBtn.TabStop := TRUE; CancelBtn.Cancel := TRUE; CancelBtn.ModalResult := 2; CancelBtn.OnClick := @CancelBtn_Click; CancelBtn.OnMouseMove := @CancelBtn_MouseMove; //...................................... //...................................... //Panel2 Panel2 := TPanel.Create(Result); Panel2.Parent := Result; Panel2.Left := 0; Panel2.Top := 0; Panel2.Width := 600; Panel2.Height := 472; Panel2.Visible := TRUE; Panel2.Tag := 0; Panel2.Enabled := TRUE; Panel2.Hint := ''; Panel2.ShowHint := FALSE; Panel2.Caption := ''; Panel2.Align := alClient; Panel2.Color := clBtnFace; Panel2.Font.Name := 'MS Sans Serif'; Panel2.Font.Size := 8; Panel2.Font.Color := clWindowText; Panel2.Font.CharSet := 1; Panel2.BevelWidth := 1; Panel2.BorderWidth := 0; Panel2.BevelInner := bvRaised; Panel2.BevelOuter := bvRaised; Panel2.TabOrder := 1; Panel2.TabStop := FALSE; Panel2.AutoSize := FALSE; Panel2.OnClick := @Panel2_Click; Panel2.OnDblClick := @Panel2_DblClick; Panel2.OnMouseMove := @Panel2_MouseMove; //...................................... //...................................... //Splitter1 Splitter1 := TSplitter.Create(Result); Splitter1.Parent := Panel2; Splitter1.Align := alTop; Splitter1.Color := clNavy; Splitter1.Left := 2; Splitter1.Top := 225; Splitter1.Width := 596; Splitter1.Height := 3; Splitter1.Visible := TRUE; Splitter1.Tag := 0; //...................................... //...................................... //Panel3 Panel3 := TPanel.Create(Result); Panel3.Parent := Panel2; Panel3.Left := 2; Panel3.Top := 228; Panel3.Width := 596; Panel3.Height := 242; Panel3.Visible := TRUE; Panel3.Tag := 0; Panel3.Enabled := TRUE; Panel3.Hint := ''; Panel3.ShowHint := FALSE; Panel3.Caption := ''; Panel3.Align := alClient; Panel3.Color := clBtnFace; Panel3.Font.Name := 'MS Sans Serif'; Panel3.Font.Size := 8; Panel3.Font.Color := clWindowText; Panel3.Font.CharSet := 1; Panel3.BevelWidth := 1; Panel3.BorderWidth := 0; Panel3.BevelInner := bvLowered; Panel3.BevelOuter := bvLowered; Panel3.TabOrder := 0; Panel3.TabStop := FALSE; Panel3.AutoSize := FALSE; Panel3.OnClick := @Panel3_Click; Panel3.OnDblClick := @Panel3_DblClick; Panel3.OnMouseMove := @Panel3_MouseMove; //...................................... //...................................... //Splitter2 Splitter2 := TSplitter.Create(Result); Splitter2.Parent := Panel3; Splitter2.Align := alTop; Splitter2.Color := clRed; Splitter2.Left := 2; Splitter2.Top := 134; Splitter2.Width := 592; Splitter2.Height := 3; Splitter2.Visible := TRUE; Splitter2.Tag := 0; //...................................... //...................................... //GroupBox1 GroupBox1 := TGroupBox.Create(Result); GroupBox1.Parent := Panel3; GroupBox1.Left := 2; GroupBox1.Top := 137; GroupBox1.Width := 592; GroupBox1.Height := 103; GroupBox1.Visible := TRUE; GroupBox1.Tag := 0; GroupBox1.Enabled := TRUE; GroupBox1.Hint := ''; GroupBox1.ShowHint := FALSE; GroupBox1.Caption := 'Результат генерации кода : '; GroupBox1.Align := alClient; GroupBox1.Color := clBtnFace; GroupBox1.Font.Name := 'MS Sans Serif'; GroupBox1.Font.Size := 8; GroupBox1.Font.Color := clWindowText; GroupBox1.Font.CharSet := 1; GroupBox1.TabOrder := 0; GroupBox1.TabStop := FALSE; GroupBox1.OnClick := @GroupBox1_Click; GroupBox1.OnDblClick := @GroupBox1_DblClick; GroupBox1.OnMouseMove := @GroupBox1_MouseMove; //...................................... //...................................... //Memo_Res Memo_Res := TMemo.Create(Result); Memo_Res.Parent := GroupBox1; Memo_Res.Left := 2; Memo_Res.Top := 15; Memo_Res.Width := 588; Memo_Res.Height := 86; Memo_Res.Visible := TRUE; Memo_Res.Tag := 0; Memo_Res.Enabled := TRUE; Memo_Res.Hint := ''; Memo_Res.ShowHint := FALSE; Memo_Res.Font.Name := 'Courier New'; Memo_Res.Font.Size := 8; Memo_Res.Font.Color := clWindowText; Memo_Res.Color := clWindow; Memo_Res.TabOrder := 0; Memo_Res.TabStop := TRUE; Memo_Res.Align := alClient; Memo_Res.WordWrap := TRUE; Memo_Res.Alignment := taLeftJustify; Memo_Res.WantTabs := FALSE; Memo_Res.WantReturns := TRUE; Memo_Res.HideSelection := TRUE; Memo_Res.MaxLength := 0; Memo_Res.OEMConvert := FALSE; Memo_Res.ReadOnly := FALSE; Memo_Res.ScrollBars := ssBoth; Memo_Res.OnClick := @Memo_Res_Click; Memo_Res.OnDblClick := @Memo_Res_DblClick; Memo_Res.OnMouseMove := @Memo_Res_MouseMove; Memo_Res.OnEnter := @Memo_Res_Enter; Memo_Res.OnExit := @Memo_Res_Exit; //...................................... //...................................... //Panel4 Panel4 := TPanel.Create(Result); Panel4.Parent := Panel3; Panel4.Left := 2; Panel4.Top := 2; Panel4.Width := 592; Panel4.Height := 132; Panel4.Visible := TRUE; Panel4.Tag := 0; Panel4.Enabled := TRUE; Panel4.Hint := ''; Panel4.ShowHint := FALSE; Panel4.Caption := ''; Panel4.Align := alTop; Panel4.Color := clBtnFace; Panel4.Font.Name := 'MS Sans Serif'; Panel4.Font.Size := 8; Panel4.Font.Color := clWindowText; Panel4.Font.CharSet := 1; Panel4.BevelWidth := 1; Panel4.BorderWidth := 0; Panel4.BevelInner := bvNone; Panel4.BevelOuter := bvRaised; Panel4.TabOrder := 1; Panel4.TabStop := FALSE; Panel4.AutoSize := FALSE; Panel4.OnClick := @Panel4_Click; Panel4.OnDblClick := @Panel4_DblClick; Panel4.OnMouseMove := @Panel4_MouseMove; //...................................... //...................................... //Splitter3 Splitter3 := TSplitter.Create(Result); Splitter3.Parent := Panel4; Splitter3.Align := alLeft; Splitter3.Color := clBlue; Splitter3.Left := 297; Splitter3.Top := 1; Splitter3.Width := 3; Splitter3.Height := 130; Splitter3.Visible := TRUE; Splitter3.Tag := 0; //...................................... //...................................... //GroupBox2 GroupBox2 := TGroupBox.Create(Result); GroupBox2.Parent := Panel4; GroupBox2.Left := 1; GroupBox2.Top := 1; GroupBox2.Width := 296; GroupBox2.Height := 130; GroupBox2.Visible := TRUE; GroupBox2.Tag := 0; GroupBox2.Enabled := TRUE; GroupBox2.Hint := ''; GroupBox2.ShowHint := FALSE; GroupBox2.Caption := 'GroupBox2'; GroupBox2.Align := alLeft; GroupBox2.Color := clBtnFace; GroupBox2.Font.Name := 'MS Sans Serif'; GroupBox2.Font.Size := 8; GroupBox2.Font.Color := clWindowText; GroupBox2.Font.CharSet := 1; GroupBox2.TabOrder := 0; GroupBox2.TabStop := FALSE; GroupBox2.OnClick := @GroupBox2_Click; GroupBox2.OnDblClick := @GroupBox2_DblClick; GroupBox2.OnMouseMove := @GroupBox2_MouseMove; //...................................... //...................................... //Label1 Label1 := TLabel.Create(Result); Label1.Parent := GroupBox2; Label1.Left := 8; Label1.Top := 24; Label1.Width := 32; Label1.Height := 13; Label1.Visible := TRUE; Label1.Tag := 0; Label1.Enabled := TRUE; Label1.Hint := ''; Label1.ShowHint := FALSE; Label1.Caption := 'Label1'; Label1.Transparent := FALSE; Label1.WordWrap := FALSE; Label1.Alignment := taLeftJustify; Label1.Layout := tlTop; Label1.AutoSize := TRUE; Label1.Align := alNone; Label1.Font.Name := 'MS Sans Serif'; Label1.Font.Size := 8; Label1.Font.Color := clWindowText; Label1.Color := clBtnFace; Label1.OnClick := @Label1_Click; Label1.OnDblClick := @Label1_DblClick; //...................................... //...................................... //SpeedButton1 SpeedButton1 := TSpeedButton.Create(Result); SpeedButton1.Parent := GroupBox2; SpeedButton1.Left := 128; SpeedButton1.Top := 45; SpeedButton1.Width := 113; SpeedButton1.Height := 22; SpeedButton1.Visible := TRUE; SpeedButton1.Tag := 0; SpeedButton1.Caption := 'SpeedButton1'; SpeedButton1.Font.Name := 'MS Sans Serif'; SpeedButton1.Font.Size := 8; SpeedButton1.Font.Color := clWindowText; SpeedButton1.Font.CharSet := 1; SpeedButton1.GroupIndex := 0; SpeedButton1.Margin := -1; SpeedButton1.NumGlyphs := 1; SpeedButton1.Spacing := 4; SpeedButton1.Transparent := TRUE; SpeedButton1.AllowAllUp := FALSE; SpeedButton1.OnClick := @SpeedButton1_Click; SpeedButton1.OnMouseMove := @SpeedButton1_MouseMove; //...................................... //...................................... //Edit1 Edit1 := TEdit.Create(Result); Edit1.Parent := GroupBox2; Edit1.Left := 56; Edit1.Top := 20; Edit1.Width := 121; Edit1.Height := 21; Edit1.Visible := TRUE; Edit1.Tag := 0; Edit1.Enabled := TRUE; Edit1.Hint := ''; Edit1.ShowHint := FALSE; Edit1.Text := 'Edit1'; Edit1.Font.Name := 'MS Sans Serif'; Edit1.Font.Size := 8; Edit1.Font.Color := clWindowText; Edit1.Color := clWindow; Edit1.TabOrder := 0; Edit1.TabStop := TRUE; Edit1.ReadOnly := FALSE; Edit1.MaxLength := 0; Edit1.AutoSize := TRUE; Edit1.OnClick := @Edit1_Click; Edit1.OnDblClick := @Edit1_DblClick; Edit1.OnMouseMove := @Edit1_MouseMove; Edit1.OnEnter := @Edit1_Enter; Edit1.OnExit := @Edit1_Exit; //...................................... //...................................... //CheckBox1 CheckBox1 := TCheckBox.Create(Result); CheckBox1.Parent := GroupBox2; CheckBox1.Left := 8; CheckBox1.Top := 48; CheckBox1.Width := 113; CheckBox1.Height := 17; CheckBox1.Visible := TRUE; CheckBox1.Tag := 0; CheckBox1.Enabled := TRUE; CheckBox1.Hint := ''; CheckBox1.ShowHint := FALSE; CheckBox1.Caption := 'CheckBox1'; CheckBox1.Font.Name := 'MS Sans Serif'; CheckBox1.Font.Size := 8; CheckBox1.Font.Color := clWindowText; CheckBox1.Color := clBtnFace; CheckBox1.TabOrder := 1; CheckBox1.TabStop := TRUE; CheckBox1.Checked := TRUE; CheckBox1.AllowGrayed := FALSE; CheckBox1.State := cbChecked; CheckBox1.OnClick := @CheckBox1_Click; CheckBox1.OnMouseMove := @CheckBox1_MouseMove; CheckBox1.OnEnter := @CheckBox1_Enter; CheckBox1.OnExit := @CheckBox1_Exit; //...................................... //...................................... //Panel5 Panel5 := TPanel.Create(Result); Panel5.Parent := Panel4; Panel5.Left := 300; Panel5.Top := 1; Panel5.Width := 291; Panel5.Height := 130; Panel5.Visible := TRUE; Panel5.Tag := 0; Panel5.Enabled := TRUE; Panel5.Hint := ''; Panel5.ShowHint := FALSE; Panel5.Caption := 'Panel5'; Panel5.Align := alClient; Panel5.Color := clBtnFace; Panel5.Font.Name := 'MS Sans Serif'; Panel5.Font.Size := 8; Panel5.Font.Color := clWindowText; Panel5.Font.CharSet := 1; Panel5.BevelWidth := 1; Panel5.BorderWidth := 0; Panel5.BevelInner := bvNone; Panel5.BevelOuter := bvRaised; Panel5.TabOrder := 1; Panel5.TabStop := FALSE; Panel5.AutoSize := FALSE; Panel5.OnClick := @Panel5_Click; Panel5.OnDblClick := @Panel5_DblClick; Panel5.OnMouseMove := @Panel5_MouseMove; //...................................... //...................................... //Splitter4 Splitter4 := TSplitter.Create(Result); Splitter4.Parent := Panel5; Splitter4.Align := alLeft; Splitter4.Color := clNavy; Splitter4.Left := 97; Splitter4.Top := 1; Splitter4.Width := 3; Splitter4.Height := 128; Splitter4.Visible := TRUE; Splitter4.Tag := 0; //...................................... //...................................... //ListBox1 ListBox1 := TListBox.Create(Result); ListBox1.Parent := Panel5; ListBox1.Left := 1; ListBox1.Top := 1; ListBox1.Width := 96; ListBox1.Height := 128; ListBox1.Visible := TRUE; ListBox1.Tag := 0; ListBox1.Enabled := TRUE; ListBox1.Hint := ''; ListBox1.ShowHint := FALSE; ListBox1.Font.Name := 'MS Sans Serif'; ListBox1.Font.Size := 8; ListBox1.Font.Color := clWindowText; ListBox1.Color := clWindow; ListBox1.TabOrder := 0; ListBox1.TabStop := TRUE; ListBox1.Align := alLeft; ListBox1.Columns := 0; ListBox1.ExtendedSelect := TRUE; ListBox1.MultiSelect := FALSE; ListBox1.Sorted := FALSE; ListBox1.ItemHeight := 13; ListBox1.TabWidth := 0; ListBox1.OnClick := @ListBox1_Click; ListBox1.OnDblClick := @ListBox1_DblClick; ListBox1.OnMouseMove := @ListBox1_MouseMove; ListBox1.OnEnter := @ListBox1_Enter; ListBox1.OnExit := @ListBox1_Exit; ListBox1.Items.ADD('111'); ListBox1.Items.ADD('222'); ListBox1.Items.ADD('333'); //...................................... //...................................... //CheckBox2 CheckBox2 := TCheckBox.Create(Result); CheckBox2.Parent := Panel5; CheckBox2.Left := 112; CheckBox2.Top := 8; CheckBox2.Width := 97; CheckBox2.Height := 17; CheckBox2.Visible := TRUE; CheckBox2.Tag := 0; CheckBox2.Enabled := TRUE; CheckBox2.Hint := ''; CheckBox2.ShowHint := FALSE; CheckBox2.Caption := 'Проба'; CheckBox2.Font.Name := 'MS Sans Serif'; CheckBox2.Font.Size := 8; CheckBox2.Font.Color := clAqua; CheckBox2.Color := clBlue; CheckBox2.TabOrder := 1; CheckBox2.TabStop := TRUE; CheckBox2.Checked := FALSE; CheckBox2.AllowGrayed := TRUE; CheckBox2.State := cbGrayed; CheckBox2.OnClick := @CheckBox2_Click; CheckBox2.OnMouseMove := @CheckBox2_MouseMove; CheckBox2.OnEnter := @CheckBox2_Enter; CheckBox2.OnExit := @CheckBox2_Exit; //...................................... //...................................... //RadioButton1 RadioButton1 := TRadioButton.Create(Result); RadioButton1.Parent := Panel5; RadioButton1.Left := 112; RadioButton1.Top := 80; RadioButton1.Width := 113; RadioButton1.Height := 17; RadioButton1.Visible := TRUE; RadioButton1.Tag := 0; RadioButton1.Enabled := TRUE; RadioButton1.Hint := ''; RadioButton1.ShowHint := FALSE; RadioButton1.Caption := 'RadioButton1'; RadioButton1.Font.Name := 'MS Sans Serif'; RadioButton1.Font.Size := 8; RadioButton1.Font.Color := clWindowText; RadioButton1.Color := clBtnFace; RadioButton1.Checked := FALSE; RadioButton1.TabOrder := 2; RadioButton1.TabStop := FALSE; RadioButton1.OnClick := @RadioButton1_Click; RadioButton1.OnMouseMove := @RadioButton1_MouseMove; RadioButton1.OnEnter := @RadioButton1_Enter; RadioButton1.OnExit := @RadioButton1_Exit; //...................................... //...................................... //RadioButton2 RadioButton2 := TRadioButton.Create(Result); RadioButton2.Parent := Panel5; RadioButton2.Left := 112; RadioButton2.Top := 104; RadioButton2.Width := 113; RadioButton2.Height := 17; RadioButton2.Visible := TRUE; RadioButton2.Tag := 0; RadioButton2.Enabled := TRUE; RadioButton2.Hint := ''; RadioButton2.ShowHint := FALSE; RadioButton2.Caption := 'RadioButton2'; RadioButton2.Font.Name := 'MS Sans Serif'; RadioButton2.Font.Size := 8; RadioButton2.Font.Color := clWindowText; RadioButton2.Color := clAqua; RadioButton2.Checked := TRUE; RadioButton2.TabOrder := 3; RadioButton2.TabStop := TRUE; RadioButton2.OnClick := @RadioButton2_Click; RadioButton2.OnMouseMove := @RadioButton2_MouseMove; RadioButton2.OnEnter := @RadioButton2_Enter; RadioButton2.OnExit := @RadioButton2_Exit; //...................................... //...................................... //GroupBox3 GroupBox3 := TGroupBox.Create(Result); GroupBox3.Parent := Panel2; GroupBox3.Left := 2; GroupBox3.Top := 2; GroupBox3.Width := 596; GroupBox3.Height := 223; GroupBox3.Visible := TRUE; GroupBox3.Tag := 0; GroupBox3.Enabled := TRUE; GroupBox3.Hint := ''; GroupBox3.ShowHint := FALSE; GroupBox3.Caption := 'GroupBox3'; GroupBox3.Align := alTop; GroupBox3.Color := clBtnFace; GroupBox3.Font.Name := 'MS Sans Serif'; GroupBox3.Font.Size := 8; GroupBox3.Font.Color := clWindowText; GroupBox3.Font.CharSet := 1; GroupBox3.TabOrder := 1; GroupBox3.TabStop := FALSE; GroupBox3.OnClick := @GroupBox3_Click; GroupBox3.OnDblClick := @GroupBox3_DblClick; GroupBox3.OnMouseMove := @GroupBox3_MouseMove; //...................................... //...................................... //Memo1 Memo1 := TMemo.Create(Result); Memo1.Parent := GroupBox3; Memo1.Left := 2; Memo1.Top := 15; Memo1.Width := 592; Memo1.Height := 206; Memo1.Visible := TRUE; Memo1.Tag := 0; Memo1.Enabled := TRUE; Memo1.Hint := ''; Memo1.ShowHint := FALSE; Memo1.Font.Name := 'MS Sans Serif'; Memo1.Font.Size := 8; Memo1.Font.Color := clWindowText; Memo1.Color := clSilver; Memo1.TabOrder := 0; Memo1.TabStop := TRUE; Memo1.Align := alClient; Memo1.WordWrap := TRUE; Memo1.Alignment := taCenter; Memo1.WantTabs := FALSE; Memo1.WantReturns := TRUE; Memo1.HideSelection := TRUE; Memo1.MaxLength := 0; Memo1.OEMConvert := FALSE; Memo1.ReadOnly := TRUE; Memo1.ScrollBars := ssBoth; Memo1.OnClick := @Memo1_Click; Memo1.OnDblClick := @Memo1_DblClick; Memo1.OnMouseMove := @Memo1_MouseMove; Memo1.OnEnter := @Memo1_Enter; Memo1.OnExit := @Memo1_Exit; Memo1.Lines.ADD('Пример разработки формы для пакета FastScript версии 1.4 '); Memo1.Lines.ADD('с помощью компонента TSP_fs_FormDesign ((Delphi-5) )'); Memo1.Lines.ADD('(подробности см. SP_fs_FormDesign.doc)'); Memo1.Lines.ADD(''); Memo1.Lines.ADD(''); Memo1.Lines.ADD('FastScript - великолепный пакет (рекомендую) !!!'); Memo1.Lines.ADD('***********************************'); Memo1.Lines.ADD('Правами на на пакет FastScript обладает :'); Memo1.Lines.ADD('Fast Reports Inc.'); Memo1.Lines.ADD('Author: Alexander Tzyganenko'); Memo1.Lines.ADD('e-mail: tz@fast-report.com'); Memo1.Lines.ADD('home page: http://www.fastreport.ru '); Memo1.Lines.ADD('http://www.fast-report.com'); Memo1.Lines.ADD('***********************************'); Memo1.Lines.ADD(''); //...................................... Yes := TRUE; FINALLY if not Yes then begin //Освобождаем ресурсы, если неудачно ... if Result<>NIL then begin Result.Free; Result:=NIL; end; end; END; end; //Create_FormMain //======================== //======================== function FormMain_Execute : integer; //Создаем, выполняем и уничтожаем форму begin Result:=-1; FormMain:=Create_FormMain; TRY //... //Здесь спец. действия по инициализации компонентов формы, если нужно //... Result:=FormMain.ShowModal; FINALLY Free_FormMain; END; end; //FormMain_Execute //======================== //================== BEGIN NrRes := FormMain_Execute; //Создать и открыть форму модально //if NrRes = 1 then begin //Ok //end; //if NrRes = 2 then begin //Cancel //end; END.