Fórum Coloração Gradiente no Form #260108
26/11/2004
0
Recebi um e-mail do site Active Delphi para colocação de gradiente em um form, este exemplo funciona certinho no delphi 7, porem no delphi 8 ele apresenta o seguinte erro na linha 10
[Error] BU_Unit_Principal.pas(114): Undeclared identifier: ´Rect´
ps.: Eu utilizo a vcl.net
Coloração Gradiente no Form.
1 procedure TForm1.FormPaint(Sender: TObject);
2 var
3 altura, coluna: Word;
4 begin
5 altura := (ClientHeight + 255) div 256;
6 for coluna := 0 to 255 do
7 with Canvas do
8 begin
9 Brush.Color := RGB(coluna, 0, 0); { Modifique para obter cores diferentes }
10 FillRect(Rect(0, coluna * altura, ClientWidth, (coluna + 1) * altura)) ;
11 end;
12 end;
13 procedure TForm1.FormResize(Sender: TObject);
14 begin
15 Invalidate;
16 end;
Obrigado,
Jayme Guimarães
[Error] BU_Unit_Principal.pas(114): Undeclared identifier: ´Rect´
ps.: Eu utilizo a vcl.net
Coloração Gradiente no Form.
1 procedure TForm1.FormPaint(Sender: TObject);
2 var
3 altura, coluna: Word;
4 begin
5 altura := (ClientHeight + 255) div 256;
6 for coluna := 0 to 255 do
7 with Canvas do
8 begin
9 Brush.Color := RGB(coluna, 0, 0); { Modifique para obter cores diferentes }
10 FillRect(Rect(0, coluna * altura, ClientWidth, (coluna + 1) * altura)) ;
11 end;
12 end;
13 procedure TForm1.FormResize(Sender: TObject);
14 begin
15 Invalidate;
16 end;
Obrigado,
Jayme Guimarães
Manager
Curtir tópico
+ 0
Responder
Posts
26/11/2004
Nildo
Eu não conheço muito de Delphi 8, mas deve ser alguma unit em que a função Rect está que faltou declarar. Como eu não sei qual é essa unit, aqui esta:
function Rect( X, Y, Direita, Inferior: Integer ): TRect; begin Result.X := x; Result.Y := Y; Result.Right := Direita; Result.Bottom := Inferior; end;
Responder
Gostei + 0
26/11/2004
Gandalf.nho
Ou dê uma pesquisada nos fontes do D8 para ver em que unit está declarada essa função.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)