u_flash.pas

来自「一个简单的学籍管理软件」· PAS 代码 · 共 31 行

unit U_Flash;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, EnBmpGr;

type
  TFm_Flash = class(TForm)
    Img_Flash: TImage;
  protected
    procedure Paint; override;
  end;

var
  Fm_Flash: TFm_Flash;

implementation

{$R *.DFM}

procedure TFm_Flash.Paint;
begin
  inherited Paint;
  {Img_Flash.Canvas.Font.Size := 16;
  Img_Flash.Canvas.TextOut(5, 5, '力得中小学学籍管理系统');}
end;

end.