Как нарисовать на TPanel

Question

Мне нужно нарисовать на TPanel, в идеале прямо, поэтому у меня нет другого компонента поверх него, мешающего захвату событий mousevent (я хочу нарисовать немного " захват "на нем). Как мне это сделать?

Answer 1

Для того чтобы действительно сделать это правильно, вы, вероятно, следует написать потомок класса. Переопределите метод Paint, чтобы нарисовать размерную ручку и переопределить методы MouseDown, MouseUp и MouseMove, чтобы добавить функциональность изменения размера в элемент управления.

Я думаю, что это лучшее решение, чем пытаться рисовать на TPanel в коде приложения для нескольких причин:

1. Свойство Canvas защищен в TPanel, поэтому у вас нет доступа к нему снаружи класс. Вы можете обойти это с типом, но это обман.
2. «Изменчивость» звучит скорее как функция панели, чем функция приложения, поэтому поместите ее в код для управления панелью, а не в основной код приложения.

Вот что-то, чтобы вы начали:

type 
    TSizablePanel = class(TPanel) 
    private 
    FDragOrigin: TPoint; 
    FSizeRect: TRect; 
    protected 
    procedure Paint; override; 
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; 
     X, Y: Integer); override; 
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; 
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; 
     X, Y: Integer); override; 
    end; 

procedure TSizeablePanel.Paint; 
begin 
    inherited; 
    // Draw a sizing grip on the Canvas property 
    // There's a size-grip glyph in the Marlett font, 
    // so try the Canvas.TextOut method in combination 
    // with the Canvas.Font property. 
end; 

procedure TSizeablePanel.MouseDown; 
begin 
    if (Button = mbLeft) and (Shift = []) 
     and PtInRect(FSizeRect, Point(X, Y)) then begin 
    FDragOrigin := Point(X, Y); 
    // Need to capture mouse events even if the mouse 
    // leaves the control. See also: ReleaseCapture. 
    SetCapture(Handle); 
    end else inherited; 
end; 

Answer 2

Простейший способ сделать это - просто поместить TImage на панель. Но если вы действительно этого не хотите, введите TCanvas в редактор кода, нажмите F1 и получайте удовольствие от изучения того, как он работает под капотом. (Не говорите, что я вас не предупреждал ...)

Answer 3

Это один из многих способов, которыми Raize Components может сделать вашу жизнь проще. Я просто иду в Delphi, падение на TRzPanel и тип:

RzPanel1.Canvas.Rectangle ...

Я уверен, что есть и другие решения - но я не должен ищите их с Raize.

(только удовлетворенный клиент в течение 10 лет ...)

EDIT: Учитывая вашу цель, и ваше утверждение, что у вас есть Raize компоненты уже, я хотел бы также отметить, что TRzSizePanel обрабатывает изменение размеров панели и такие как OnCanResize (чтобы определить, хотите ли вы разрешить изменение размера для определенной новой ширины или высоты).

Answer 4

Как добавить Размер Ручка для управления изменением размера в Run-Time: http://delphi.about.com/library/weekly/aa110105a.htm

TAdvPanel: http://www.tmssoftware.com/site/advpanel.asp