Como crear un bitmap en tiempo de ejecucion y como dibujar puntos mas rapidamente que con pixel[]

Por Saiyine el 2001-01-01 00:00:00 - Secciones: DELPHI - Enlace permanente: 443

procedure EscribePixel(x,y : integer; r,g,b : byte; var b : TBitmap);
var
  Pix : PByteArray;
begin
  Pix := b.ScanLine[y];
  Pix[x*3]:=b;
  Pix[x*3+1]:=g;
  Pix[x*3+2]:=r;
end;

function CrearBitmap(tamx,tamy : integer) : TBitmap;
begin
  result:=TBitmap.Create;
  result.Height:=tamy;
  result.Width:=tamx;
  result.PixelFormat := pf24Bit;
end;

Otras entradas de la web que podrian interesarte:

(444) jul 14 DELPHI Como dibujar en los pixels de un bitmap con punteros (mas rapido que pixel(]) y como pasar de TColor a RGB
(476) nov 30 DELPHI Hacer que el programa espere un tiempo, como con el delay del turbo pascal
(471) nov 30 DELPHI Crear un JPG uniendo varios mas pequeños de igual tamaño uno al lado del otro
(442) ene 01 DELPHI Como averiguar el codigo ascii de una tecla pulsada en el form y como simular la pulsacion de otra
(517) nov 30 LINUX ¿Como hago en el KDE que los iconos dejen de comportarse como si fueran botones, es decir, que hago para que se seleccione pulsando una vez y se ejecute con un click?

o o o o

Vista previa (6/6/6, 6:66)

Fondos de pantalla

. . .

Menuda oferta, ¿un pendrive Verbatim de 16Gb por solo 8,99€???

Secciones

Principal

Delphi

Java

PHP

Ideas

. . .

Tags de la web

Linux (118) - Delphi (56) - Tuiterbuc (52) - Imagenes (45) - English (42) - Java (31) - Videos (28) - Lyrics (27) - Windows (25) - Chorradas (21) - Futbol (20) - Publicidad (17) - Programas (17) - Javascript (16) - Programacion (14) - Perl (14) - Ideas (14) - Cine (12) - Php (11) - Slashdot (10) - Minipost (8) - Trucos (8) - Utilerias (7) - Frases (7) - Csharp (7) - Ubuntu (6) - Google (6) - Photoshop (6) - Fotos (6)

. . .

Descargas

ApagaPC
apagapc241.exe (4488)

LimpiaDocus
LimpiaDocus001.exe (3792)

RCM
rcm001.zip (3200)

Popmail
popmail-0.4-psmn.tar.gz (3272)

Manual de Delphi en PDF
delphi_pdf.zip (3904)

Evangelio del Perl
Evangelio_del_perl.pdf (3983)

Excel Simpsons
Excel Simpsons (3914)

. . .

ltimos comentarios

481 - Alvareto: Buenas, Lino... el procedimiento: Justifica(ListBox1.Items,ListBox1.font,ListBox1.width); lo ubicas también en el BeforePrint o...

920 - jftc: jftc es lo maximo

920 - Anonimo: exelente gracias por la ayuda

...

877 - Anonimo: parpadeen muchas veses y veran que se mueve ...

920 - Anonimo jaja: jjaj buena la pag me sirvio para comprar muchas cosas...

924 - Anonimo: muy bueno. saludos.

. . .