VPF::как реализовать? CreatePen + pmXor - Форум программистов

niteo

Дата 16.7.2009, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: нет
Всего: 1

Всем привет. Подскажите, как сделать перо на WinAPI с параметром pmXor. Необходимо осуществить перемещение прямоугольника по форме. Есть вот такой код:

Код


procedure DrawRect;
begin
  with Form1.Canvas do 
  begin
    Pen.Style := psDot;
    Pen.Color := clGray;
    Pen.Mode := pmXor;
    Brush.Style := bsClear;
    Rectangle(sel.Left, sel.Top, sel.Right, sel.Bottom);
  end;
end;

--------------------

Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...

Rrader

Дата 16.7.2009, 17:13 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Код


procedure DrawRect;
var
  OldPen, NewPen: HPEN;
  OldBrush: HBRUSH;
begin
  with Form1.Canvas do
  begin
    SetROP2(Handle, R2_XORPEN);
    NewPen := CreatePen(PS_DOT, 1, ColorToRGB(clGray));
    try
      OldPen := Pen.Handle;
      Pen.Handle := NewPen;
      try
        OldBrush := Brush.Handle;
        //Brush.Handle := GetStockObject(NULL_BRUSH);
        try
          Windows.Rectangle(Handle, 10, 10, 200, 200);
        finally
          Brush.Handle := OldBrush;
        end;
      finally
        Pen.Handle := OldPen;
      end;
    finally
      DeleteObject(NewPen);
    end;
  end;
end;

Это сообщение отредактировал(а) Rrader - 16.7.2009, 17:33

--------------------

Let's do this quickly!
Rest in peace, Vit!

niteo

Дата 16.7.2009, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: нет
Всего: 1

Работает!!! Спасиб. Нада Английский учить, ИМХО MSDN всем в помощь smile

--------------------

Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...

niteo

Дата 19.7.2009, 19:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: нет
Всего: 1

Заменил строки
      OldPen := Pen.Handle;
      Pen.Handle := NewPen;
на
      OldPen := SelectObject(Handle, NewPen); smile

--------------------

Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...

Rrader

Дата 20.7.2009, 05:07 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Когда мешаете VCL И WinAPI, лучше не злоупотреблять этим smile

--------------------

Let's do this quickly!
Rest in peace, Vit!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »