AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Delphi CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 10 07 13:10:04
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

50 commentaire(s) de Jean_Jean sur des sources sur delphifr

Le : 13/08/2008 14:53:13
Source : COULEURS SYSTÈME
Bj Jackalunion...

Désolé pour ce retard pour la deuxième version qui est prête depuis 2 mois avec la prise en compte du travail de Forman, mais trop de choses en ce moment...
A+

Le : 12/05/2008 19:58:25
Source : REMPLACER UNE FONCTION D'UNE DLL PAR N'IMPORTE QUELLE AUTRE!
mdr et ouf!
merci de m'avoir prévenu. C'est donc un autre mécanisme qui entre en jeu. je crois que le mieux est de skinner l'ensemble afin de personnaliser en formes et couleurs. Moi qui croyais qu'il y avait une solution API simple et rapide.

Je commençais à me dire qu'il me fallait écrire en assembleur pour récupérer l'adresse mémoire des Dll utilisées par le programme. Mais je vois que tu as résolu la chose avec cette fonction digne de grand Forman!

Au fait, C'est quoi TModuleEntry32? un type que tu as déclaré, je ne le vois pas dans l'aide;

Bien à toi.
Jean_Jean

Le : 12/05/2008 15:27:25
Source : REMPLACER UNE FONCTION D'UNE DLL PAR N'IMPORTE QUELLE AUTRE!
Merci beaucoup Forman pour toutes ces précisions!

Génial, tu m'a donné du boulot pour des mois au rythme où je programme en ce moment. Je crois que je vais publier mon code en l'état pour la semaine prochaine et réfléchir qu'elle piste je vais approfondir. Je pense que trouver l'adresse d'une DLL chargée ne doit pas être très compliqué bien que je ne l'ai jamais fait. J'ai été surpris de ne pas avoir accès aux sources windows. Si mes souvenirs sont bons, du temps où je programmais en BP7 et BPW, on avait accès aux fenêtres ou aux bitmap de boutons utilisés... Il faudrait demander à Mauricio!

Si tu n'y vois pas d'inconvénient, j'incluerai certains passages de tes explications (je l'ai déjà fait pour ton source) dans mon aide qui va devenir un tuto si ça continue! Il y vraiment des pistes intéresantes dans tout ce que tu écris...

Salutations delphistes!
Jean_Jean

Le : 11/05/2008 11:58:33
Source : REMPLACER UNE FONCTION D'UNE DLL PAR N'IMPORTE QUELLE AUTRE!
Salut Forman,

Sur un conseil de Cirec, j'ai étudié ton source en vue d'avancer dans la compréhension de la façon dont les couleurs systèmes affectent les contrôles afin de pouvoir les personnaliser.
Un premier jet a été publié ici : http://www.delphifr.com/codes/COULEURS-SYSTEME_46516.aspx

Ton code m'a été très utile pour avancer. du coup, j'ai refait totalement mon source afin d'être plus utile à tous. Malheureusement, il faut que je planche encore dessus car je ne peux encore le publier en l'état (fichier d'aide volumineux >1Mo => images de l'aide à modifier, et aussi codes à finaliser).

Voici le sujet qui me préoccupe : Dans ton explication tu dis :"Tous les composants VCL non natifs (c'est à dire qui ne sont pas entièrement peints par Windows) sont affectés." J'ai pu le vérifier. J'ai essayé d'accéder à Ubuttons de Delphi, mais il est compilé. Par conséquent, on n'a pas accès aux éléments qui sont natifs ou pas de windows. Par exemple, la couleur du texte de SpeedButton est modifié, mais pas celui de Button.
Ce qui veut dire aussi que je ne peux pas par cette méthode modifier directement la couleur de fond de la zone de Titre d'une fenêtre. Dans mon source (2ème version non encore publié) j'utilise pour cela le dessin sur canvas...

Et donc voici ma question : Finalement, il semble que cette méthode fort intéressante ne le soit pas pour un remplacement de couleur puisque :
    1. je ne peux identifier facilement l'élément qui sera affecté du contrôle
    2. je ne peux accéder aux éléments de contrôles natifs windows, par exemple, la zone de titre d'une fenêtre.

