Animação com figuras

Publicado por Daniel 22/04/2005

[ Hits: 9.747 ]

Download capoeira.tar




Aprenda a simular movimentos com o Kylix usando a Unit "Qt"

  



Esconder código-fonte

unit U_Principal;

interface

uses
  SysUtils, Classes, QGraphics, QForms, Qt, QMenus, QTypes;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.xfm}

procedure TForm1.FormPaint(Sender: TObject);
var
  Bmp: TBitmap;
  Img: SmallInt;
begin
  Bmp := TBitmap.Create;
  for Img := 1 to 10 do
  begin
    Bmp.LoadFromFile(IntToStr(Img) + '.bmp');
    Bmp.Mask(clWhite);
    QWidget_setMask(Handle, QPixmap_mask(Bmp.Handle));
    Canvas.Draw(0, 0, Bmp);
    Sleep(400);
  end;
  Bmp.Destroy;
end;

end.

Scripts recomendados

Juros

Programa para Cálculo Vetorial

Forca

Método de eliminação de Gauss com pivotamento parcial

Calculadora


  

Comentários
[1] Comentário enviado por ferigorcost em 24/10/2005 - 12:59h

Valeu me caro!!!
Essa sua iniciativa foi muito boa, acredito que teremos muitas idéias para trocar...


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts