Mam mały problem. Chodzi mi oto, żeby zrobić jakby animację napisu, który posuwa się w górę. Napis wrzuciłem do labela i napisałem taki kod:
for i:=label1.top downto 0-label1.height do begin
application.processMessages;
label1.top:=i;
end;
Wszystko jest pięknie, label się posuwa, ale on strasznie miga. nauczony doświadczeniem spróbowałem:
form3.doubleBuffered:=true; //tego labela mam powiedzmy na form3
jednak program się wtedy zawiesza :(
HELP!
Zrób na canvasie, wtedy nie będzie migać.
Zrób na canvasie, wtedy nie będzie migać.
Na canvasie labela, czy formy?
Zrób na canvasie, wtedy nie będzie migać.
Na canvasie labela, czy formy?
Oczywiście że formy. Zamiast TLabel użyj canvas.textOut(x,y,'Napis');
Zrób na canvasie, wtedy nie będzie migać.
Na canvasie labela, czy formy?
no chyba nie labela...
Zrób na canvasie, wtedy nie będzie migać.
Na canvasie labela, czy formy?
no chyba nie labela...
albo zrob to na timerku...wtedy program nie bedzie "zawieszony" :)
Zrób na canvasie, wtedy nie będzie migać.
Na canvasie labela, czy formy?
Oczywiście że formy. Zamiast TLabel użyj canvas.textOut(x,y,'Napis');
Tekst jest dosyć długi, więc musiałem uzyć funkcji DrawText i.t.d.
(żeby utworzyć "pole", w którym tekst będzie wyswietlany, i linie będą załamywane), bo o ile wiem, to zwykłe TextOut nie załamuje wiersza.
Ale i tak miga. Znacie może jakiś komponent, do animacji przesuwania tekstu?
Znacie może jakiś komponent, do animacji przesuwania tekstu?
DelphiX. Wtawiasz DXDraw na formę tak jak TImage i używasz jego Canvasa.