JmpJackU.pas ( File view )

  • By meself 2016-05-19
  • View(s):0
  • Download(s):0
  • Point(s): 1
			unit JmpJackU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, MMSystem;

{
$R JJRES.RES
}

const
  IDS_UP = 101;
  IDS_DOWN = 102;

type
  TMainForm = class(TForm)
    Image: TImage;
    Label1: TLabel;
    Start: TButton;
    Stop: TButton;
    procedure FormCreate(Sender: TObject);
    procedure StartClick(Sender: TObject);
    procedure StopClick(Sender: TObject);
  private
    {
 Private declarations 
}
    Done: Boolean;
    procedure DrawImage(var Name: string);
  public
    {
 Public declarations 
}
  end;

var
  MainForm: TMainForm;

implementation

{
$R *.dfm
}

procedure TMainForm.DrawImage(var Name: string);
begin
  {
 从资源文件中读取位图,通过资源名称
}
  Image.Picture.Bitmap.LoadFromResourceName(HInstance, Name);
  {
 让Image有机会显示位图
}
  Application.ProcessMessages;
  {
 延缓,让动画变慢
}
  Sleep(20);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Image.Picture.Bitmap.LoadFromResourceName(HInstance, 'ID_BITMAP1');
  
end;

procedure TMainForm.StartClick(Sender: TObject);
var
  s: string;
  ResName: string;
  i: Integer;
  Buff: array[0..9] of Char;
begin
  s := 'ID_BITMAP';
  Done := False;
  while not Done do
  begin
    for i := 1 to 5 do
    begin
      ResName := s + IntToStr
...
...
(Please download the complete source code to view)
			
...
Expand> <Close

Want complete source code? Download it here

Point(s): 1

Download
0 lines left, continue to read
Sponsored links

File list

Tips: You can preview the content of files by clicking file names^_^
Name Size Date
BBThumbs.dat147.00 B02-02-12|16:04
DOWN.WAV7.09 kB14-07-95|00:00
ID_BITMAP1.bmp630.00 B02-02-12|15:17
ID_BITMAP2.bmp630.00 B02-02-12|15:17
ID_BITMAP3.bmp630.00 B02-02-12|15:17
ID_BITMAP4.bmp630.00 B02-02-12|15:17
ID_BITMAP5.bmp630.00 B02-02-12|15:17
JJRES.RC10.59 kB02-02-12|21:12
jjres.RES17.72 kB03-02-12|01:49
JJRES.~RC10.55 kB19-04-98|17:54
JmpJackU.dcu5.52 kB03-02-12|01:47
JmpJackU.dfm911.00 B02-02-12|21:48
JmpJackU.pas2.00 kB02-02-12|21:50
JumpJack.dof1.97 kB03-02-12|02:07
JumpJack.dpr203.00 B02-02-12|15:21
JumpJack.res876.00 B03-02-12|02:06
UP.WAV7.15 kB14-07-95|00:00
JumpingJack0.00 B03-02-12|02:07
...
Sponsored links

JmpJackU.pas (23.64 kB)

Need 1 point
Your Point(s)

Your Point isn't enough.

Get point immediately by PayPal

More(Debit card / Credit card / PayPal Credit / Online Banking)

Submit your source codes. Get more point

LOGIN

Don't have an account? Register now
Need any help?
Mail to: support@codeforge.com

切换到中文版?

CodeForge Chinese Version
CodeForge English Version

Where are you going?

^_^"Oops ...

Sorry!This guy is mysterious, its blog hasn't been opened, try another, please!
OK

Warm tip!

CodeForge to FavoriteFavorite by Ctrl+D