|
Вопрос # 5 962/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
На делфи написана библиотека для построения подшипника. Выходит форма, задаются параметры, подшипник рисуется. Но при изменении параметров подшипник перерисывывается, оставляя старую версию.Подскажите пожалуйста, как можно очищать старый чертеж что бы заного не подключать библиотеку?
Приложение: Переключить в обычный режим- unit former;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, LDefin2D, ksConstTLB, ksAuto, ksTLB, ExtCtrls;
-
- type
- TMainForm = class(TForm)
- Button1: TButton;
- Button2: TButton;
- LabeledEdit1: TLabeledEdit;
- LabeledEdit2: TLabeledEdit;
- LabeledEdit3: TLabeledEdit;
- LabeledEdit4: TLabeledEdit;
- LabeledEdit5: TLabeledEdit;
- LabeledEdit6: TLabeledEdit;
- LabeledEdit7: TLabeledEdit;
- LabeledEdit8: TLabeledEdit;
- procedure Button2Click(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- MainForm: TMainForm;
- Kompas1: KompasObject;
- iDocument2D1: ksDocument2D;
- implementation
-
- {$R *.dfm}
-
- procedure TMainForm.Button2Click(Sender: TObject);
- begin
- close;
- end;
-
- procedure TMainForm.Button1Click(Sender: TObject);
- var d,d1,db,Hb,h,r,dw,z:real;
- begin
- d:=strtofloat(labelededit1.text);
- d1:=strtofloat(labelededit2.text);
- db:=strtofloat(labelededit3.text);
- hb:=strtofloat(labelededit4.text);
- h:=strtofloat(labelededit5.text);
- dw:=strtofloat(labelededit7.text);
- r:=strtofloat(labelededit6.text);
- z:=strtofloat(labelededit8.text);
- Kompas1 := KompasObject(CreateKompasObject);
-
- iDocument2D1 := ksDocument2D(Kompas1.ActiveDocument2D());
-
- iDocument2D1.ksLineSeg(hb/2,-(db/2-r),hb/2,(db/2-r),1);
- iDocument2D1.ksLineSeg(hb/2-h,-(db/2-r),hb/2-h,(db/2-r),1);
- iDocument2D1.ksArcByAngle (hb/2-r,(db/2-r),r, 0, 90, 1,1);
- iDocument2D1.ksArcByAngle (hb/2-h+r,(db/2-r),r, 90, 180, 1,1);
- iDocument2D1.ksArcByAngle (hb/2-r,-(db/2-r),r, 270, 360, 1,1);
- iDocument2D1.ksArcByAngle (hb/2-h+r,-(db/2-r),r, 180, 270, 1,1);
- iDocument2D1 := nil;
- Kompas1 := nil
- end;
-
- end.
-
 |
Вопрос задала: Pomeha (статус: Посетитель)
Вопрос отправлен: 25 февраля 2012, 12:35
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 26 февраля 2012, 18:23; участников в обсуждении: 1.
|
Ерёмин А.А. (статус: *Администратор), 26 февраля 2012, 18:23 [#1]:
Например, создавать новый документ типа ksDocument2D методами KompasObject. Там это довольно просто делается.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
