nDialog1.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;
SpeedButton9: TSpeedButton; Label9: TLabel; SpeedButton3: TSpeedButton;
SpeedButton1: TSpeedButton; Label6: TLabel; Label5: TLabel; SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit; Label2: TLabel; Label1: TLabel; Label3: TLabel;
StringGrid1: TStringGrid; Bevel3: TBevel; Label7: TLabel; Label8: TLabel;
Bevel1: TBevel; Label14: TLabel; Bevel2: TBevel; Label13: TLabel; Label10: TLabel;
SpeedButton5: TSpeedButton; SpeedButton6: TSpeedButton; Label11: TLabel;
Label12: TLabel; SpeedButton7: TSpeedButton; SpeedButton8: TSpeedButton;
SpeedButton4: TSpeedButton; Label15: TLabel; SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton; SpeedButton12: TSpeedButton;
StringGrid2: TStringGrid; Label16: TLabel; Label17: TLabel; Label18: TLabel...
