UNE BELLE LOUPE AVEC UN MANCHE LOGÉE DANS LE SYSTRAY

cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 - 2 févr. 2005 à 18:38
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 3 févr. 2005 à 17:20

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/29250-une-belle-loupe-avec-un-manche-logee-dans-le-systray

cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 22
3 févr. 2005 à 17:20

Oui... mais j'ai changé autrement mon Zip.

cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
3 févr. 2005 à 10:23

Ok grandvizir, sinon à propos de la modif' que je propose? fonctionne t- elle sous Win98?

cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 22
2 févr. 2005 à 19:42

Développer sous Delphi 3 ne sous-entend pas le boycot des autres versions. Pour preuve, dans l'un des derniers codes de florenth, un de mes commentaires à été fait avec Delphi 7. Tous les Delphi ouvrent les projets Delphi 3, et pas le contraire. Toujours ce soucis... Toi, tu sais résoudre les problèmes élémentaires, pas tout le monde. Alors, je diminue la version de Delphi pour que tout le monde soit content.

De toute façon, la fonction de transparence ne dépend pas de la version de Delphi. Le problème est que SetLayeredAttributes et AlphaBlend ne sont pas toujours supportés. Ce sont les fameuses propositions de DRJEROME.

??

cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
2 févr. 2005 à 19:23

Peut etre qu' il est tans que se soit toi qui s' adapte?!
Tu fais ce que tu veux bien sur. Un jour faudra nous expliquer pkoi Delphi3 est meilleur que Delphi7 et pkoi Win98 est meilleur ke WinXP !!!

cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 22
2 févr. 2005 à 19:13

Delphi 7 aime bien ce genre de messages. Là, le message devrait disparaître... """Très""" foireuse, please. De plus, comme j'ai pas XP, je fais tout pour que ce soit au moins compatible avec 98 (XP saura s'adapter, même s'il ne veut pas toujours).

cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
2 févr. 2005 à 19:01

Si vous avez la même erreur que moi, remplacer la ligne de code qui foire par celle-ci:
hDCw:= CreateDC('Display', nil, nil, nil);

Sinon, la transparence de la form est très foireuse!
Pour ceux qui ont WinXP et Delphi7, utilisez la propriété TransparentColor et TransparentColor de la Form pour la rendre transparente au bleu ou au rouge vu qu' un cadre pour ces 2 couleurs apparait et je pense pas que ça soit fait exprès ...
Malheureusement, c' est lent même sur mon Pentium4 2.8GHZ
Je noterai lorsque tu auras fais quelques changements vu qu' on ne peut pas rectifier la note :(

cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
2 févr. 2005 à 18:38

J' ai une erreur sur la ligne

hDCw:=GetDc(GetWindowDC(-1));
[Error] loupe.pas(188): Constant expression violates subrange bounds

dans la procedure

procedure GrabScreen;
var hDCw : integer;
begin
ScrBmp.Width:=Screen.Width;
ScrBmp.Height:=Screen.Height;
hDCw:=GetDc(GetWindowDC(-1));

Ça doit etre à cause de ta version de Delphi :(

Discussions similaires

un effet de loupe sur une image?

Effet loupe dans tableaux de chiffres pour Powerpoint ?

Effet loupe popup au passage de la souris

Comment créer une belle interface???

demande script loupe

Votre réponse

Discussions similaires