Поскольку, чтобы рисовать в окне при буксировке "мыши", вам необходим контекст дисплея, создайте в объекте основного окна новое поле с именем DragDC, которое будет содержать описатель контекста дисплея. DragDC имеет тип HDC, который эквивалентен типу Word.

    Чтобы использовать контекст дисплея, ваша программа должна:

• получить контекст дисплея;
• нарисовать в нем;
• освободить контекст дисплея.

    Чтобы отобразить что-то в окне, вы должны сначала получить контекст дисплея. Это можно сделать, вызвав в одном из методов типа непосредственно перед отображением на экране функцию Windows GetDC:

     
     DragDC := GetDC(HWindow);

    Теперь вы можете использовать DragDC в качестве параметра в вызовах графических функций Windows, требующих указания контекста дисплея. Приведем несколько примеров:

     TextOut(DragDC, 20, 20, 'Пример текста', 11);
     LineTo(DragDC, 30, 45);

    После отображения текста или графики вы должны освободить контекст дисплея (как только закончите отображение).

     ReleaseDC(HWindow, DragDC);

    Windows выделяет по пять контекстов дисплея на приложение, которые можно совместно использовать через GetDC. Пока в Windows зарезервировано достаточно памяти, вы можете с помощью GetDC получить другие контексты.

    Примечание: GDI и вопросы использования памяти освещаются в Главе 17 "Интерфейс с графическим устройством".

    Щелчок правой кнопкой "мыши" дает удобный способ вывода параметра для изменения толщины пера. Давайте переопределим метод WMRButtonDown для вывода нового диалогового окна ввода.

    Так как диалоговое окно ввода появляется только на короткое время, а вся обработка выполняется одним методом, вам нет необходимости определять его как поле TStepWindows. Оно может существовать в виде локальной переменной метода WMRButtonDown. Все построение и отмену объекта диалогового окна вы можете выполнять в рамках метода WMRButtonDowm.

    Когда Init построит объект диалогового окна ввода, вы можете выполнить его как режимное диалоговое окно, вызвав ExecDialog. ExecDialog проверяет успешность выполнения конструктора Init и создает объект диалогового окна, соответствующий элементу экрана, выполняя затем диалоговое окно. Обработка для ExecDialog завершается только после того как пользователь закрыл диалог, щелкнув "мышью" на командной кнопке OK (Подтверждение) или Cancel (Отмена).

    Если пользователь щелкнул "мышью" на командной кнопке OK, InputText заполняется полученным от пользователя текстом, вызывая метод GetText из TInputDialog. Так как вы запрашиваете номер толщины, возвращаемый текст нужно преобразовать в число и передать его в вызове SetPenSize. Таким образом, каждый раз, когда пользователь выбирает новую толщину линии, старое перо удаляется и создается новое.

     
     procedure TStepWindow.WMLButtonDown(var Msg: TMessage);
     var
        InputText: array[0..9] of Char;
        NewSize, ErrorPos: Integer;
     begin
        if not ButtonDown then
        begin
           Str(PenSize, InputText);
           if Application^.ExecDialog(New(PInputDialog,
               Init(@Self, 'Толщина линии',
               'Введите новую толщину:', InputText,
               SizeOf(InputText))) = id_Ok then
        begin
           Val(InputText, NewSize, ErrorPos);
           if ErrorPos = 0 then SetPenSize(NewSize);
        end;
     end;
     end.

     type
       PStepWindow = ^TStepWindow;
       TStepWindow = object(TWindow)
         DragDC: HDC;
         ButtonDown, HasChanged: Boolean;
         ThePen: HPen;
         PenSize: Integer;
         constructor Init(AParent: PWindowsObject;
                           ATitle: PChar);
         destructor Done; virtual;
         function CanClopse: Boolean: virtual;
         procedure WMLButtonDown(var Msg: TMessage); virtual
                     wm_First + wm_LButtonDown;
         procedure WMLButtonUp(var Msg: TMessage); virtual
                     wm_First + wm_LButtonUp;
         procedure WMMouseMove(var Msg: TMessage); virtual
                     wm_First + wm_LMouseMove;
         procedure WMRButtonDown(var Msg: TMessage); virtual
                     wm_First + wm_RButtonDown;
         procedure SetPenSize(NewSize: Integer); virtual;
     end;

     constructor TStepWindow.Init(AParent: PWindowsObject;
                   ATitle: PChar);
     begin
        Inherited Init(AParent, ATitle);
        ButtonDown := False;
        HasChanged := False;
        PenSize := 1;
        ThePen := CreatePen(ps_Solid, Pensize, 0);
     end;

     destructor TStepWindow.Done;
     begin
       DeleteObject(ThePen);
       inherited Done;
     end;

     procedure TStepWindow.WMLButtonDown(var Msg: TMessage);
     begin
        if not ButtonDown then
        begin
            ButtonDown := True;
            SetCapture"(HWindow);
            DragDC := GetDC(HWindow);
            SelectObject(DragDC, ThePen);
            MoveTo(DragDC, Msg.lParamLo, Msg.lParamHi);
        end;
     end;

     
     procedure TStepWindow.SetPenSize(NewSize: Integer);
     begin
        DeleteObject(ThePen);
        ThePen := Create(ps_Solid, NewSize, 0);
        PenSize := NewSize;
     end;

    На шаге 5 и 6 вы создадите собственное диалоговое окно и объект пера и используете их для более эффективного графического отображения.