COMMENT DÉGRADER UNE FICHE EN DELPHI
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
-
28 juil. 2004 à 23:26
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 28 juil. 2004 à 23:26
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 28 juil. 2004 à 23:26
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/24977-comment-degrader-une-fiche-en-delphi
https://codes-sources.commentcamarche.net/source/24977-comment-degrader-une-fiche-en-delphi
28 juil. 2004 à 23:26
Degrader d'une fiche en Delphi
http://delphipage.free.fr/astuces/degrafiche.html
procedure TForm1.FormPaint(Sender: TObject);
var Row,Ht:Word;
begin
Ht:=(ClientHeight + 255) div 256 ;
for Row:=0 to 255 do
begin
Canvas.Brush.Color:=RGB(0,0,Row);
Canvas.FillRect(Rect(0,Row*Ht,ClientWidth,(Row + 1)*Ht));
end;
end;
Pourquoi ne donnes-tu pas tout simplement les liens ?