Сглаживание углов формы.

[DomiNick]

Хмм... Что такое эти "регионы" и для чего они?
С этим кодом получилась какая-то обрезаная форма...
Причём почему-то с оформлением "Классический стиль"...

[Lemo]

+1
Кто то может норм код кинуть?!

[knight]

В моем проекте EmptySpace (http://soaproject.hut.ru/)
Я делал вот так. Лишнее выкинул.

procedure TForm1.SetWindowsRegion;
type POINT = record
     X, Y : integer;
     end;
var tagPoint: array [0..99] of POINT; //массив точек для формы
    i, Count : integer;
    TextSize : integer;
    vBarKind: string;
begin
.....
Count := IniFileSkin.ReadInteger('Region', 'Count', -1); //кол-во точек из ini файла
// if (Count = -1) or (Count > 100) then Abort;
 FillChar(tagPoint, SizeOf(tagPoint), #0); //очистка массива
 for i := 0 to Count - 1 do // загрузка формы
  begin
   tagPoint[i].X := IniFileSkin.ReadInteger('Region', 'PointX['+IntToStr(i)+']', 0);
   tagPoint[i].Y := IniFileSkin.ReadInteger('Region', 'PointY['+IntToStr(i)+']', 0);
  end;
      rgn := CreatePolygonRgn(tagPoint, Count, WINDING); //установка формы 
      SetWindowRgn(Handle, rgn, True);
end;

Пример ini файла

[Region]
Count = 8
PointX[0] = 0
PointY[0] = 0
PointX[1] = 0
PointY[1] = 115
PointX[2] = 20
PointY[2] = 115
PointX[3] = 20
PointY[3] = 135
PointX[4] = 220
PointY[4] = 135
PointX[5] = 220
PointY[5] = 115
PointX[6] = 240
PointY[6] = 115
PointX[7] = 240
PointY[7] = 0