Discussion :

[yoghisan]

Bonjour,

L'effet que je souhaite obtenir sur une image est à peu près le même que sous l'explorateur Windows. Pour être plus précis, lorsque vous coupez un fichier, l'icone de celui-ci devient plus clair...

Comment peut on faire cela sur une image ?

Merci.

David.

[lil_jam63]

Il te faut augmenter la luminosité, voilà un exemple que j'utilise

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
 
Procedure Luminosité(Var bmp: TBitmap; valeur: Integer);
var
  p0: PByteArray;
  r, g, b, x, y: Integer;
begin
  For y := 0 To bmp.Height - 1 Do
  begin
    p0 := bmp.scanline[y];
    for x := 0 To bmp.Width - 1 Do
    begin
      r := p0[x * 3];
      g := p0[x * 3 + 1];
      b := p0[x * 3 + 2];
      p0[x * 3] := Max(Min((r + ((255 - r) * valeur) div 255), 255), 0);
      p0[x * 3 + 1] := Max(Min((g + ((255 - g) * valeur) div 255), 255), 0);
      p0[x * 3 + 2] := Max(Min((b + ((255 - b) * valeur) div 255), 255), 0);
    end;
  end;
end;

et tu l'utilises comme ça

Code :

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

1
2
 
Luminosité(tonBitmap, 50); // pour augmenter la luminosité de 50

[yoghisan]

Merci