мерцание Image

[digital-stream]

как избавится от мерцание Image DoubleBufferd не помогает

[phomm]

Рисовать всё на битмап размером с имейдж, потом этот битмап единым махом нарисовать

image.canvas.draw (0,0, bitmap);

или присвоить

image.picture := bitmap;

решение примерно, явно скопипастить может и не получится, доработайте.

[digital-stream]

Сообщение от phomm

Рисовать всё на битмап размером с имейдж, потом этот битмап единым махом нарисовать

image.canvas.draw (0,0, bitmap);

или присвоить

image.picture := bitmap;

решение примерно, явно скопипастить может и не получится, доработайте.

begin
if FMode = rmLeft then // Left.
begin
YPos := 0;
Dec(XPos);
if XPos + XWidth >= 0 then XPos2 := XPos + XWidth
else begin
XPos2 := XPos - 1;
XPos := XPos2 + XWidth;
end;
end
else if FMode = rmBottomLeft then // Bottom.
begin
Dec(YPos);
if (YPos = -1) and (FRght) then
begin
FRght := false;

end;
if YPos < 0 then
begin
YPos := 0;
Dec(XPos);
if XPos + XWidth >= 0 then XPos2 := XPos + XWidth
else begin
XPos2 := XPos - 1;
XPos := XPos2 + XWidth;
end;
end;
end

paintbox2.Canvas.FillRect(ClientRec t);
paintbox2.Canvas.TextOut(XPos, YPos, FCaption);
paintbox2.Canvas.TextOut(XPos2, YPos, FCaption);

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[ZuBy]

digital-stream, полоса прокрутки текста?)

[digital-stream]

Сообщение от ZuBy

digital-stream, полоса прокрутки текста?)

Да я у тебя скачал ))))

[ZuBy]

вот те прокрутка, давно писал. думаю разберешься.
только там ручная прокрутка реализована, сам мышкой крутишь