Discussion :

[Speed41]

Bonjour,

Y aurait'il une solution pour changer la luminosité d'une image, en sachant que je dois pouvoir revenir rapidement à l'image d'origine

Dans mon programme je génère plusieurs images sur les quelles je peux apporter des modifications. Une seule peut être active à la fois (comme une fenêtre). Je cherche une solution pour différencier des autres. La solution est de mettre les non actives en plus claire, visible mais moins.

Si vous avez d'autres idées (en évitant d'ajouter des bords)

Merci

[chekkal]

Bonjour,

par programmation je ne sais pas, mais par contre tu peut utiliser un éditeur d'image pour créer les images avec les luminosité que tu veut tu les enregistre de cette maniére par exple:
image11.bmp
image12.bmp
image13.bmp
...
et par programmation tu peut utiliser un Ttrackbar pour sélectionner l'image avec la luminosité que tu veut

Code :

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

1
2
3
4
5
 
procedure Tform1.trackbar1change(sender:Tobject)
begin
        image1.picture.loadfromfile('image1'+trackbar.position+'.bmp')
end;

[Speed41]

Ok pour récupérer une image mais comment modifier la luminosité ?

[Jipété]

Salut,

Ok pour récupérer une image mais comment modifier la luminosité ?

en modifiant l'intensité (qui va de 0 [noir] à 255 [blanc]) des informations RGB de chaque pixel.

[Speed41]

Il n'y a pas un moyen plus simple que de modifier la valeur RGB de chaque pixel. J'avais cette solution mais que je trouve "longue" j'avais espéré une solution plus globale.

Ok merci à tous les deux

[Jipété]

(...) j'avais espéré une solution plus globale.

Ok merci à tous les deux

Toute solution plus globale, ie de plus haut niveau, englobera (et donc te masquera) le fait qu'elle fera ce que j'ai dit, tripoter les pixels un par un.
Comment faire autrement, mmmh ?

[Gilbert Geyer]

Bonjour,

Voici un bout de code :

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
function IntToByte(i: Integer): Byte;
begin if i > 255 then Result := 255
  else if i < 0 then Result := 0
  else Result := i;
end;
 
function BmpLuminosite(Bmp: TBitmap; Quanti: Integer) : TBitmap;
// Quanti dans [-255..+255]
var
  SL : ^Byte;
  x, y: Integer;
begin
  Bmp.PixelFormat := pf24bit;
  Result:=tBitMap.Create;
  Result.Assign(Bmp);
  for y := 0 to Bmp.Height - 1 do
  begin
    SL := Result.scanline[y];
    for x := 0 to Bmp.Width*3 - 1 do
    begin
      SL^ :=IntToByte(SL^ + ((255 - SL^) * Quanti) div 255);
      Inc(SL);
    end;
  end;
end; // BmpLuminosite
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
var Bm : tBitMap;
begin
     Bm:=BmpLuminosite(Image1.Picture.Bitmap, +25);
     Image1.Picture.Bitmap.Assign(Bm);
     Bm.Free;
end;

Bm:=BmpLuminosite(Image1.Picture.Bitmap, +25); augmente la luminosité de + 25%
et Bm:=BmpLuminosite(Image1.Picture.Bitmap, -25); pour rétablir la luminosité de l'image d'origine.

A+.

[Andnotor]

Sur le même principe que Gilbert mais en convertissant l'image en 32 bits (pf32bit) et en augmentant la transparence (canal alpha à 150 par exemple). Les couleurs ne seront pas altérées et le retour à la normal se fera simplement en la repassant en pf24bit

[Gilbert Geyer]

Re-bonjour,

Andnotor : Sur le même principe que Gilbert mais en convertissant l'image en 32 bits (pf32bit) et en augmentant la transparence (canal alpha à 150 par exemple). Les couleurs ne seront pas altérées et le retour à la normal se fera simplement en la repassant en pf24bit

... Astucieux, mais comment se fait-il que si je modifie la luminosité donc les couleurs du 32 bits le retour à la normale s'obtient simplement en la repassant en pf24bit ??? : il y a ici une subtilité qui m'échappe.

A+.

[Speed41]

Sur le même principe que Gilbert mais en convertissant l'image en 32 bits (pf32bit) et en augmentant la transparence (canal alpha à 150 par exemple). Les couleurs ne seront pas altérées et le retour à la normal se fera simplement en la repassant en pf24bit

Ca marche, simple et rapide. Ok je prends. Je viens de tester et le résultat est satisfaisant pour ce dont j'en ai besoin. Dire que je comprends c'est bien autre chose

Merci

[Andnotor]

... Astucieux, mais comment se fait-il que si je modifie la luminosité donc les couleurs du 32 bits le retour à la normale s'obtient simplement en la repassant en pf24bit ??? : il y a ici une subtilité qui m'échappe.

Si tu as fait l'essai et que tu obtiens quelque chose de plus lumineux, c'est que ton fond est blanc (ou clair). Sur un fond noir, l'image semblerait plus sombre
Le retour en 24 bits fait que le canal alpha est ignoré et l'image à nouveau 100% opaque, on ne touche absolument pas aux composantes RGB mais uniquement à la transparence

[Gilbert Geyer]

Bonjour,

Andnotor : Le retour en 24 bits fait que le canal alpha est ignoré et l'image à nouveau 100% opaque, on ne touche absolument pas aux composantes RGB mais uniquement à la transparence

... OK, merci, pigé.

Mais comme Speed41 a résolu son problème je laisse le code en l'état, on s'en souviendra pour une autre fois.

Meilleurs voeux pour 2014.