Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

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


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
Você pode questionar:
Как это? Контрол есть, а хэндла нет. Разве такое может быть?



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

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

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

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

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

procedimento TForm1.FormPaint (Sender: TObject);
começar
//Выводим на канву формы битмэп
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 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.83 MB
Hora: 0.027 c
14-22372
froz
2001-11-08 16:25
2002.01.08
URGENTEMENTE!


14-22398
Jey
2001-11-10 18:55
2002.01.08
Aqui foi para o cliente de IRC fazer ....


3-21905
nic406
2001-11-28 04:21
2002.01.08
Ajuda! Eu faço Selecione * de T1 -> atualizar -> erro (ADODataSet)


4-22466
Arte
2001-10-31 15:21
2002.01.08
E ainda, como limitar o plano de movimento do mouse para os limites da forma?


1-22087
Serg5
2001-12-19 15:14
2002.01.08
Pessoas, uma pergunta muito fácil! Link para o procedimento, em uma palavra.





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol