Форум: "Media";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
ВнизКак создать на клиентской части формы БИТМАП (НЕ канву). Найти похожие ветки
← →
xn0bys (2003-08-29 08:23) [0]Мне нужно добраться до scanlines не используя временный битмап.
У меня есть вот что:
procedure OnPaint;
Var
Temp:TBitmap;
begin
Temp:=TBitmap.Create;
Temp.Width:=ClientWidth;
Temp.Height:=ClientHeight;
...
здесь рисую на временном битмапе (через сканлайны)
...
Canvas.Draw(0,0,Temp);
Temp.free;
end;
А нужно чтоб не использовать Temp.
Я пробовал так:
procedure OnPaint;
Var
DC1, DC2: HDC;
Temp : TBitmap;
begin
Temp:=TBitmap.Create;
DC1:=CreateCompatibleDC(Canvas.Handle);
DC2:=CreateCompatibleBitmap(Canvas.Handle, nil, nil, nil);
Temp.Handle:=DC2;
...
здесь рисую на временном битмапе (через сканлайны)
...
DeleteDC(DC2);
DeleteDC(DC1);
Temp.free;
end;
Так работает быстрее, но почему-то не рисует (ошибки не выдает).
Может я чего не то делаю? Подскажите.
Заранее Спасибо!!!
← →
mrAld (2003-08-29 12:31) [1]Во втором коде что-то мне подсказывает, что ты забыл забыл привязать DC2 к DC1. Сам посуди, DC1 в этом коде не используется.
← →
xn0bys (2003-08-29 12:49) [2]Всё равно не рисует!
← →
Крот (2003-09-02 10:22) [3]1. Почему значение, возвращаемое CreateCompabliteBitmap ты помещаешь в переменную типа HDC, ведь возвращается HBITMAP?
2. Где собственно код рисования (в первом примере это Canvas.Draw, а во втором?)
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c