libmanage.pas

delphi语言开发的矢量图形处理对象

unit libManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls,drwObj;
var
  mLibManager:TLibManage;
  function IsLibFile(fileName:string):boolean;
  procedure LoadLib(LibFileName:String;AlibImageList:TImageList;AListView:TListView);
  procedure RemoveLibManager(objName:string);

implementation

procedure LoadLib(LibFileName: String;AlibImageList:TImageList;AListView:TListView);
var
 i:integer;
 ABitmap:TBitmap;
 AListItem: TListItem;
 mCaption:string;
begin
  if not IsLibFile(LibFileName) then
  begin
    messageDlg('不是图形库文件(Lib)',mtError,[mbOk],0);
    exit;
  end;
  if mLibManager=nil then
     mLibManager:=TLibManage.Create
  else
  begin
     mLibManager.clear;
  end;
  mLibManager.LoadFromFile(LibFileName);

  {增加新的一页元件库}
  ABitmap:=TBitmap.Create;
  ABitmap.Height :=32;ABitmap.Width :=32;
  AlibImageList.Clear;
  For i:=0 to mLibManager.Count -1  do
  begin
    mCaption:=mLibManager.getShapeName(i);
    mLibManager.getIconByName(mCaption,ABitmap);
    AlibImageList.AddMasked(ABitmap,clGray);
  end;
  ABitmap.Free;
  AListView.Clear  ;
  For i:=0 to mLibManager.Count -1  do
  begin
    AListItem:=AListView.Items.Add;
    mCaption:=  mLibManager.GetShapeName(i);
    AListItem.Caption:=mCaption;
    AListItem.ImageIndex:=i;
  end;
end;

procedure RemoveLibManager(objName:string);
begin
  if mLibManager<>nil then
  mLibManager.delete(objName);
end;


function IsLibFile(fileName: string): boolean;
var
  tmp:string;
begin
  result:=false;
  tmp:=lowerCase(fileName);
  if extractFileExt(fileName)='.lib' then
  result:=true;
end;

end.