Discussion :

[PiPo123]

Bonjour,

Je cherche un utilitaire (gratuit) qui me permettrait de visualiser une image dans un format courant (bmp, jpg.. etc) et de cliquer sur un pixel et d'avoir le valeur de la couleur de ce pixel. Je veux intégrer cette valeur dans un programme Delphi pour avoir le même look.

[PiPo123]

Dans les programmes demos de Delphi il y a un utilitaire ImageWin qui permet de visualiser une image, il suffit d'ajouter le code suivant à l'unité ViewWin pour afficher dans la barre titre de la fenêtre la valeur de la couleur du pixel en format Hexadécimal pointé par la souris.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
unit ViewWin;
interface
uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, ExtCtrls, StdCtrls;
type
  TViewForm = class(TForm)
    Image1: TImage;
   { AJOUTER CETTE LIGNE }
   procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    { AJOUTER CETTE LIGNE }
   procedure OnAppMessage(Var Msg: TMsg; Var Handled: Boolean);
  public
    { Public declarations }
  end;
var
  ViewForm: TViewForm;
implementation
{$R *.dfm}
{ AJOUTER CETTE PROCEDURE }
{------------------------------------------------------}
procedure TViewForm.FormCreate(Sender: TObject);
begin
 Application.OnMessage := OnAppMessage;
end;
 
{ AJOUTER CETTE PROCEDURE }
{------------------------------------------------------}
procedure TViewForm.OnAppMessage(Var Msg: TMsg; Var Handled: Boolean);
begin
If Msg.message = WM_MouseMove then
Caption := Format(' X:%-4.4d  Y:%-4.4d       Color: $%-8.8x',
[LOWORD(Msg.LParam),HIWORD(Msg.LParam),Canvas.Pixels[LOWORD(Msg.LParam),HIWORD(Msg.LParam)]]);
end;
 
end.

[Médinoc]

Et dans le pire des cas, tu peux utiliser Paint.
L'outil "prendre une couleur" (ressemblant à un compte-gouttes) permet de prélever la couleur d'un pixel sur l'image, puis menu Couleurs -> Modifier les couleurs indiquera les données de la couleur sélectionnée.

[PiPo123]

Hé non MEDINOC,

Je peux voir le niveau Teinte, Satur, Lum, Rouge, Vert, Bleu dans Paint mais ce n'est pas utilisable dans un programme moi je parlais de la VALEUR: TColor que l'on doit affecter à une pixel style $0001FFEF.

Salut.

[Médinoc]

Je ne connais pas TColor, mais ça doit être basé sur RVB : Une simple conversion des valeurs, comme en HTML...