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

Вниз

Рисование на TRadioGroup через его Handle.   Найти похожие ветки 

 
Дельфятник   (2002-08-20 11:28) [0]

Мне тут понадобилось порисовать на TRadioGroup, но свойства Canvas у TRadioGroup нет, и у объекта (RadioGroup.Controls[0] as TRadioButton) свойства Canvas тоже нет. Но рисовать хочется, поэтому беру TRadioGroup.Handle, а куда его подать - забыл. Как называется процедура рисования, использующая Handle объекта? Нужно что-то типа Canvas.Draw(Rect.Left,Rect.Top,BitMap).


 
Skier ©   (2002-08-20 11:41) [1]

>Дельфятник

Примерно так :


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;


 
Дельфятник   (2002-08-20 11:57) [2]

Огромное спасибо!



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

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

Наверх




Память: 0.47 MB
Время: 0.015 c
14-3575
AL2002
2002-08-02 17:56
2002.09.02
Есть у кого-то резак Teak W58E?


3-3238
Yngwar
2002-08-11 12:43
2002.09.02
Проблема с транзакциями в ADO


1-3415
nikolo
2002-08-16 16:40
2002.09.02
Как привести строку или число к типу Char?


1-3476
Tokha
2002-08-21 09:53
2002.09.02
Как удалить строки из TStringGrid ?


8-3534
Oleg Shashin
2002-04-24 04:02
2002.09.02
Посоветуйте компонент для конверсии GIF,JPG в BMP