Qu'en penses-tu? si tu veux je t'envoi le code et l'aide que je préparre pour la deuxième la publication.

Merci à toi

Jean_Jean

Le : 01/05/2008 12:52:29
Source : COULEURS SYSTÈME
Merci Cirec pour ce source que je n'avais pas vu!

Cependant, je n'aurais peut-être pas fait le rapprochement avec mon besoin tout de suite.

Evidemment, c'est pas le même niveau! Je cherchais une solution simple et rapide. Je deviens fainéant avec le temps.

Il faut que je vérifie une adaptation possible du code de Forman pour publication et également à mon besoin immédiat : modifier la couleur de la barre des titres et des menus.

Bien à toi
Jean_Jean

Le : 26/04/2008 12:51:45
Source : COULEURS RGB
Bonjour,
Il y a une inversion dans les codes. Par exemple :
//Couleur Fond R := 195; G := 0; B := 0;RGB := $00C80000;
C8 n'est pas à sa place, il faut RGB := $000000C8;
De cette façon, la conersion en décimal fonctionne: strtoint('$000000C8') = 200 => rouge
Bien à toi
jean_Jean

Le : 25/10/2007 19:25:26
Source : SIGNIFICATION DES CODES D'ERREUR DE L'API WIN32 - UTILISATION D'UNE TLISTVIEW
Ton code m'a bien rendu service, je l'ai inclu dans une unité à part que j'appelle UDEbugAPI qui comprends une seule fonction :
Function FErrorAPIToStr(CodErrorAPI : Integer): String;
Begin
  { SysErrorMessage retourne parfois une chaîne vide }
  if ArrStrErrorCodes[CodErrorAPI] = EmptyStr
    then Result := '[non documenté]'
    else Begin
      {Des caractères retour chariot parasitent certaines chaînes }
      Result := SysErrorMessage(CodErrorAPI);
      {On ajoute la signification du message d'erreur dans la 3ème colonne }
      Result := StringReplace(Result, #13#10, '', [rfReplaceAll]);
    end;
end;
Je l'utilise en incluant l'unité dans le Uses du code que je veux surveiller.

Exemple :
  if not RenameFile(FicDonnees, ChangeFileExt(FicDonnees,'.old')) then
  begin
    ER := GetLastError;
    if MessageDlg(FicDonnees +' ne peut être sauvegardé en Bakup!'+#13#10+
       'Erreur : '+IntToStr(ER)+' => '+FErrorAPIToStr(ER)
       +#13#10+'Continuer ?',mtConfirmation, [mbYes, mbNo],0) = mrYes then
       begin
         ... on continue
       end;
  end;



Le : 12/10/2007 23:00:55
Source : SIGNIFICATION DES CODES D'ERREUR DE L'API WIN32 - UTILISATION D'UNE TLISTVIEW
Bj Japee,
La simplicité de tes codes sont un régal.
C'est un source qui est utile pour les débug et mises au point!
Et SysErrorMessage n'utilise pas les ListView, alors t'a eu 1 bonne idée.
Bien à toi

Le : 12/10/2007 22:50:57
Source : COLLISIONS DE BABALLES
@  barbichette
Amusant les attractions!
ça donne envie de faire un jeu!
@ jace1975
Je n'ai jamais compris l'utilité de déclarer const b1:tballe? Par défault, ilcomprend si l'on ne met pas const;Non?

Bien à vous!
Jean_Jean

Le : 05/10/2007 21:47:31
Source : RÉSOUDRE L'ÉQUATION DIF (X')^2 = 4.X^3 - G2.X - G3
Merci pour cette fonction!
Les unités SDL_rchart et sdl_sdlbase ne semblent pas nécessaires.
j'ai pas vraiment regardé le code, est-ce l'intégrale d'une ellipse dont tu cherches une forme canonique?
A+


1 2 3 4 5


Nos sponsors

Sondage...

CalendriCode

Octobre 2008
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,17 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.