p align="left">Image1: TImage; Label1: TLabel; Label3: TLabel; Label2: TLabel; Label4: TLabel; Label5: TLabel; SpeedButton1: TSpeedButton; procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation {$R *.dfm} procedure TForm4.SpeedButton1Click(Sender: TObject); begin close; end; end. unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg,unit1, Buttons; type TForm5 = class(TForm) TreeView1: TTreeView; Timer1: TTimer;RichEdit1: TRichEdit;Image1: TImage; Label3: TLabel; Label2: TLabel; Label1: TLabel; Bevel1: TBevel;Bevel2: TBevel; SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton; procedure Timer1Timer(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form5: TForm5; implementation {$R *.dfm} procedure TForm5.Timer1Timer(Sender: TObject); begin if TreeView1.Selected<>nil then begin label3.Caption:=TreeView1.Selected.Text; if TreeView1.Selected.Text='Решение задач' then RichEdit1.Lines.LoadFromFile(dir+'\Справка\Основные задачи.rtf'); if TreeView1.Selected.Text='УралСтройМантаж' then RichEdit1.Lines.LoadFromFile(dir+'\Справка\УралСтройМонтаж.rtf'); if TreeView1.Selected.Text='Описание интерфейса' then RichEdit1.Lines.LoadFromFile(dir+'\Справка\Интерфейс.rtf'); if TreeView1.Selected.Text='Расчет стоимости' then RichEdit1.Lines.LoadFromFile(dir+'\Справка\Расчет.rtf'); if TreeView1.Selected.Text='Системные требования' then RichEdit1.Lines.LoadFromFile(dir+'\Справка\Системные требования.rtf'); if TreeView1.Selected.Text='Создание шаблонов' then RichEdit1.Lines.LoadFromFile(dir+'\Справка\Шаблон.rtf'); if TreeView1.Selected.Text='Установка цен' then RichEdit1.Lines.LoadFromFile(dir+'\Справка\Цены.rtf');end;end; procedure TForm5.SpeedButton2Click(Sender: TObject); begin Close; end; end. unit Unit6; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, unit1,Buttons, ComCtrls,Unit7, jpeg ; type TForm6 = class(TForm) Panel1: TPanel; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton5: TSpeedButton; SpeedButton6: TSpeedButton; SpeedButton4: TSpeedButton; SpeedButton14: TSpeedButton; SpeedButton15: TSpeedButton; SpeedButton16: TSpeedButton; Panel2: TPanel; UpDown2: TUpDown;UpDown1: TUpDown; SpeedButton11: TSpeedButton; Image1: TImage; SpeedButton7: TSpeedButton; SpeedButton8: TSpeedButton; SpeedButton9: TSpeedButton; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton16Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton14Click(Sender: TObject); procedure SpeedButton15Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton6Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); procedure UpDown1Click(Sender: TObject; Button: TUDBtnType); procedure UpDown2Click(Sender: TObject; Button: TUDBtnType); procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure SpeedButton11Click(Sender: TObject); procedure SpeedButton9Click(Sender: TObject); procedure SpeedButton8Click(Sender: TObject); private procedure CmFocusChanged (var Msg: TCmFocusChanged); message cm_FocusChanged; { Private declarations } public { Public declarations } end; var Msg1: TCmFocusChanged; Form6: TForm6;c:string; implementation {$R *.dfm} procedure TForm6.SpeedButton1Click(Sender: TObject); begin b1 := TBitBtn.Create(Self); nam:=nam+'#Глухой'; with b1 do begin b1.Hint:='1'; Left := 20; Top := 20; Width := 60; Height := 100; Parent := Panel2; Glyph.LoadFromFile(dir+'\Иконки\глухой.bmp');end;end; procedure TForm6.CmFocusChanged (var Msg: TCmFocusChanged); begin Msg1:=Msg; end; procedure TForm6.SpeedButton2Click(Sender: TObject); begin nam:=nam+'#Поворотный'; b1 := TBitBtn.Create(Self); with b1 do begin b1.Hint:='2'; Left := 20; Top := 20; Width := 60; Height := 100; Parent := Panel2; Glyph.LoadFromFile(dir+'\Иконки\поворотный.bmp');end;end; procedure TForm6.SpeedButton14Click(Sender: TObject); begin nam:=nam+'#Поворотный'; b1 := TBitBtn.Create(Self); with b1 do begin b1.Hint:='2'; Left := 20; Top := 20; Width := 60; Height := 100; Parent := Panel2; Glyph.LoadFromFile(dir+'\Иконки\поворотный1.bmp');end;end; procedure TForm6.SpeedButton15Click(Sender: TObject); begin nam:=nam+'#Поворотный'; b1 := TBitBtn.Create(Self); with b1 do begin b1.Hint:='2'; Left := 20; Top := 20; Width := 60; Height := 100; Parent := Panel2; Glyph.LoadFromFile(dir+'\Иконки\поворотный1.bmp');end;end; procedure TForm6.SpeedButton16Click(Sender: TObject); begin nam:=nam+'#Откидной'; b1 := TBitBtn.Create(Self); with b1 do begin b1.Hint:='3'; Left := 20; Top := 20; Width := 60; Height := 100; Glyph.LoadFromFile(dir+'\Иконки\откидной.bmp'); Parent := Panel2;end;end; procedure TForm6.SpeedButton3Click(Sender: TObject); begin nam:=nam+'#Откидной'; b1 := TBitBtn.Create(Self); with b1 do begin b1.Hint:='3'; Left := 20; Top := 20; Width := 60; Height := 100; Glyph.LoadFromFile(dir+'\Иконки\откидной.bmp'); Parent := Panel2;end;end; procedure TForm6.SpeedButton4Click(Sender: TObject); begin nam:=nam+'#балкон1'; b1 := TBitBtn.Create(Self); with b1 do begin b1.Hint:='4'; Left := 20; Top := 20; Width := 60; Height := 100; Glyph.LoadFromFile(dir+'\Иконки\балкон1.bmp'); Parent := Panel2;end;end; procedure TForm6.SpeedButton6Click(Sender: TObject); begin nam:=nam+'#Вход'; b1 := TBitBtn.Create(Self); with b1 do begin b1.Hint:='6'; Left := 20; Top := 20; Width := 60; Height := 100; Glyph.LoadFromFile(dir+'\Иконки\вход.bmp'); Parent := Panel2;end;end; procedure TForm6.SpeedButton5Click(Sender: TObject); begin nam:=nam+'#Балкон2'; b1 := TBitBtn.Create(Self); with b1 do begin b1.Hint:='5'; Left := 20; Top := 20; Width := 60; Height := 100; Glyph.LoadFromFile(dir+'\Иконки\балкон2.bmp'); Parent := Panel2;end;end; procedure TForm6.UpDown1Click(Sender: TObject; Button: TUDBtnType); begin if Msg1.Sender.ClassName='TBitBtn' then msg1.Sender.Width:=UpDown1.Position*3; end; procedure TForm6.UpDown2Click(Sender: TObject; Button: TUDBtnType); begin if Msg1.Sender.ClassName='TBitBtn' then msg1.Sender.Height:=UpDown2.Position*3; end; procedure TForm6.Panel2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; { a magic number } begin ReleaseCapture; if Msg1.Sender.ClassName='TBitBtn' then msg1.Sender.perform(WM_SysCommand, SC_DragMove, 0); end; procedure TForm6.SpeedButton11Click(Sender: TObject); Var p:integer; begin if Msg1.Sender.ClassName='TBitBtn' then begin if msg1.Sender.Hint='1' then begin p:=pos('#Глухой',nam);delete(nam,p,7);msg1.Sender.Destroy;end; if msg1.Sender.Hint='2' then begin p:=pos('#Поворотный',nam);delete(nam,p,11);msg1.Sender.Destroy;end; if msg1.Sender.Hint='3' then begin p:=pos('#Откидной',nam);delete(nam,p,9);msg1.Sender.Destroy;end; if msg1.Sender.Hint='4' then begin p:=pos('#балкон1',nam);delete(nam,p,8);msg1.Sender.Destroy;end; if msg1.Sender.Hint='5' then begin p:=pos('#Балкон2',nam);delete(nam,p,8);msg1.Sender.Destroy;end; if msg1.Sender.Hint='6' then begin p:=pos('#Вход',nam);delete(nam,p,5);msg1.Sender.Destroy;end;end;end; procedure TForm6.SpeedButton9Click(Sender: TObject); var B: TBitmap; srcRect,dstRect: TRect; begin B:=TBitmap.Create; with dstRect do begin Left:=0; Top:=0; Right:=Panel2.Width+1; Bottom:=Panel2.Height+1; end; with srcRect do begin Left:=Panel2.Left+15; Right:=Panel2.Left+Panel2.Width+12; Top:=Panel2.Top; Bottom:=Panel2.Top+Panel2.Height+12; end; B.Width:=Panel2.Width; B.Height:=Panel2.Height; B.Canvas.CopyRect(dstRect,Self.Canvas,srcRect); B.PixelFormat:=pf1bit; B.SaveToFile(dir+'\Шаблоны\'+nam+'.bmp'); ShowMessage('Шаблон успешно сохранился!'); B.Free;end; procedure TForm6.SpeedButton8Click(Sender: TObject); begin close;end;end. unit Unit7; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,unit1, ComCtrls, Buttons, Grids, Spin, jpeg; type TForm7 = class(TForm) Panel1: TPanel; Panel2: TPanel; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton5: TSpeedButton; SpeedButton6: TSpeedButton; SpeedButton9: TSpeedButton; SpeedButton10: TSpeedButton; Image1: TImage; SpeedButton7: TSpeedButton; SpeedButton8: TSpeedButton; ComboBox1: TComboBox; Label4: TLabel;Label3: TLabel; ComboBox3: TComboBox; Label2: TLabel; ComboBox2: TComboBox; UpDown1: TUpDown; UpDown2: TUpDown; Image2: TImage; OpenDialog1: TOpenDialog; SpeedButton4: TSpeedButton; SpeedButton14: TSpeedButton; SpeedButton15: TSpeedButton;
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
|