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

Вниз

Пользовался кто нибудь функцией PaintTo для прорисовки WinControl ов на канвас битмэпа? Помогите! У меня ничего не получается.   Найти похожие ветки 

 
Kost   (2001-12-14 14:10) [0]

Пользовался кто нибудь функцией PaintTo для прорисовки WinControl"ов на канвас битмэпа? Помогите! У меня ничего не получается.


 
valery_f   (2001-12-14 18:16) [1]

Пользовался. Единственное "но" - изначально невидимый WinControl не имеет хэндла и дает эксэпшн при PaintTo. Если это свой компонент - зови CreateHandle, если нет - сделай его видимым потом спрячь - хэндл появится и PaintTo заработает.


 
DK   (2001-12-15 03:52) [2]

2valery_f
Можно вопрос:
Как это? Контрол есть, а хэндла нет. Разве такое может быть?


 
Kost   (2001-12-15 13:05) [3]

Имеется форма TForm1. На нее помещена "подопытная кнопка" BitBtn1.
Имеется желание, по нажатию на другую кнопку - Button1 сделать следующее:
- нарисовать изображение BitBtn1 на канвас битмэпа с помощью PaintTo
- вывести полученный битмэп на канву формы

НЕ ПОЛУЧАЕТСЯ! BitBtn1 не рисуется в битмэп! ПОЧЕМУ! ГДЕ Я НЕ ПРАВ?

procedure TForm1.FormCreate(Sender: TObject);
begin
//Создаем битмэп
bmp := TBitmap.Create;
bmp.Width := 150;
bmp.Height := 150;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//При нажатии на кнопку рисуем BitBtn1 на канвас битмэпа
BitBtn1.PaintTo(bmp.Canvas.Handle, 0, 0);
Invalidate; //Чтобы вызвать перерисовку формы
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
//Выводим на канву формы битмэп
Canvas.Draw(0,0, bmp);
end;


 
DK   (2001-12-16 02:26) [4]

Всё работает!!!
Может ты просто не обрабатываешь нажатие на кнопку?
procedure TForm1. Button1Click(Sender: TObject);
procedure TForm1. BitBtn1Click(Sender: TObject);


 
Kost   (2001-12-16 12:12) [5]

И, все таки, не работает. Кнопка в битмэп не рисуется. TPanel рисуется а TButton и TBitBtn нет.



Страницы: 1 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.019 c
1-22087
Serg5
2001-12-19 15:14
2002.01.08
Люди, совсем лёгкий вопрос! Ссылка на процедуру, одним словом.


4-22455
Mamed
2001-10-31 10:13
2002.01.08
Активизировать окно другой программы


4-22463
Dmitry Alferev
2001-11-01 23:38
2002.01.08
FindResource не находит ресурс


1-22109
avr555
2001-12-19 17:17
2002.01.08
ComboBox в Grid


1-22059
Leo^Sun
2001-12-19 07:24
2002.01.08
Кто работал на