Irritende grå firkant

Tags:    delphi

User
Bruger #75 @ 09.10.01 21:32
Hejsa

Jeg har denne kode:

procedure TForm1.Button1Click(Sender: TObject);
var
varint : integer;
begin
for varint := 184 to Image2.Left do
begin
Image1.Left := varint;
Sleep(10);
Application.ProcessMessages;
end;
end;

Det gør at Image1, som er transparent, flytter sig hen over et tredje billede på formen, indtil det når Image2. Men mens det flytter sig blinker der en grå (formens baggrundsfarve) firkant, rundt om Image1.
Er der nogle, som vil hjælpe mig med dette?

Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk




3 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
User
Bruger #58 @ 11.10.01 16:43
<quote>Men mens det flytter sig blinker der en grå (formens baggrundsfarve) firkant, rundt om Image1.
Er der nogle, som vil hjælpe mig med dette?

Den grå firkant, vil jeg gerne have væk, hvis nogle skulle være i tvivl.</quote>

Prøv at sætte DoubleBuffered propertien på formen til True i din FormCreate event.

<pre> /^ g4s : gee-four-s aka. Niels Martin Hansen<br> \\/ _ mail : g4s [at] mail [dot] dee-kay<br> /__| icq : 50 18 73 23<br> _|</pre>



User
Bruger #75 @ 09.10.01 21:35
<quote>Men mens det flytter sig blinker der en grå (formens baggrundsfarve) firkant, rundt om Image1.
Er der nogle, som vil hjælpe mig med dette?
</quote>

En lille rettelse:

Den grå firkant, vil jeg gerne have væk, hvis nogle skulle være i tvivl.

Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk




User
Bruger #75 @ 20.10.01 23:04
<quote>
Prøv at sætte DoubleBuffered propertien på formen til True i din FormCreate event.
</quote>

Det virker, men det bevirker også at Image1 bevæger sig en hel del langsommere hen over skærmen??!

Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk




t