Discussion :

[RVP]

Désolé si je ne suis pas dans le bon Thread, mais c'est mon 1er post sur ce forum et n'en ai pas encore le "plan" en tête.

J'ai développé en Delphi 7 un logiciel qui construit des skins pour Palm.
J'ai entre autres des liens possibles avec les logiciels de dessin type Photoshop.
Le problème est que les skins que j'attaque requièrent des images 16bits et que ces logiciels retournent des 24 bits.

Comment faire pour convertir ces images en 16bits ?

Nota : PixelFormat := pf16bit marche effectivement mais dénature totalement les couleurs. Les jaunes deviennent verts ... etc.

Existe-t-il des composants, des bibliothèques ... pouvant résoudre mon souci ?

[Smortex]

Je pense que le probleme de denaturation des couleurs vient plus de l'utilisation d'une palette que d'autre chose.... En quel format sont tes images ??

Sinon, tu as pas mal de trucs de reference au niveau graphisme ici :
http://homepages.borland.com/efg2lab/

Si ca peut t'aider.....

Bon developpement !

[RVP]

Merci de ton intérêt pour mon problème.

Je me doutes bien effectivement qu'il s'agit d'un PB de palette... mais ne sais absolument pas comment résoudre ce souci. J'ai beau tout essayer au niveau des propriétés "palette" des Bmp rien n'y fait.
Mon problème n'est pas à l'écran mais bien le format du fichier sauvé sur disque.

Les images m'arrivent depuis photoShop en pf24bit quand je les convertit en mettant pf15bit l'image écran reste propre mais une fois mon skin compilé sur les palm le jaune passe au vert pomme.
Si j'essauye pf16bit dès l'écran j'ai droit au vert pomme !

Si je laisse mon image en 24 bits... le compilateur Palm compile ces 24 bits comme étant des 16 bits, les couleurs restent correctes sur le palm mais il y a des bavures de "pixels" noirs sur le bord extème droit de l'image

Je tourne en rond depuis une semaine...

[Smortex]

Tu fais quoi dans ton code ? Chargement / changement de profondeur de couleur / enregistrement ?

Si oui, essaye de faire une copie, genre (J'ai pas Delphi sous la main) :

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
var
  BS,BD: TBitmap;
begin
  BS := TBitmap.Create;
  BD := TBitmap.Create;
  try
    BS.LoadFromFile(....);
    BD.PixelFormat := pf16bit;
    BD.Width := BS.Width;
    BD.Height := BS.Height;
    BS.Canvas.CopyTo(BD.Canvas,0,0); // Alors, cette ligne, j'en suis sur qu'a 10%.... Enfin, le truc c'est copier l'image source dans l'image destination.... et tout bien reflechit, je me demande si c'est pas BS.Draw .... enfin, a voir :)
    BD.SaveToFile(...);
  finally
    BS.Free;
    BD.Free;
  end;
end;

Ca aide ?

[RVP]

Merci Smortex,

Les solutions les plus simples sont touijours les meilleures et celles qui marchent. J'avais essayé des tas de trucs très tordus trouvés dans des bouqquins de Dieux techniques... rien ne marchait ... et ta solution est la bonne.

Merci encore

Hervé