RICHEDIT AVEC SUPPORT DES THÈMES XP

cs_Jean-Pierre Messages postés 82 Date d'inscription jeudi 25 septembre 2003 Statut Membre Dernière intervention 20 avril 2010 - 6 janv. 2005 à 23:49
cs_Jean-Pierre Messages postés 82 Date d'inscription jeudi 25 septembre 2003 Statut Membre Dernière intervention 20 avril 2010 - 9 janv. 2005 à 18:40
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/28659-richedit-avec-support-des-themes-xp

cs_Jean-Pierre Messages postés 82 Date d'inscription jeudi 25 septembre 2003 Statut Membre Dernière intervention 20 avril 2010
9 janv. 2005 à 18:40
Bonjour Tout le monde,

Tout d'abord je précise que je suis sous Win98se et Delphi 7 Studio.

Compo installé et enfin testé sur une petite bidouille = impec tout fonctionne parfaitement de chez parfaitement.
Aucun message d'erreur = nickel/chrôme !

Sauf que bien entendu, étant modestement sous Win98se, je n'ai pas l'avantage du look de TRichXP.

Question bug du ScrollBar, là c'est géant !

J'en avais pourtant essayé des trucs, d'ailleurs je me refusais à penser que c'était du domaine du possible, toutes sortes de TRichEditxxx me donnant également ce vilain bug.

Encore merci et bravo à Nebula !
cs_Nebula Messages postés 787 Date d'inscription samedi 8 juin 2002 Statut Membre Dernière intervention 7 juin 2007 2
9 janv. 2005 à 10:23
J'ai trouvé l'origine du bug des scrollbars : si une fenêtre est créée avec le style WS_CLIPCHILDREN (ce qui est le cas par défaut avec Delphi), certaines zones peuvent être mal repeintes par Windows... La correction est simple, il faut tout d'abord rajouter dans les déclarations protected de chaque Form qui utilise un de mes richedits (ex ou xp) :
procedure CreateParams(var Params: TCreateParams); override;

Et voici ce qu'il faut mettre dans l'implémentation de cette procédure :
procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style and not WS_CLIPCHILDREN;
end;

Et adieu le bug ;-)
cs_Nebula Messages postés 787 Date d'inscription samedi 8 juin 2002 Statut Membre Dernière intervention 7 juin 2007 2
7 janv. 2005 à 02:21
Encore une private joke çà ;-)
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 14
7 janv. 2005 à 01:05
arf, Julio tout simple, c toujours le meme :) deja pas mal ke mon pseudo sois pas en rouge ici lol
cs_Nebula Messages postés 787 Date d'inscription samedi 8 juin 2002 Statut Membre Dernière intervention 7 juin 2007 2
7 janv. 2005 à 00:57
Jean-Pierre> c'est entendu, j'attend le résultat de tes tests :)

Merci Julio ;-) <joke> Je peux continuer à t'appeler Julio où je dois t'appeler "Monsieur" et te vouvoyer maintenant ? :p </joke>
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 14
7 janv. 2005 à 00:42
deja ! tu geres rasko !


allez un compo de plus dans le dpk "nebula" :)
10/10 ! meme avec le bug ;)
cs_Jean-Pierre Messages postés 82 Date d'inscription jeudi 25 septembre 2003 Statut Membre Dernière intervention 20 avril 2010
6 janv. 2005 à 23:49
Bonjour,

Encore un super compo, bon je suis sous Win 98se, promis je vais l'essayer...

Au fait question ScrollBar, je suis sous Delphi 7 (perso) et je me demandais aussi pouquoi des fois une rémanence de la fenêtre du dessus devenir certaines fois visibles !

Je vais donc enfin pouvoir te confirmer ou non si c'est le scrollbars en ssBoth qui est coupable.

@+ et bravo !
Rejoignez-nous