Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

OffsetRgn и TCanvas [D7, 95/98]

fog © (2006-10-26 03:22:00)
ДВС! Помогите найти ошибку в тест-программе, плз.

procedure TForm1.MyDraw(const Cs: TCanvas); begin Cs.Ellipse(0, 0, 110, 110); end; procedure TForm1.Button1lick(Sender: TObject); var i, j: integer; p: TPoint; r: TRect; hr: hRgn; begin hr := CreateRectRgn(0, 0, 100, 100); SelectClipRgn(Canvas.Handle, hr); SetWindowOrgEx(Canvas.Handle, 0, 0, @p); for j := 1 to 5 do begin MyDraw(Canvas); i := OffsetRgn(Canvas.Handle, -j*100, 0); //i = 0 - область не смещается OffsetWindowOrgEx(Canvas.Handle, -j*100, 0, @p); Canvas.Pen.Color := clRed shl j*10; end; DeleteObject(hr); end;

Замысел - последовательно отрисовать несколько однотипных процедур (MyDraw) в одном DC с отсечением - чтобы исключить проверку на выпадение точек за пределы области.

Просьба рассматривать данный вопрос AS IS. (без вариантов BitBlt, TBitmap и т.д. и т.п.)

Ketmar (2006-10-27 00:30:00) [1]
>[11] fog 27-Oct-2006, 00:19
>Не лень писать голимые коменты?
ясно. ещё один чукча. в сад.

fog (2006-10-27 00:19:00) [2]
2 Ketmar>
"Профессионал - это тот, кто не только знает, а еще умеет объяснить."

Не лень писать голимые коменты?

Ketmar (2006-10-26 23:45:00) [3]
кстати, а фэньшуй... э... фэньхоа... э... о! Feng Yuan об этом, часом, не писал?

Ketmar (2006-10-26 23:44:00) [4]
что-то у меня подозрение, что ты вместо поискать в инете описания пытаешься ненаучным тыком всё понять. нет, это тоже способ, но муторный. иногда проще поискать. %-)

Ketmar (2006-10-26 23:43:00) [5]
ты разницу между region и clipping region улавливаешь?

fog (2006-10-26 23:32:00) [6]
Регион двигать надо.
OffsetClipRgn(Canvas.Handle, 100, 0); OffsetViewportOrgEx(Canvas.Handle, 100, 0, p);

Осталось только выяснить как это стелать через OffsetWindowOrgEx.

Ketmar (2006-10-26 23:14:00) [7]
>[5] DiamondShark(c) 26-Oct-2006, 23:08
>регион двигать не надо
ну да. я примерно это и имел в виду. оставил автору для экспериментов. %-)

DiamondShark (2006-10-26 23:08:00) [8]
регион двигать не надо

Ketmar (2006-10-26 21:28:00) [9]
>[3] fog 26-Oct-2006, 21:09
насколько мне помнится, менять надо что-то одно: или регион, или начало координат. проверять лень, сам проверь.

fog (2006-10-26 21:09:00) [10]
Изменил код на
OffsetRgn(hr, -100, 0); OffsetWindowOrgEx(Canvas.Handle, -100, 0, @p);
Эффект - 0. Рисует только один круг.

OffsetRgn работает относительно Viewport или Window?

Ketmar (2006-10-26 04:17:00) [11]
OffsetRgn(), F1. и долго думать, почему HDC -- это не HRGN.

Gero (2006-10-26 03:25:00) [12]
> [0] fog (26.10.06 03:22)

Синтаксических ошибок нет.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »