Кпасивая форма

← →
Cooller (2003-05-07 12:47) [0]

Слушайте. А как можно делать не стандартные формы, кнопки, вообще оформление.
(не стандартные - не значит отрисовывать средствами Delphi, т.е. не круглые, овальные).

← →
dataMaster © (2003-05-07 13:00) [1]

Наверное регионами надо воспользоваться. Вот пример красивой формы. Давным-давно в факах где-то нарыл. Мне нравится. :-)

procedure TForm1.FormCreate(Sender: TObject);
const
W=36*pi/180;
var
R,R1,R2: HRgn; X,Y,i:integer;

function S(a:integer;R:integer):integer;
begin
Result:=round(R*sin(W*a));
end;

function C(a:integer;R:integer):integer;
begin
Result:=round(R*cos(W*a));
end;

function GetStarReg(X,Y,R:integer):HRGN;
var
P : array [0..4] of TPoint;
begin
P[0] := Point(X, Y-R);
P[1] := Point(X-S(4,R), Y-C(4,R));
P[2] := Point(X-S(8,R), Y-C(8,R));
P[3] := Point(X-S(2,R), Y-C(2,R));
P[4] := Point(X-S(6,R), Y-C(6,R));
Result := CreatePolygonRgn(P, 5, WINDING);
end;

begin
X:=Width div 2;
Y:=Height div 2;
R:=GetStarReg(X,Y,100);
i:=1;
repeat
R1:=GetStarReg(X-S(i,120),Y-C(i,110),40);
CombineRgn(R,R,R1,RGN_OR);
inc(i,2);
until i>9;
R1:=GetStarReg(X,Y,30);
CombineRgn(R,R,R1,RGN_DIFF);
R1:=CreateEllipticRgn(3,3,Width-6,Height-6);
R2:=CreateEllipticRgn(20,10,Width-20,Height-10);
CombineRgn(R1,R1,R2,RGN_DIFF);
CombineRgn(R,R,R1,RGN_OR);
SetWindowRgn(Handle, R, True);
end;

← →
Cooller (2003-05-07 13:08) [2]

>dataMaster
Ну с регионами понятно. Меня интересует..., ну как сказать, ну к примеру ты видел оформление NortonAntivirus2003? Красивая градиентная заливка с рисунком и т.п. Меня интересует, как это сделано и есть ли проги, в которых можно отредактировать свою прогу под "красиво"? Ф-У-У-У-У. Даже замучился описывать то не знаю что:)

← →
dataMaster © (2003-05-07 13:19) [3]

2Cooler
>ты видел оформление NortonAntivirus2003?
Нет, не видел. Нортона почему-то недолюбливаю... Может он и хорош, конечно.

>Красивая градиентная заливка с рисунком и т.п.
Ну вот и наложи свой рисунок на регион. Или из рисунка вырежь лишнее. По-моему так.

← →
Cooller (2003-05-07 13:23) [4]

Ну ладно, буду экспериментировать

Кпасивая форма Найти похожие ветки