flayers.pas

CAD转换工具 CAD转换工具 CAD转换工具 CAD转换工具

unit fLayers;

interface

uses                              
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ExtDlgs, Buttons, StdCtrls, sgCADImage, sgConsts,
  ComCtrls, CheckLst, ImgList;

type
  TfmLayers = class(TForm)
    btnOK: TButton;
    ImageList: TImageList;
    clbLayers: TCheckListBox;
    procedure edtNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure clbLayersClickCheck(Sender: TObject);
    procedure clbLayersKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnOKClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

function CADLayerCount(Handle: THandle): Integer; stdcall;
function CADLayer(Handle: THandle; Index: DWORD; Data: PdxfData): THandle; stdcall;
function CADVisible(Handle: THandle; LayerName: PChar): Integer; stdcall;
function CADLayerVisible(THandle: THandle; Visible: Integer): Integer; stdcall;

var
  fmLayers: TfmLayers;

implementation

uses fMain;

function CADLayerCount; external 'CADImage.dll' name 'CADLayerCount';
function CADLayer; external 'CADImage.dll' name  'CADLayer';
function CADVisible; external 'CADImage.dll' name  'CADVisible';
function CADLayerVisible; external 'CADImage.dll' name  'CADLayerVisible';

{$R *.dfm}

procedure TfmLayers.edtNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    Close;
    ModalResult := mrOk;
  end;
end;

procedure TfmLayers.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_ESCAPE: Close;
  end;
end;

procedure TfmLayers.clbLayersClickCheck(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to clbLayers.Items.Count - 1 do
  begin
    CADLayerVisible(THandle(clbLayers.Items.Objects[I]), Ord(clbLayers.Checked[I]));
  end;
  fmMain.pbImage.Invalidate;
end;

procedure TfmLayers.clbLayersKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    ModalResult := mrOk;
end;

procedure TfmLayers.btnOKClick(Sender: TObject);
begin
  Hide;
end;

end.