Мне нужно рисовать на канве. Однако как я понял для рисования доступна только канва формы. А канва компонентов доступна только для чтения.
Например, для

Код

Panel1->Canvas->Brush->Color = clWhite;

выдаёт ошибку 'TCustomControl::Canvas' is not accessible
А для

Код

Shape1->Canvas->Brush->Color = clWhite;

выдаёт ошибку 'TGraphicControl::Canvas' is not accessible
А мне желательно рисовать на каком-нить компоненте, чтоб легко можно было перемещать нарисованное, и обрабатывать событие FormResize.
Или есть какие-то компоненты для рисования?

у панели канвы нет. у фигуры, как я понимаю, тоже.
используй TControlCanvas...

А можно еще использовать GetDC и вставлять туда нужный тебе указатель Panel1->Handle. А дальше рисуешь winapi-шными функциями.

есть же PaintBox в конце концов....на крайний случай на канве TImage тоже можно рисовать стандартными методами...

Цитата(_hunter @ 11.1.2006, 12:24 )

у панели канвы нет

но её можно создать =)

Код

var       canva: Tcanvas;     begin       canva:=TCanvas.Create;       canva.Handle:=GetDC(Panel1.Handle);       canva.TextOut(0,0,'lol');     end;

Канву создать получилось. В Билдере это выглядит так:

Код

TCanvas *canva;  canva = new TCanvas;  canva->Handle = GetDC(Panel2->Handle);

Однако рисовать не получается. Например, строки

Код

canva->Pen->Style = psSolid;  canva->Brush->Color = clBlack;  canva->TextOut(10,10,"lol");  canva->FillRect(Panel2->ClientRect);

не производят никакого эффекта. Панель как была серая так и остаётся

я ж говорю TControlCanvas используй

А как использовать? В предыдущем примере вместо

Код

TCanvas *canva;  canva = new TCanvas;

написать

Код

TControlCanvas *canva;  canva = new TControlCanvas ;

?

Раз этот класс производный от TControl, значит это визуальный компонент?

Ой, ошибся он производный не от TControl, а от TCanvas

Это сообщение отредактировал(а) ksili - 12.1.2006, 11:54

Рисуй.............