procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

procedure CmFocusChanged (var Msg: TCmFocusChanged);

message cm_FocusChanged;

{ Public declarations }

end;  const n=15 ;

var  Form7: TForm7;  j,pay1,okn,tek:integer;  b1 : TBitBtn;  fail,put,Activ,odn:string;

Msg1: TCmFocusChanged;  nam:string;

implementation

uses Unit9, Unit8;

{$R *.dfm}

procedure TForm7.CmFocusChanged (var Msg: TCmFocusChanged);

begin  Msg1:=Msg;  end;

procedure TForm7.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 TForm7.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 TForm7.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 TForm7.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 TForm7.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 TForm7.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 TForm7.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 TForm7.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.Text='Оконные модули' then  begin

SpeedButton1.Visible:=True;SpeedButton2.Visible:=True;

SpeedButton14.Visible:=True;SpeedButton15.Visible:=True;

SpeedButton16.Visible:=True;SpeedButton3.Visible:=True;

SpeedButton4.Visible:=False;SpeedButton5.Visible:=False;

SpeedButton6.Visible:=False;  end else  begin

SpeedButton4.Visible:=True;SpeedButton5.Visible:=True;

SpeedButton6.Visible:=True;SpeedButton1.Visible:=False;

SpeedButton2.Visible:=False;SpeedButton3.Visible:=False;

SpeedButton14.Visible:=False;SpeedButton15.Visible:=False;

SpeedButton16.Visible:=False;end;end;

procedure TForm7.FormCreate(Sender: TObject);

begin okn:=1;

SpeedButton1.Visible:=False;SpeedButton2.Visible:=False;

SpeedButton3.Visible:=False;SpeedButton4.Visible:=False;

SpeedButton5.Visible:=False;SpeedButton6.Visible:=False;

SpeedButton14.Visible:=False;SpeedButton15.Visible:=False;

SpeedButton16.Visible:=False; end;

procedure TForm7.SpeedButton8Click(Sender: TObject);

begin

if (Combobox3.Text='') or (Combobox2.Text='') then

Showmessage('Укажите тип профиля и ст.-пакета')

else begin

prof:=Combobox3.Text;

spak:=Combobox2.Text;

close;end;end;

procedure TForm7.SpeedButton9Click(Sender: TObject);

var  B: TBitmap;  srcRect,dstRect: TRect;

begin

if (put='') or (nam='')then Showmessage('Сначала загрузите цену!!!')

else 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+145;

Right:=Panel2.Left+Panel2.Width+145;

Top:=Panel2.Top+10;

Bottom:=Panel2.Top+Panel2.Height+10;  end;

B.Width:=Panel2.Width;

B.Height:=Panel2.Height;

B.Canvas.CopyRect(dstRect,Self.Canvas,srcRect);

B.PixelFormat:=pf1bit;

B.SaveToFile(dir+'\temp\'+inttostr(okn)+'.bmp');

B.Free;form8.Show;end;end;

procedure TForm7.UpDown1Click(Sender: TObject; Button: TUDBtnType);

begin

if Msg1.Sender.ClassName='TBitBtn' then

msg1.Sender.Width:=UpDown1.Position*3;end;

procedure TForm7.UpDown2Click(Sender: TObject; Button: TUDBtnType);

begin

if Msg1.Sender.ClassName='TBitBtn' then

msg1.Sender.Height:=UpDown2.Position*3;end;

procedure TForm7.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 TForm7.SpeedButton13Click(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+145;

Right:=Panel2.Left+Panel2.Width+145;

Top:=Panel2.Top+10;

Bottom:=Panel2.Top+Panel2.Height+10;  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 TForm7.SpeedButton12Click(Sender: TObject);

Var s:string;d,a:integer;

begin

if form7.OpenDialog1.Execute then begin

image2.Top:=Panel2.Top-10;

image2.Left:=Panel2.Left-130;

image2.AutoSize:=true;

image2.Transparent:=FaLSE;

Image2.Picture.LoadFromFile(OpenDialog1.FileName);

nam:=OpenDialog1.FileName;

getdir(0,s);d:=pos(s,nam);a:=pos('#',nam);

delete(nam,d,a-1);d:=pos('.',nam);

delete(nam,d,4);end;end;

procedure TForm7.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 TForm7.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+'\Иконки\поворотный2.bmp');end;end;

procedure TForm7.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+'\Иконки\откидной2.bmp');

Parent := Panel2;end;end;

procedure TForm7.SpeedButton17Click(Sender: TObject);

begin

if (Combobox1.Text='')or(Combobox3.Text='')or(Combobox2.Text='') then

Showmessage('Введите все необходимые данные!') else begin

if combobox1.Text='Оконные модули' then

fail:='\Цены\Окна\'

else fail:='\Цены\Двери\';

if (Combobox3.Text='Exprof58mm')and (Combobox2.Text='Однокамерный') then

Put:=fail+'Exprof58mm24.dat';

if (Combobox3.Text='Exprof58mm')and (Combobox2.Text='Двухкамерный') then

Put:=fail+'Exprof58mm32.dat';

if (Combobox3.Text='Exprof58mm')and (Combobox2.Text='Одно стекло') then begin

Put:=fail+'Exprof58mm24.dat';

odn:='1';end;

if (Combobox3.Text='Exprof101mm')and (Combobox2.Text='Однокамерный') then

Put:=fail+'Exprof101mm24.dat';

if (Combobox3.Text='Exprof101mm')and (Combobox2.Text='Двухкамерный') then

Put:=fail+'Exprof101mm32.dat';

if (Combobox3.Text='Exprof101mm')and (Combobox2.Text='Одно стекло') then begin

Put:=fail+'Exprof101mm24.dat';odn:='1';

end; Showmessage('Цена успешно загружена!');end;end;

procedure TForm7.SpeedButton10Click(Sender: TObject);

var  f: LongInt;

begin

if itog<>'' then begin

if kolok>0 then kolok:=kolok-1;

tek:=tek+1;

label7.Caption:=inttostr(kolok);

label5.Caption:=inttostr(tek);

end else Showmessage('Сначала расчитайте предыдущее окно!');

nam:='';okn:=okn+1;

for f := 0 to ComponentCount - 1 do begin

if (Components[f] is TBitBtn) then

(Components[f] as TBitBtn).Visible:=false;end;end;

procedure TForm7.SpeedButton7Click(Sender: TObject);

begin  Form7.Free; end;

procedure TForm7.FormShow(Sender: TObject);

begin tek:=1;

label7.Caption:=inttostr(kolok);

label5.Caption:=inttostr(tek);end;end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Spin, Unit7,unit1, Buttons, ComCtrls, jpeg, ExtCtrls, Grids;

type

TForm8 = class(TForm)

Image1: TImage; Label4: TLabel;SpeedButton2: TSpeedButton;

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13