|
前節の続きです。
プログラムが複雑になってきましたので、少しまとめてみます。今後、画面への作図関係が増えていくと予想出来ますので、それらを１つのユニットにまとめましょう。
まずは、Delphiのメニュー「ファイル｜新規作成｜ユニット」を実行します。すると、プロジェクトに Unit1.pas（既に Unit1.pasがある場合には、Unit2.pas、・・・）として下記のようなファイルが新規作成されます。
unit Unit1;
interface
implementation
end. |
例：IntToStr関数を利用したい場合
IntToStr関数は SysUtilsルーチン内で定義されています
unit Unit1;
interface
uses
SysUtils;
function ABC(X:integer):String;
implementation
function ABC(X:integer):String;
begin
Result := IntToStr(X);
end;
end. |
※フォームやコントロールのプロパティを参照する場合には、uses節に色々なユニットを記述する必要がありますが、基本的に、新規ユニット内で他のフォーム内のプロパティ等を参照する事は避けておく方が無難です。
画面への作図関係の関数を、「UnitGraph」としてまとめる事にして、メインプログラムでは、MoveTo・LineTo等を直接行わないようにして、UnitGraph内に独自の関数を用意して、その関数を呼び出す事にします。
なお、
procedure G_CLS(x1,y1,x2,y2:integer) ;
begin
with PaintBox1.Canvas do begin
with Pen do begin
Mode := pmCopy ;
Color := clWhite;
・・・・ |
とはせず
procedure G_CLS(C:TCanvas;x1,y1,x2,y2:integer) ;
begin
with C do begin
with Pen do begin
Mode := pmCopy ;
Color := clWhite;
・・・・ |
としているのは、
①このユニットのuses節にフォーム等を指定したくない
（uses節が多くなると重い感じがする）
②将来、他への転用を可能にしたい
（例えば、全く別のImageコンポーネントへの描画をしたくなる、かもしれません）
③関数はなるべく汎用的に作っておきたい
等の理由からです。
取りあえず、ここまでのサンプルプログラムです。
内容は、前節とほとんど変わっていません。
【サンプルプログラムのソース】
|
|
CAD装置(1)
CAD装置(2)
メディア
AutoCADの
DIESELマクロ
ＣＳＶ
ＤＸＦ
ＰＣＥＳ
ＩＧＥＳ
ＳＴＥＰ
数学とCAD
CAD作ろ！
▲PREV
▼NEXT
|
