[Delphi] Utiliser des pngs pour les speedbuttons?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi] Utiliser des pngs pour les speedbuttons?

Ipso

Bonjour,

Je cherche à utiliser des pngs comme glyph pour des speedbuttons. J'utilise le composant TPngImage, avec ce code-là:

Code :

procedure TForm1.FormCreate(Sender: TObject);
var
PNG :TPNGObject;
begin
PNG := TPNGObject.Create;
try
PNG.LoadFromFile('./Data/Icons/open.png');
BoutonParam.Glyph.Canvas.Draw(0,0,PNG);
PNG.LoadFromFile('./Data/Icons/save.png');
BoutonSave.Glyph.Canvas.Draw(0,0,PNG);
finally
PNG.Free;
end;
end;

Les glyphs des speedbuttons sont de simples bitmaps blancs, de la mm taille que mes pngs.
Ca marche, à part que ça me donne ça, les contours sont un peu crades:

Est-ce qu'il y a moyen d'afficher les pngs parfaitement? Avec les contours bien nets etc...?

Sinon si il y a d'autres méthodes... je prends

Message édité par Ipso le 28-03-2004 à 15:51:33

Publicité

Whiler

Perso, j'fais comme ça :

Code :

var
png : TPNGObject;
bmp : TBitmap;
begin
png:=TPNGObject.Create;
bmp:=TBitmap.Create;
try
png.LoadFromFile('./Data/Icons/open.png');
bmp.Assign(png);
SpeedButton1.Glyph := bmp;
finally
bmp.Free;
png.free;
end;

Mais je pense que ton problème est plus lié à des icônes crades @ la base... (chez moi, ça bave pas)

Ipso

J'ai essayé avec ta méthode pour l'icone de gauche, voilà ce que ça donne:

J'ai l'impression que c'est la transparence des pngs qui pose pb, parce qu'elles sont nickel à la base:

Message édité par Ipso le 28-03-2004 à 16:52:55

antp

Super Administrateur
Champion des excuses bidons

Pourquoi tu utilises des Speedbuttons pour une Toolbar ? C'est un peu crado comme méthode En plus c'est vachement peu pratique.

Depuis pas mal de versions de Delphi, il y a les TToolbar + TToolbuttons + TImageList pour ça

Pour rendre une TImageList "32 bits" (supportant les transparences" ) il suffit de faire :

Code :

ImageList1.Handle := ImageList_Create(16, 16, ILC_COLOR32 or ILC_MASK, 0, 4);

Dans le OnCreate de ta Form.
Note, il ne faut le faire que sous XP ! Sous les autres Windows ça ne marchera pas.

Pour savoir si t'es sous XP :

Code :

IsWindowsNT := Win32Platform = VER_PLATFORM_WIN32_NT;
IsWindowsXP := (IsWindowsNT) and (((Win32MajorVersion = 5) and (Win32MinorVersion >= 1)) or (Win32MajorVersion > 5));

Si tu passes par un TBitmap, je ne suis pas sûr que tu garderas la transparence de tes images. Je te conseille d'utiliser des TIcon plutôt que TBitmap.

Message édité par antp le 28-03-2004 à 17:08:16

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Ipso

Euh ben je connais pas trop delphi, je tâtonne un peu, donc possible que je fasse n'importe quoi

Je vais essayer les Ttoolbuttons et TImagelist alors.

Whiler

T'as vu :??:

---------------------------
Notification d'une exception du débogueur
---------------------------
Le projet Project1.exe a provoqué une classe d'exception EPNGCannotChangeTransparent avec le message 'Setting bit transparency color is not allowed for png images containing alpha value for each pixel (COLOR_RGBALPHA and COLOR_GRAYSCALEALPHA)'.
---------------------------

J'ai testé aussi avec ça aussi mais j'ai le même résultat :

Code :

// png.TransparentColor := Form1.Color; L'exception du dessus...
png.AssignTo(bmp); // J'espèrais que le composant gérait mieux sa propre copie..

Ipso

Oui, j'avais essayé avec TransparentColor aussi, j'ai eu la mm erreur.

Whiler

& tu remarqueras que comme par hasard, ce sont tes pixels semi-transparents qui sont merdiques... les full transparents sont bien gérés eux.. j'ai peur que tu ne souhaites dépasser les limites (compréhensible) du composant...

antp

Super Administrateur
Champion des excuses bidons

Soit tu prends du 32 bits mais à ce moment pas de TransparentColor et ça marche uniquement sous XP.
Soit tu fais comme tout le monde avec des images à transparence simple (une couleur qu'on définit comme étant transparente)

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

FORUM HardWare.fr

Programmation

Delphi/Pascal

[Delphi] Utiliser des pngs pour les speedbuttons?

Sujets relatifs
Associer une extension à un programme delphi	[Delphi] Un composant ayant l'allure de l'inspecteur d'objet?
Delphi et Interbase	[Delphi] Qu'est ce qu'une unité ?
OpenGL : combien de lumières on peut utiliser ?	[delphi] le tag d'un tpanel
Delphi & JavaDoc	utiliser la carte graphique
utiliser 1 formule de calc stckée dans 1 champ d'1 bd access	[HTML]Comment utiliser la sélection d'une liste de choix ?
Plus de sujets relatifs à : [Delphi] Utiliser des pngs pour les speedbuttons?

Page générée en 0.040 secondes