Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
ВнизВопрос о форме ( окне программы ) Найти похожие ветки
← →
SinnerPro (2002-10-07 12:11) [0]Помогите. Кто знает как сделать округлыми края формы ( окна программы ), а то так не очень красиво. (У меня Delphi7)
← →
sask (2002-10-07 12:28) [1]Нашел ссылку - там все просто и ясно:
http://zyxel0.narod.ru/My_Progs/Kruv_form.rar
← →
delta (2002-10-07 12:31) [2]Когдато нашол ету статью, где не помню, мне помогло. Можно создать форму любой формы.
Всё, что нам нужно, это HRGN и дескриптор (handle) элемента управления. SetWindowRgn имеет три параметра: дескриптор окна, которое будем менять, дескритор региона и булевый (boolean) параметр, который указывает - перерисовывать или нет после изменения. Как только у нас есть дескриптор и регион, то можно вызвать SetWindowRgn(Handle, Region, True) и вуаля!
Функция BitmapToRgn есть на исходники.ру поищи
Заметьте, что Вы не должны освобождать регион при помощи 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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c