VPF::Как создавать не квадратные формы и контролы?

Alex

Дата 4.11.2004, 21:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Всё, что нам нужно, это HRGN и дескриптор (handle) элемента управления. SetWindowRgn имеет три параметра: дескриптор окна, которое будем менять, дескритор региона и булевый (boolean) параметр, который указывает - перерисовывать или нет после изменения. Как только у нас есть дескриптор и регион, то можно вызвать SetWindowRgn(Handle, Region, True) и вуаля!

Здесь приведён пример использования функции BitmapToRgn (описанной в примере Как создать регион(HRNG) по маске).

Заметьте, что Вы не должны освобождать регион при помощи DeleteObject, так как после вызова SetWindowRgn владельцем региона становится операционная система.

Код


var  
  MaskBmp: TBitmap;  
begin  
  MaskBmp := TBitmap.Create;  
  try  
    MaskBmp.LoadFromFile('FormShape.bmp');  
    Height := MaskBmp.Height;  
    Width := MaskBmp.Width;  
    // ОС владеет регионом, после вызова SetWindowRgn 
    SetWindowRgn(Self.Handle, BitmapToRgn(MaskBmp), True);  
  finally  
    MaskBmp.Free;  
  end;  
end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »