Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Вниз

Народ, помогите!!!!, Как сделать форму прозрачной...   Найти похожие ветки 

 
Ifrit   (2003-03-09 13:32) [0]

Народ, помогите!!!!, Как сделать форму прозрачной, т.е. помещаю на неё TImage с каким-то рисунком и что-бы был виден только этот рисунок (без формы).


 
Mihey   (2003-03-09 20:29) [1]

Используй регионы, созданные по подобию картинки. В общем, даю две функции:

procedure CropWindow( Handle: HWnd; Picture : TPicture );
var
hrgn, hrgn1 : integer;
hdc : integer;
x, y : integer;
Color : TColor;
begin
// Color := Picture.Bitmap.Canvas.Pixels[ 0, 0 ];
Color := clWhite;
hdc := GetDC( Handle );
hrgn := CreateRectRgn( 0, 0, Picture.Graphic.Width, Picture.Graphic.Height );
for x := 1 to Picture.Graphic.Width do
for y := 1 to Picture.Graphic.Height do
if Picture.Bitmap.Canvas.Pixels[ x - 1, y - 1 ] = Color then begin
hrgn1 := CreateRectRgn( x - 1, y - 1, x, y);
CombineRgn( hrgn, hrgn, hrgn1, RGN_DIFF );
DeleteObject( hrgn1 );
end;
SetWindowRgn( Handle, hrgn, true );
//DeleteObject( hrgn );
ReleaseDC( Handle, hdc);
end;

procedure UncropWindow( Handle: HWnd; Picture : TPicture );
var
hrgn : integer;
hdc : integer;
begin
hdc := GetDC( Handle );
hrgn := CreateRectRgn( 0, 0, Picture.Graphic.Width , Picture.Graphic.Height );
SetWindowRgn( Handle, hrgn, true );
ReleaseDC( Handle, hdc );
end;

Применяй их к дескриптору окна. Если надо примеры - то дам. Готовое решение уже оформлено ввиде компонента TPlasma. Найдёшь его где угодно.


 
Ifrit   (2003-03-10 16:33) [2]

Большое спасибо... Был бы очень признателен, если бы дал примеры :)


 
Kair   (2003-03-10 20:55) [3]

Form1.Color:=clRed;
Form1.TransparentColor:=clRed;
Form1.TransParent:=true;
Image1.Transparent:=true;

Но на компе где с видео-картой проблемы, видно.


 
PWWA   (2003-03-14 17:08) [4]

есть библиотека компонентов 1st Class но она только под Дельфи 5, других пока не нашел.... относительно шустрая штука. и кроме того через "просветы" можно управлять окнами, находящимися снизу


 
Mihey   (2003-03-14 18:07) [5]

Юзая регионы можно действительно юзайть под формой что угодно. Есть компонент TPlasmaForm, он простенький, реализует этот принцип.



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

Форум: "Media";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.029 c
8-84448
Дмитрий К.К.
2003-03-12 08:39
2003.06.26
Еще раз о TBitmap


3-83855
Ann
2003-05-29 10:25
2003.06.26
grid


1-84119
DJ Vano
2003-06-10 23:15
2003.06.26
Создание компонента в Run Time


8-84442
reticon
2003-03-08 13:52
2003.06.26
формат файла


1-84139
Lu Chan
2003-06-10 15:21
2003.06.26
inherited класса в динамике





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский