Расчет стоимости пластиковых оконных конструкций и дверей
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
Changed (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;
SpeedButton16: TSpeedButton; SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton; SpeedButton13: TSpeedButton;
SpeedButton17: TSpeedButton; Label1: TLabel; Label5: TLabel; Label6: TLabel;
Label7: TLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ComboBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
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;
<