NUANCIER POUR CODER EN RGB

Commentaire de f0xi le 01/06/2009 15:26:08 administrateur CS

Tiens voila une amelioration...
Tu pourrais y ajouter plus tard le formatage en CMJ, HLS etc.




unit Nuance;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Clipbrd,
  Dialogs, Controls, Forms, StdCtrls, ComCtrls, ExtCtrls, Graphics;

type
  TMagicColor = packed record
    case integer of
      0 : (RGBA  : array[1..4] of Byte);
      1 : (Color : Integer);
  end;

  TForm1 = class(TForm)
    Panel1  : TPanel;
    Panel2  : TPanel;
    Panel3  : TPanel;
    Button1 : TButton;
    Button2 : TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    fMagicColor : TMagicColor;
    fPanels     : array[1..3] of TPanel;
    fTrackBars  : array[1..3] of TTrackBar;
    fComboBox   : TComboBox;
    fColFmt     : integer;
  protected
    function GetColorFmt: string; virtual;
    procedure Initialize; virtual;
    procedure DoComboChange(Sender: TObject);
    procedure DoTrackbarChange(Sender: TObject);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  ColMask : array[1..3] of integer = ($000000FF, $0000FF00, $00FF0000);

function TForm1.GetColorFmt: string;
var
  ODS : char;
const
  GLR = 1/255;
begin
  // Retourne une chaine qui represente la couleur dans le format désiré
  with fMagicColor do
    case fColFmt of
      // Delphi BGR : $00000000 a $00FFFFFF
      1 : result := format('$%.8x',[Color]);

      // HTML RGB : #000000 a #FFFFFF
      2 : result := format('#%.2x%.2x%.2x',[RGBA[1], RGBA[2], RGBA[3]]);

      // Hexa RGB : 000000 a FFFFFF
      3 : result := format('%.2x%.2x%.2x',[RGBA[1], RGBA[2], RGBA[3]]);

      // OpenGL RGB : 0.0, 0.0, 0.0 a 1.0, 1.0, 1.0
      4 :
        begin
          ODS := DecimalSeparator;
          DecimalSeparator := '.';
          result := format('%.4g, %.4g, %.4g',[GLR*RGBA[1], GLR*RGBA[2], GLR*RGBA[3]]);
          DecimalSeparator := ODS;
        end
      else
        // Decimal RGB : 0 0 0 a 255 255 255
        result := format('%d, %d, %d',[RGBA[1], RGBA[2], RGBA[3]]);
    end;
end;

procedure TForm1.Initialize;
var
   I : Byte;
begin
  for I := 1 to 3 do
  with fPanels[I] do
  begin
    // On definie le texte du Panel qui correspond a l'octet de couleur associé
    Caption := IntToStr(fMagicColor.RGBA[I]);

    // Sa hauteur depend egalement de l'octet de couleur associé
    Height  := fMagicColor.RGBA[I];

    // On change sa position pour qu'elle suive le curseur de la Trackbar
    Top     := 190 + fTrackBars[I].Position;

    // Finalement on definie sa couleur par l'octet de couleur associé
    Color   := fMagicColor.Color and ColMask[I];
  end;

  // On definie la couleur de panel1 et panel2 selon la couleur réglée
  Panel1.Color   := fMagicColor.Color;
  Panel2.Color   := Panel1.Color;

  // On affiche la couleur formatée en texte
  Panel3.Caption := GetColorFmt;
end;

