unit1.pas

Delphi7编程80例(完全版)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, Menus, ExtDlgs,INIFILES;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
 procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHITTEST;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  theme:TInifile;
  themename,form_color,panel_color,Label_color:string;

implementation

{$R *.dfm}

procedure TForm1.WMNCHitTest(var Msg:TWMNCHitTest);
begin
DefaultHandler(Msg);
if Msg.Result = HTCLIENT then
Msg.Result:= HTCAPTION;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
Close;    //退出程序
end;

procedure TForm1.N2Click(Sender: TObject);
begin
If OpenPictureDialog1.Execute Then
 Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); //载入图象文件
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Theme:=TIniFile.Create('themes.ini');
end;

procedure TForm1.N4Click(Sender: TObject);
begin
Label2.Caption:=theme.ReadString('theme1','name','浓烈型');
Form1.Color:=StringToColor(theme.ReadString('theme1',form_color,'clPurple'));
panel1.Color:=StringToColor(theme.ReadString('theme1',panel_color,'clMaroon'));
Label2.Font.Color:=StringToColor(theme.ReadString('theme1',Label_color,'clwhite'));
end;

procedure TForm1.N5Click(Sender: TObject);
begin
Label2.Caption:=theme.ReadString('theme1','name','清新型');
Form1.Color:=StringToColor(theme.ReadString('theme1',form_color,'$00EC83F1'));
panel1.Color:=StringToColor(theme.ReadString('theme1',panel_color,'$00F365BA'));
Label2.Font.Color:=StringToColor(theme.ReadString('theme1',Label_color,'clBlue'));
end;

procedure TForm1.N6Click(Sender: TObject);
begin
Label2.Caption:=theme.ReadString('theme1','name','古朴型');
Form1.Color:=StringToColor(theme.ReadString('theme1',form_color,'clBackground'));
panel1.Color:=StringToColor(theme.ReadString('theme1',panel_color,'clblack'));
Label2.Font.Color:=StringToColor(theme.ReadString('theme1',Label_color,'clwhite'));
end;

end.