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

Вниз

Окна нестандартной формы (не круглой,не овальной),   Найти похожие ветки 

 
ikivio ©   (2002-06-28 00:30) [0]

Где-то в форумах я это видел.
Искал 3 часа так и не нашел.:(
Создание главного окна нестандартной формы.
(не круглой,не овальной), а по заданному
рисунку. Подскажите где найти!


 
Игорь Шевченко ©   (2002-06-28 09:49) [1]

На http://www.delphikingdom.com в разделе "Подземелье магов" есть статья Антона Григорьева на эту тему. Рекомендую.


 
easy ©   (2002-06-28 10:04) [2]

function lSetRegion(pic:TBitmap; lBackColor:TColor):HRGN;
var
lRgn,lSkinRgn,lStart,lX,lY,lHeight,lWidth: Longword;

begin
lSkinRgn := CreateRectRgn(0,0,0,0);
lHeight:=pic.Height;
lWidth:=pic.Width;
For lX := 0 To (lHeight - 1) do
begin
lY := 0;
While lY < lWidth do
begin
While (lY < lWidth) And (GetPixel(pic.Canvas.Handle , lY, lX) = lBackColor) do
lY := lY + 1;
If lY < lWidth Then
begin
lStart := lY;
While (lY < lWidth) And (GetPixel(pic.Canvas.Handle, lY, lX) <> lBackColor) do
lY := lY + 1;
If lY > lWidth Then lY := lWidth;
lRgn := CreateRectRgn(lStart, lX, lY, lX + 1);
CombineRgn (lSkinRgn, lSkinRgn, lRgn, RGN_OR);
DeleteObject (lRgn);
end;
end;
end;
result:=lSkinRgn;
end;


Использование:

SetWindowRgn (form1.Handle, lSetRegion(image1.Picture.Bitmap,$FF00FF{-цвет прозрачности}), True);


 
KvORubin ©   (2002-06-28 10:50) [3]

Компонент:

1stClass Professional v3000.0 A for Delphi 6

Он ещё ни так умеет издеваться над формой, я делал мазайку по рисунку, а потом разкидевал мышкой по всему рабочему столу..

Компонент весит 2 метра, где найти незнаю, но качать никаму не собираюсь.. дорого..



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.023 c
1-47254
Александр
2002-06-29 11:48
2002.07.15
Ошибка при установке DPK


3-47072
sveta2001
2002-06-17 09:31
2002.07.15
Delphi Построение запроса к результатам двух других запросовю


14-47723
Gerakl
2002-06-11 17:33
2002.07.15
Lexus


1-47498
race1
2002-07-04 12:47
2002.07.15
procedure


3-47200
Fiend
2002-06-19 17:24
2002.07.15
TADODataset XML TMemoryStream