Форум: "WinAPI";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Вниз
Регионы Найти похожие ветки
← →
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 можно больше, но использоваться будет только такой кусок
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c