Canvas формы

[chertovich]

Здравствуйте. Пишу компонент наследуя TScrollingWinControl, добавляя канву, точно так же как это делает класс TForm.
Этот компонет использую для размещения панелек и их перемещения по этому компонету. Хочу сделать выделение панелек, для этого использую канву, свой компонет показывать не буду, чтобы не напрягать, покажу код при помощи события OnPaint формы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
  with Canvas do
  begin
    // Очистка канвы
    Brush.Style := bsSolid;
    Brush.Color := clSilver;
    FillRect(ClientRect);

    // Рисование параллельной линии над панелью
    MoveTo(Panel1.Left, Panel1.Top - 2);
    LineTo(Panel1.Left + Panel1.Width, Panel1.Top - 2);
  end;
end;

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Перемещение панели
  ReleaseCapture;
  Panel1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

end.

Но код, который очищает и рисует линию сверху от панельки (которые паралельны верху панели) не очищает нарисованные до этого линии (контур панелек). Хотелось бы узнать что в этом коде не так и как необходимо реализовывать рисование контура вокруг панели (то есть очистку).

[Прик]

Но код, который при перемещении панельки линии не очищаются.

Хоть что-то из этого предложения кто-то понять может?

[bulldog5293]

при перемещение формы получается ещё линии?

[chertovich]

Сообщение от bulldog5293

при перемещение формы получается ещё линии?

При перемещении панели, линии на канве формы.
А должна быть одна линия сверху панели.

[Прик]

Эти линии и получаются, если их чертить:

    // Рисование параллельной линии над панелью
//    MoveTo(Panel1.Left, Panel1.Top - 2);
//    LineTo(Panel1.Left + Panel1.Width, Panel1.Top - 2);

[chertovich]

Сообщение от Прик

Эти линии и получаются, если их чертить:

    // Рисование параллельной линии над панелью
    MoveTo(Panel1.Left, Panel1.Top - 2);
    LineTo(Panel1.Left + Panel1.Width, Panel1.Top - 2);

1. При каждой перерисовки я очищаю канву
2. Этот код для чертижа одной линии сверху панели
И получается, что код для очистки канвы не работает, вот я хочу узнать почему и как это устранить

[Прик]

И где эта перерисовка наблюдается?
Сделайте хотя бы элементарные телодвижения:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Перемещение панели
  ReleaseCapture;
  Panel1.Perform(WM_SYSCOMMAND, $F012, 0);
  Invalidate;
end;

Ну разве можно двигать объекты по форме этаким кодом... Где слямзили?
Впрочем, какая разница - надо бы автору поискать как это делается нормально - примеров море.

[chertovich]

Спасибо, так по лучше но не совсем так как хотелосьбы. Приведите пожауйста примерчик нормального, на ваш взгляд, перемещения панели

[Прик]

Странно. Была наводка: "примеров море".
Как вариант:
Panel1MouseDown - запоминаем координаты мышиного курсора (saveX, saveY : Integer или savePt : TPoint);
Panel1MouseMove - сдвигаем панель на Panel1.Left := Panel1.Left + X - saveX (не забывая и вертикальную составляющую);
Panel1MouseUp - сброс savePt (saveX, saveY).
saveX, saveY, savePt - имена нарицательные и могут быть заменены на любые другие по вкусу.

[chertovich]

Сообщение от Прик

Странно. Была наводка: "примеров море".
Как вариант:
Panel1MouseDown - запоминаем координаты мышиного курсора (saveX, saveY : Integer или savePt : TPoint);
Panel1MouseMove - сдвигаем панель на Panel1.Left := Panel1.Left + X - saveX (не забывая и вертикальную составляющую);
Panel1MouseUp - сброс savePt (saveX, saveY).
saveX, saveY, savePt - имена нарицательные и могут быть заменены на любые другие по вкусу.

Такой алгоритм мне не подходит, в нем есть недостатаки. Так и думал что мне предложат эту реализацию, ничего нового и полезного я не увидел.
Может попытаетесь еще, вы же сами сказали что "море вариантов"