mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-11 17:25:39 +02:00
30 lines
529 B
ObjectPascal
30 lines
529 B
ObjectPascal
unit U_SetWallTransparency;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, Buttons, ComCtrls, RzLabel;
|
|
|
|
type
|
|
TF_SetWallTransparency = class(TForm)
|
|
TrackBar1: TTrackBar;
|
|
Edit1: TEdit;
|
|
BitBtn1: TBitBtn;
|
|
BitBtn2: TBitBtn;
|
|
RzLabel1: TRzLabel;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
F_SetWallTransparency: TF_SetWallTransparency;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|