Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.31;
Скачать: CL | DM;

Вниз

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

 
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 вся ветка

Текущий архив: 2002.10.31;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
7-101531
Егор
2002-08-23 15:17
2002.10.31
Как с помощью CreateProcess сделать процесс невидимым?


3-101131
Veles
2002-10-10 13:02
2002.10.31
Что лишнее в BDE


1-101218
brestmarket
2002-10-21 17:56
2002.10.31
Необходимо создать свой закрытыйформат БД, напр. как в Lingvo


1-101367
DN
2002-10-21 11:24
2002.10.31
Работа со StringList


1-101231
Kinder
2002-10-18 22:49
2002.10.31
Че за фигня-я-я-я ???