Регионы

← →
Diamond Cat (2002-09-17 01:33) [0]

Создаю регион
HRegion1 := CreatePolygonRgn (Pts,
sizeof (Pts) div 8, WINDING);
SetWindowRgn (Handle, HRegion1, True);
а ка мне теперь залить его (поместить на него) рисунком из допустим bm:Tbitmap;
Заранее благодарен

← →
Странный Прохожий (2002-09-17 10:02) [1]

Поместить TImage на форму и в нём прорисовать картинку.
Всё!

← →
REA (2002-09-17 13:06) [2]

Form.Canvas.Draw(X, Y, bm) в цикле

← →
@lexey (2002-09-17 22:27) [3]

Вот может чем то поможет:

...
procedure RegionPaint(Color1, Color2: TColor);
var hb: HBRUSH;
begin
dc := GetDC(Form1.Handle);
hb:=CreateSolidBrush(Color1);
ResultRgn := CreatePolygonRgn(Points, 4, ALTERNATE);
FillRgn(dc, ResultRgn, hb);
hb:=CreateSolidBrush(Color2);
FrameRgn(dc, ResultRgn, hb,1,1);
end;

...
Удачи! Если что пиши, пришлю программу собственного изготовления по созданию не прямоугольных форм. :-)

← →
Diamond Cat (2002-09-18 03:29) [4]

2 REA тогда уж не в цикле а в обработке wm_paint, но мне это не подходит
2 Lexey не совсем догнал, а где рисунок? как его впихнуть в TColor(i stink it imposible) нужно именно рисунок а не просто цвет

А вот "Странному прохожему" ну прям такое спасибо, прям такой гениальный ответ дал, что прям не знаю толи плакать толь какать :о)

← →
MBo (2002-09-18 06:29) [5]

Diamond Cat
(Canvas.)Brush.bitmap.Assign...
FillRgn(..., Brush.Handle)

← →
REA (2002-09-18 11:26) [6]

MBo: Там вроде браш 8x8 пикселов только.
А в цикле то почему не подходит (не важно в каком обработчике)?

← →
MBo (2002-09-18 11:37) [7]

>браш 8x8
так и положено
в nt/2k можно больше, но использоваться будет только такой кусок

Регионы Найти похожие ветки