procedure TForm1.FormCreate(Sender: TObject);
var I : Byte;
begin
  // Par defaut tout est blanc
  fMagicColor.Color := clWhite;

  // Par defaut on affiche en decimal RGB
  fColFmt           := 0;

  // Combobox pour le formatage texte de la couleur
  fComboBox := TComboBox.Create(Panel2);
  with fComboBox do
  begin
    // Le parent est Panel2!
    Parent     := Panel2;

    // L'objet n'herite pas de la fonte de Panel2
    ParentFont := false;

    // Ont redefinie la police
    Font.Size  := 8;
    Font.Style := [];

    // On vide le texte par defaut
    Text       := '';

    // On definie la position et dimension de l'objet
    SetBounds(1,72,220,22);

    // On definie les lignes de textes dans l'objet
    Items.BeginUpdate;
    try
      Items.Clear;
      Items.Add('Format Decimal RGB (R, G, B)');
      Items.Add('Format Delphi ($00BBGGRR)');
      Items.Add('Format HTML (#RRGGBB)');
      Items.Add('Format Hexa RGB (RRGGBB)');
      Items.Add('Format OpenGL RGB (R.R, G.G, B.B)');
    finally
      Items.EndUpdate;
    end;

    // Par defaut on est en format Decimal RGB
    ItemIndex := 0;

    // On assigne finalement le gestionnaire d'evenement
    OnChange  := DoComboChange;
  end;

  for I := 1 to 3 do
  begin
    // Trackbar pour augmenter ou diminuer la couleur R,G ou B
    fTrackBars[I] := TTrackBar.Create(Self);
    with fTrackBars[I] do
    begin
      // Le parent est la classe TForm1, pas la variable Form1!
      Parent        := Self;

      // On definie l'intervalle, la position et l'orientation de la Trackbar
      Max           := 255;
      Min           := 0;
      Position      := 0;
      Orientation   := trVertical;

      // On definie l'apparence de la Trackbar
      SliderVisible := True;
      ThumbLength   := 10;
      TickMarks     := tmBoth;

      // On definie un Tag different pour differencier les Trackbar
      Tag           := I;

      // On definie la position et dimension de la Trackbar
      SetBounds(12 + (126 * (I - 1)), 184, 25, 265);

      // On assigne finalement le gestionnaire d'evenement
      OnChange      := DoTrackbarChange;
    end;

    // Panels qui servent de gauge quantitative de couleur R,G ou B
    fPanels[I] := TPanel.Create(Self);
    with fPanels[I] do
    begin
      // Le parent est la classe TForm1 et non la variable Form1
      Parent     := Self;

      // On definie la police, identique a celle de Panel3
      Font       := Panel3.Font;

      // Le blanc ressort bien sur du rouge, du vert ou du bleu pur.
      Font.Color := clWhite;

      // On definie la position et dimension du Panel
      SetBounds(32 + (126 * (I - 1)), 184, 100, 260);
    end;
  end;

  // Initialise les couleurs, texte, position et aspect
  Initialize;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var N : integer;
begin
  // Liberation des objets créés dynamiquement
  for N := 3 downto 1 do
  begin
    // Liberation des Panels
    fPanels[N].Free;
    // Liberation des TrackBars
    fTrackBars[N].Free;
  end;
  // Liberation de la ComboBox
  fComboBox.Free;
end;

procedure TForm1.DoTrackbarChange(Sender: TObject);
var I : integer;
begin
  // Changement de la couleur R, G ou B
  I := (Sender as TTrackBar).Tag;
  if I in [1..3] then
  begin
    { un simple Not suffit pour inverser la valeur de position
      de la Trackbar en couleur valide.
      Not byte(N) = 255-N
    }
    fMagicColor.RGBA[I] := not byte(fTrackBars[I].Position);
    Initialize;
  end;
end;

procedure TForm1.DoComboChange(Sender: TObject);
var I : integer;
begin
  // Changement du formatage texte de la couleur
  I := (Sender as TComboBox).ItemIndex;
  if I <> -1 then
  begin
    fColFmt := I;
    Initialize;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Memorisation de la couleur dans le presse-papier
  Clipboard.Clear;
  Clipboard.AsText := GetColorFmt;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // Fermeture du programme
  Close;
end;

end.

Commentaire de Toidil le 09/06/2009 15:27:51

Merci à f0xi, c'est une grande amélioration que tu proposes, je vais étudier cette Unit qui me fera progresser dans Delphi.
fredelem, Je n'ai mis aucune magie, d'ailleurs je n'ai pas compris ta remarque sur la magie. C'est vrai que les trackbars sont très discrets, mais je n'ai rien trouvé de mieux pour faire évoluer les rapports des couleurs de bases.