u_jobprocessjm.pas

青年文明号管理系统

unit U_jobProcessJM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls, Gauges, FontForm;

type
  TJobProcessJm = class(TForm)
    HintText: TPanel;
    Effect: TAnimate;
    Animate2: TAnimate;
    EffectTimer: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure EffectTimerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    procedure ShowMe(ShowEffect: boolean = True);
    procedure HideMe;
    procedure SetHint(Text: string);
    procedure SetFontcolor(fcolor: Tcolor);
    procedure SetPanelColor(fcolor: Tcolor);
    { Public declarations }
  end;

function JobProcessJm: TJobProcessJm;

implementation

{$R *.DFM}
var
  ProcessJm: TJobProcessJm;

function JobProcessJm: TJobProcessJm;
begin
  if not Assigned(ProcessJm) then
    ProcessJm := TJobProcessJm.Create(nil);
  result := ProcessJm;
end;

procedure TJobProcessJm.SetHint(Text: string);
begin
  HintText.Caption := Text + ', 请稍候......';
  Application.ProcessMessages;
end;

procedure TJobProcessJm.FormCreate(Sender: TObject);
begin
  Effect.Top := (HintText.Height - Effect.Height) div 2 + HintText.Top;
end;

procedure TJobProcessJm.SetFontcolor(Fcolor: Tcolor);
begin
  HintText.Font.Color := Fcolor;
end;

procedure TJobProcessJm.HideMe;
begin
  ProcessJm.Hide;
  EffectTimer.Enabled := False;
  Screen.Cursor := crDefault;
  Application.ProcessMessages;
end;

procedure TJobProcessJm.ShowMe(ShowEffect: boolean);
begin
  Application.ProcessMessages;
  Screen.Cursor := crHourGlass;
  ProcessJm.Show;
  Effect.Visible := ShowEffect;
  Effect.Active := True;
  EffectTimer.Enabled := ShowEffect;
end;

procedure TJobProcessJm.EffectTimerTimer(Sender: TObject);
begin
  Application.ProcessMessages;
end;

procedure TJobProcessJm.SetPanelColor(fcolor: Tcolor);
begin
  HintText.Color := Fcolor;
end;

end.