| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Рисование на TRadioGroup через его Handle. [D5, Win2k]
Дельфятник © (2002-08-20 11:28:00)Мне тут понадобилось порисовать на TRadioGroup, но свойства Canvas у TRadioGroup нет, и у объекта (RadioGroup.Controls[0] as TRadioButton) свойства Canvas тоже нет. Но рисовать хочется, поэтому беру TRadioGroup.Handle, а куда его подать - забыл. Как называется процедура рисования, использующая Handle объекта? Нужно что-то типа Canvas.Draw(Rect.Left,Rect.Top,BitMap).
Дельфятник (2002-08-20 11:57:00) [1]Огромное спасибо!
Skier (2002-08-20 11:41:00) [2]>Дельфятник
Примерно так :
procedure TForm1.Button2Click(Sender: TObject);
procedure DrawOnRadioGroup(const ARadioGroup : TRadioGroup);
var
ACanvas : TCanvas;
ADC : HDC;
begin
if ARadioGroup = nil then Exit;
ACanvas := TCanvas.Create;
ADC := GetDC(ARadioGroup.Handle);
try
ACanvas.Handle := ADC;
ACanvas.Rectangle(10, 10, 20, 20); //заменяешь на свой код...
finally
ReleaseDC(ARadioGroup.Handle, ADC);
ACanvas.Free;
end; //try
end; //DrawOnRadioGroup
begin
DrawOnRadioGroup(RadioGroup1);
end;
| |
