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 ('Спочатку завантажте ціну!') p> 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 (Ope...
