[DELPHI] Designer

[Robz Lancaster 0]

Bom Pessoal Eu aqui Denovo Enchendo o Saco de Vocês =x, Então eu to tentando Desenvolver um Projeto, e Assim Eu quero Fazer um Desiger Bacana.

 

Bem Existe algum Programa que Desenhe o Layout talz.. algo do tipo e depois Apenas Programar Por cima dele ?

Se Sim Qual Programa.

 

Porque Eu Criei um PageControl e Não consegui Mudar a Cor de Fundo Dele Tem que mudar a cor do BackGround do Programa para mudar o do PageControl e eu quero fazer um Designer Agradável e clean.

 

Obrigado.

[adrianno 7]

Nãom unica forma de criar layolt é dentro do delphi, você pode sim, criar o template depois "programar"

mais tudo isso dentro do delphi... não é como web design que você cria no photoshop depois programa em outro em HTML ou PHP, no delphi, alterar cores, de texto , fundo etc, imagens é tudo no delphi mesmo em programação ou mexendo nas propriedades dos componentes

minha sujestão é que pegue uma apostila mostrando as propriedas dos objetos no delphi

 

FONTE = INTERNET

colocar PageControl1.OwnerDraw := True;

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
 TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
{//pinta a fonte
case TabIndex of
0: Control.Canvas.Font.Color:=clgreen;
1: Control.Canvas.Font.Color:=clred;
2: Control.Canvas.Font.Color:=clblue;
end;
}
// pinta a paleta
case TabIndex of
0: Control.Canvas.brush.Color:=clgreen;
1: Control.Canvas.brush.Color:=clred;
2: Control.Canvas.brush.Color:=clblue;
end;
PageControl1.Canvas.Rectangle(Rect);
Control.Canvas.font.Color:=clwhite;
Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption);

// pinta a parte interna (tabsheet)
 PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color;
end;

// se quiser pintar a parte interna, colocar tambem
procedure TForm1.FormShow(Sender: TObject);
begin
 PageControl1.Pages[0].brush.Color := clgreen;
end;