splash.pas

来自「《Kylix程序设计》一书中附带的例程源代码」· PAS 代码 · 共 93 行

unit Splash;

interface

uses
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
  QTypes, QExtCtrls, QStdCtrls;

type
  TFrmSplash = class(TForm)
    TimerDelay: TTimer;
    LblLogo: TLabel;
    ImgLogo: TImage;
    procedure FormPaint(Sender: TObject);
    procedure TimerDelayTimer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
{
var
  FrmSplash: TFrmSplash;
}

implementation

{$R *.xfm}

procedure TFrmSplash.FormPaint(Sender: TObject);
{
var
  i: Integer;
  Rect: TRect;

function RGB( r, g, b: Byte ): TColor;
begin
  Result := TColor( ( r or ( g shl 8 ) or ( b shl 16 ) ) );
end;
}
begin
{
  for i := 0 to ClientHeight do
  begin
    Rect.Left := 0;
    Rect.Top := i;
    Rect.Right := ClientWidth;
    Rect.Bottom := i + 1;
    Canvas.Brush.Color := RGB( Byte( i ), Byte( ClientWidth ), Byte( ClientWidth ) );
    Canvas.FillRect( Rect );
  end;
}
// paint many times. Why?
//  ImgLogo.Picture.LoadFromFile( '/root/bmp/ktelogo.bmp' );

//  ImgLogo.BringToFront();
//  ImgLogo.Update();
//  ImgLogo.Invalidate();
end;

procedure TFrmSplash.TimerDelayTimer(Sender: TObject);
begin
  TimerDelay.Enabled := false;
//  Close();
//  Release();
end;

procedure TFrmSplash.FormShow(Sender: TObject);
var
  i: Integer;
  Rect: TRect;

function RGB( r, g, b: Byte ): TColor;
begin
  Result := TColor( ( r or ( g shl 8 ) or ( b shl 16 ) ) );
end;

begin
  for i := 0 to ClientHeight do
  begin
    Rect.Left := 0;
    Rect.Top := i;
    Rect.Right := ClientWidth;
    Rect.Bottom := i + 1;
    Canvas.Brush.Color := RGB( Byte( i ), Byte( ClientWidth ), Byte( ClientWidth ) );
    Canvas.FillRect( Rect );
  end;

end;

end.