Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.05;
Скачать: CL | DM;

Вниз

Как создать на клиентской части формы БИТМАП (НЕ канву).   Найти похожие ветки 

 
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 вся ветка

Текущий архив: 2004.01.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
4-12212
Дархан
2003-11-04 11:03
2004.01.05
Язык


3-11823
Mamed
2003-12-08 08:33
2004.01.05
Inserted Trigger


3-11780
Darrin
2003-12-10 11:02
2004.01.05
ADO + *.dbf


14-12128
Phn
2003-12-13 16:51
2004.01.05
Увеличить скорость работы процедуры


1-11973
Марат
2003-12-19 05:59
2004.01.05
Использование F1