Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с TCanvas [Delphi, Windows]

Sinistral © (2006-04-25 00:32:00)
Народ, подскажите пожалуйста как можно на канву скопировать изображение из TBitmap, чтобы выводимое изображение не моргало.
Примитивно, но додуматься не могу!

Домовенок (2006-04-27 14:59:00) [1]
Form1.DoubleBuffered := True;

Аццкий_рыцарь:) (2006-04-25 09:00:00) [2]
тут уже такое обсуждали...

procedure TForm1.Button1Click(Sender: TObject);
var P: TBITMAP;
begin
p:= DXImageList1.Items.Items[3].Picture.bitmap;
with P do begin
Width := 77;
Height := 77;
Canvas.Brush.Color := clBlack;
Canvas.Pen.Color := clRed;
canvas.Draw(0,0,dxdib1.DIB);
end;
Self.DXImageList1.Items.Items[3].Restore;
end;

KreeS (2006-04-25 08:54:00) [3]
Создаешь переменную Buffer: TBitmap, это и будет задний буффер, рисуешь сначала все на него, когда все нарисовано, копируешь Buffer на канву формы, можно так как выше или
Form1.Canvas.Draw(X, Y, Buffer);

antonn (2006-04-25 05:53:00) [4]
или BitBlt(Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,Bitmap.Canvas.Handle,0,0,SRC COPY);

antonn (2006-04-25 05:52:00) [5]
нужный_канвас.copyrect(rect(0,0,Bitmap.width,Bitmap.height),Bitmap.canvas,rect(0 ,0,Bitmap.width,Bitmap.height));

Unsigned (2006-04-25 00:46:00) [6]
Нужно юзать двойную буферизацию! Т.е создаешь внеэкранный контекст и рисуешь все на него, а когда все что нужно нарисовано просто копируешь содержимое контекста на контекст формы.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »