🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi
Article #236

Re: Przyspieszenie gfx -- jak?

#236
From: pio... Maly
Date: Wed, 01 Oct 1997 00:00
38 lines
1569 bytes
On 24 Sep 1997 10:45:41 GMT, mac...@phys.uni.torun.pl (Maciej Pilichowski) wrote:

>Hej,
>
>  Mam dwie identyczne petle, w jednej wykonuja sie obliczenia, a w drugiej
>te same obliczenia plus punkt po punkcie rysowany rysunek /na podstawie tych
>obliczen/. Petla pierwsza 25 sek., a druga 1.5 minuty. Cos mi sie zdaje, ze
>spowalnia tu glownie jedna instrukcja
>  ...canvas.pixels[x,y]:=kolor;
>
>  Rysunek nie jest odswiezany na biezaco /efekt niezamierzony, ale ok/, ale
>sadze, ze po kazdej zmianie pixela lataja wte i wewte jakies komunikaty typu
>WM_PAINT. Czy daloby sie to rysowanie jakos przyspieszyc -- np. zablokowac
>proby odswiezenia?
>

zrob bitmape komatybilna z Canvas.Handle :

	(z pamieci wiec moze byc nie za bardzo z sensem)
	hdc := CreateCompatibleDC( ... )
	hbmp := CreateBitmap( ..., hdc )

	rysuj na hdc

	BitBtl( z hdc na Canvas.Handle )

to powinno bardzo przyspieszyc
jezeli chcesz kawalek kodu (prawdziwego) to napisz na priv - bede musial pogrzebac!

HEj!

---------------------------------------
Piotr Boguslawski - Internet Developer
e-mail: pio...@syrensoft.com.pl
http://www.syrensoft.com.pl
tel. 0 602 237 175
ICQ: 3766160
Technical Details
Message-ID: <34324f6c.90412005@news.tpsa.pl>
Path: mbox-mo1.pugleaf.net!unknown!not-for-mail
References: <60ar0l$7sh$1@flis.man.torun.pl>

Show Full Headers
Complete Article Headers
From: pio...@syrensoft.com.pl (Maly)
Subject: Re: Przyspieszenie gfx -- jak?
Date: 1997/10/01
Message-ID: <34324f6c.90412005@news.tpsa.pl>
X-Deja-AN: 277033859
References: <60ar0l$7sh$1@flis.man.torun.pl>
Reply-To: pio...@syrensoft.com.pl
Newsgroups: pl.comp.lang.delphi
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit