Animação com figuras
Publicado por Daniel 22/04/2005
[ Hits: 9.924 ]
Aprenda a simular movimentos com o Kylix usando a Unit "Qt"
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.
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Miyoo Mini Plus + Onion OS (Linux)
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como colocar atalho para uma pasta na área de trabalho do Ubuntu 24.04... (1)
Como listar os arquivos em "bloquin... (0)
Como vencer a procrastinação? (8)
Adicional de convivdado em linux somente linha de comando (3)