u_flash.pas

一个简单的学籍管理软件

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.