Двойная буферизация

[volod3000]

Здравствуйте !
Хочу освоить Двойную буферизацию, но что то не получаеться,
не могу понять в чем проблема.

Ниже представлен код программы, подскажите где ошибка ?

.....

var
  Form1: TForm1;
  sam, buf:TBitmap;
  BufRct: TRect;
  x, y, TW: Integer;
  w, h: Integer;
  s: String;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    s:= 'Это большой пример для маленькой компании.';

    sam:= TBitmap.Create;
    buf:= TBitmap.Create;

   sam.Width:=  ClientWidth;
   sam.Height:= (ClientHeight - sam.Canvas.TextHeight(s)) div 2;

   w:= sam.Width;
   h:= sam.Height;

   buf.Width:= w;
   buf.Height:=h;

   x:= ClientWidth;
   y:= 0;
   X := X - 100;
   sam.Canvas.Font.Color:= clRed;
   sam.Canvas.Font.Name := 'Georgia';
   sam.Canvas.Font.Size := 15;
   sam.Canvas.Font.Style:= [fsBold];
   sam.Transparent:= True;
   TW := sam.Canvas.TextWidth(s);

   sam.Canvas.TextOut(x,y,s);

   BufRct := Bounds(x + 1, y, w, h);
   Buf.Canvas.CopyRect(Buf.Canvas.ClipRect,Form1.Canvas,BufRct);

   Form1.Canvas.Draw(0,20,sam);

   Timer1.Enabled:= True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Canvas.Draw(0,20,sam);

X := X - 1;
If X <= -TW  then
X := ClientWidth;

 BufRct := Bounds(x + 1, y, w, h);
 Buf.Canvas.CopyRect(Buf.Canvas.ClipRect,Form1.Canvas,BufRct);
 sam.Canvas.TextOut(x,y,s);
 Form1.Canvas.Draw(0,20,sam);
end;

end.

Программа выводит бегущую строку на форму, при sam.Transparent:= True
она размазана, при sam.Transparent:= False идет нормально.
Конечно можно подобрать цвет sam.Canvas.Brush.Color:= clBtnFace , но
это на простом фоне, а если сложный фон (картинка). Подскажите где ошибка и
как ее исправить

[Zeraim]

После перерисовки, очищай старое место. Тоесть нарисовал, решил переместить, очистил, нарисовал опять. Поему тотже самый repaint тебя спасёт.

[DeKot]

Немного неправильный принцип отображения графики. Выбранный фон нужно хранить также в невидимом буфере и для "уничтожения" изменяемого рисунка (здесь текст также является графическим рисунком), брать из него область (Rect) по размеру рисунка и только после всех преобразований выводить результат на канву формы.
Посмотрите вот сюда : http://programmersforum.ru/showthread.php?t=38106 пост #6.

[volod3000]

Спасибо DeKot за ссылку.
Нашел для себя полезную информацию 'Устранение эффекта мигания'.

[ViktorXP]

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

После перерисовки, очищай старое место. Тоесть нарисовал, решил переместить, очистил, нарисовал опять. Поему тотже самый repaint тебя спасёт.

Вот именно изза того что VCL по этому принцыпу написана, так страшно компоненты моргают при ресайзе (если их много).
Кстате начиная с Висты мелкософтые начали решать эту проблему. они зделали BufferedPaint. хотя если учесть как там медленно выводится графика через привычный TCanvas (или навпрямую через WinApi) то это скорее компенсацыя тормозов. (тестыл в цыкле вывод градиента. на маленьких участках виста существенно обгоняет XP а вот на больших - нервно курит в сторонке)