Главная страница
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.03 c
14-12169
Soft
2003-12-10 23:17
2004.01.05
Проверка правописания украинских слов.


14-12041
Пока_Ещё_Не_Программист
2003-12-10 15:39
2004.01.05
Настоящими программистами рождаются или становятся?


3-11773
MegaDen
2003-12-09 19:24
2004.01.05
DBGrid


1-11944
real_dimedrol
2003-12-20 03:57
2004.01.05
URL парсер для ленивых


14-12075
PVOzerski
2003-12-10 10:40
2004.01.05
Win XP - просто интересно.