skinform.pas

现在家庭藏书越来越多

unit skinform;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,  ExtCtrls;
type
  tskin=class
private
  fimage:timage;
  fmylabel:tlabel;
public
  constructor create;
  destructor destroy;override;
  procedure setimagemode(img1,img2,img3,img4,img5,img6:timage);
  procedure setformmode(aform:tform);
  procedure setlabelmode(lbl1,lbl2,lbl3,lbl4,lbl5,lbl6:tlabel);
published
  property image:timage read fimage write fimage;
  property mylabel:tlabel read fmylabel write fmylabel;
end;
implementation

{ tskin }

constructor tskin.create;
begin
  fimage:=timage.Create(nil);
  fmylabel:=tlabel.Create(nil);
end;

destructor tskin.destroy;
begin
 fimage.Free;
 fimage:=nil;
 fmylabel.Free;
 fmylabel:=nil;
  inherited;
end;


procedure tskin.setformmode(aform: tform);
begin
  aform.Caption:='图书管理系统OEM';
  aform.BorderIcons:=[biSystemMenu, biMinimize, biHelp];
end;

procedure tskin.setimagemode(img1, img2, img3, img4, img5, img6: timage);
begin
  img1.Transparent:=true;
  img1.Stretch:=true;
  img1.ShowHint:=true;
  img1.Picture.LoadFromFile('1.bmp');
  img1.Cursor:=crhandpoint;
  img1.Hint:='图书管理';
  img2.Transparent:=true;
  img2.Stretch:=true;
  img2.ShowHint:=true;
  img2.Picture.LoadFromFile('4.bmp');
  img2.Hint:='图书借出登记';
  img2.Cursor:=crhandpoint;
  img3.Transparent:=true;
  img3.Stretch:=true;
  img3.ShowHint:=true;
  img3.Picture.LoadFromFile('2.bmp');
  img3.Hint:='图书归还';
  img3.Cursor:=crhandpoint;
  img4.Transparent:=true;
  img4.Stretch:=true;
  img4.ShowHint:=true;
  img4.Picture.LoadFromFile('3.bmp');
  img4.Hint:='图书查询';
  img4.Cursor:=crhandpoint;
  img5.Transparent:=true;
  img5.Stretch:=true;
  img5.ShowHint:=true;
  img5.Picture.LoadFromFile('5.bmp');
  img5.Hint:='图书报表';
  img5.Cursor:=crhandpoint;
  img6.Transparent:=true;
  img6.Stretch:=true;
  img6.ShowHint:=true;
  img6.Picture.LoadFromFile('6.bmp');
  img6.Cursor:=crhandpoint;
  img6.Hint:='每日提醒';
end;

procedure tskin.setlabelmode(lbl1, lbl2, lbl3, lbl4, lbl5, lbl6: tlabel);
begin
lbl1.Caption:='图书管理';
lbl1.Transparent:=true;
lbl1.Font.Size:=12;
lbl2.Caption:='图书借出登记';
lbl2.Transparent:=true;
lbl2.Font.Size:=12;
lbl3.Caption:='图书归还';
lbl3.Transparent:=true;
lbl3.Font.Size:=12;
lbl4.Caption:='图书查询';
lbl4.Transparent:=true;
lbl4.Font.Size:=12;
lbl5.Caption:='图书报表';
lbl5.Transparent:=true;
lbl5.Font.Size:=12;
lbl6.Caption:='每日提醒';
lbl6.Transparent:=true;
lbl6.Font.Size:=12;
end;

end.