EXEMPLE D'EDITEUR DE FENÊTRE (CONTENANT DES COMPOSANTS) : INSERTION DE COMPOSANT PUISÉ DANS UNE PALETTE, ÉDITION DE LEUR PROPRIÉTÉS, POSITIONNEMENT ET DIMENSIONNEMENT

Commentaire de delphinait le 14/01/2006 13:27:02

Bonjour, assemple sa me parait  très intéressant  ton code, mais impossible de télécharger l’EXE à partir de ton adresse,  donc si il y a un autre moyen  pour avoir l’exécutable   merci  

Commentaire de cirec le 14/01/2006 14:26:39 administrateur CS

pour un exemple c'est ici que ça se passe :
http://www.delphifr.com/codes/CREER-CODER-ET-SAUVEGARDER-DES-COMPOSANTS-DYNAMIQUEMENT-/35105.aspx

@+
Cirec

Commentaire de assemple le 14/01/2006 15:02:37

A TOUS
L'executable contenant des majuscules, le lien est FAUX !
Le bon lien c'est www.assemple.fr/EasyBase.exe

Commentaire de assemple le 14/01/2006 21:14:06

Désolé !
L'application EasyBase n'est pas le but en soit de sa publication, mais la fenêtre "Conception" issue de UConception.PAS/DFM.
Un détail non intéressant pour la publication, est à l'origine de ce mot de passe.
EasyBase est une application Multi-Utilisateurs.
Chez vous aucun utilisateur ayant été saisi, mais comme chez moi, l'utilisateur est le super utilisateur ou administrateur, dont le mot de passe est "seguret" (le village [en minuscules et sans accents] du siège social de ma SARL)
Pour m'éviter de me faire c... à taper le mot de passe à chaque lancement, sous Delphi, l'étape du mot de passse est sautée.
Du coup, je l'ai oublié, qu'il y avait un mot de passe.
Désolé à tous !

Décidemment, la publication a été baclée !

Toutes mes plates excuses !

J'ai la tête dans le guidon !!!

Commentaire de f0xi le 15/01/2006 02:52:02 administrateur CS

ps : avant que l'on me fasse la remarque sur mon commentaire, je tiens a precisé qu'il n'y a rien d'agressif ou de mechant dedans ... disons que cela me deçois beaucoup de voir un si gros travail non seulement inutilisable (le rendant donc ininterressant) et ainsi baclé sur la diffusion par son auteur ... c'est cette deception qui parle donc.

je trouve cela bien dommage, de voir, comme on le vois que trop souvent sur DelphiFr malheureusement, une somme de travail consequante ainsi reduite a néant par un manque de "marketing", si je puis dire, de la part de son createur.

ne salopons pas notre boulot en voulant le poster trop vite!

Commentaire de Delphiprog le 15/01/2006 09:16:01 administrateur CS

Je rejoins l'avis de fOxi en ajoutant quelques réflexions.

1- Pour les débutants, c'est totalement inutilisable.

2- Pour les hobbyistes, s'ils n'ont vraiment rien d'autre à faire, qu'ils se penchent sur la question, s'ils ont vraiment du temps à tuer, et qu'ils nous fassent part de leurs découvertes. Ce serait sympa de leur part. D'avance on les en remercie.

3- Pour les experts, aucun intérêt non plus. Le temps passé à essayer de comprendre et de reconstituer des composants équivalents (je cite : "et remplacer les types TCHAMPS et autres par vos Composants", en clair : débrouillez-vous) est trop important et n'élèvera pas nécessairement le niveau des connaissances.

Publier une application complète, c'est bien et c'est louable.
Mais il est préférable d'exposer un problème complexe et d'expliquer la manière dont il a pu être résolu en l'isolant du contexte de ton application.
En l'occurence, le glisser-lâcher de composants est, dans ton cas, ce qui présentait le plus de difficultés et donc le plus d'intérêt pour la communauté.
Une petite application, illustrant ce principe, aurait suffi pour la démonstration et susciter notre curiosité au lieu de notre courroux.

Pour finir, de la part d'un professionnel :
1- divulguer un mot de passe sur le web
2- publier un code inutilisable
3- oser ajouter "La liste des Beug est trop longue !!!" ("Beug", néologisme ?)

On se demande si on a vraiment un pro en face de soi.

Assemple, ce n'est pas le premier code que tu publies et tu nous avais habitué à mieux que cela. Au lieu de cela, tu t'es précipité pour publier à tout prix, comme un débutant.
Il ne suffit pas de se déclarer professionnel, il faut aussi l'être. Sinon, c'est le discrédit assuré...
Allez, tu isoles la partie la plus intéressante de ton code,tu nous en fais profiter si tu veux et on oublie ce regrettable incident.

Ne prend surtout pas mal mes propos. Je suis sûr que tu comprendras que je les ai rédigés dans le seul but de te rendre service.

Que Delphi soit avec toi.

Commentaire de cirec le 15/01/2006 21:02:34 administrateur CS

Même avec le mot de passe ça plante

il décomprime des fichiers html mais rien de plus ensuite il plante :-(
@+
Cirec

Commentaire de WhiteHippo le 18/01/2006 20:18:23

"ATTENTION : le code présenté ne pourra pas être utilisé tel quel, car je l'ai développé pour l'utiliser avec des composants que je ne souhaite pas publier pour l'instant."

"La liste des Beug est trop longue !!!"

Tout ça ne donne pas vraiment envie de se pencher sur la source, et si on ajoute les commentaires, alors on n'a plus du tout envie !!!

Bref, tout cela ne semble décidément pas avoir grand intérêt, mis à part peut être de faire un peu de publicité pour votre SARL, quoique ... fournir un programme fortement buggé, c'est pas très pro pour une boite info... ;)

Cordialement.

Commentaire de WhiteHippo le 19/01/2006 19:56:56

La curiosité étant plus forte, j'ai quand même regardé le source et là je suis entièrement d'accord, cette publication n'est "Pas destinée à être utilisée telle quelle", pire je dirais même qu'elle n'est pas exploitable du tout, même pour une application similaire... Vu tout le code manquant, il sera plus facile et certainement plus rapide de repartir sur une base vide plutôt que d'essayer de recoller les bouts manquants.
Enfin, cela n'engage bien sur que mon modeste jugement.

Mais arrétons de tirer sur l'ambulance, quelques remarques constructives concernant le codage pur :

Faché avec les "if then else" ?
Ex 1 :
  If Valeur = StrOUI then Valeur := 'True' ;
  If Valeur = StrNON then Valeur := 'False' ;
  If Valeur = StrNeutre then Valeur := 'False' ;

Ex 2 :
  If C is TLabel then TLabel(C).OnClick := ControlClick ;
  If C is TLabel then TLabel(C).OnDblClick := ControlDblClick ;
  If C is TCurvedSpeedButton then TCurvedSpeedButton(C).OnClick := ControlClick ;
  If C is TCurvedSpeedButton then TCurvedSpeedButton(C).OnDblClick := ControlDblClick ;

Ne serait-il pas plus judicieux d'écrire :
Ex 1 :
  If ( Valeur = StrOUI ) then Valeur := 'True'
  else if ( Valeur = StrNON ) or ( Valeur = StrNeutre ) then Valeur := 'False' ;

Ex 2 :
  If ( C is TLabel ) then
  begin
    TLabel(C).OnClick    := ControlClick ;
    TLabel(C).OnDblClick := ControlDblClick ;
  end ;
  If ( C is TCurvedSpeedButton ) then
  begin
    TCurvedSpeedButton(C).OnClick    := ControlClick ;
    TCurvedSpeedButton(C).OnDblClick := ControlDblClick ;
  end ;

Je sais c'est PRESQUE la même chose, mais d'une part on économise des tests et d'autre part on gagne en clarté, facilitant au passage les modifications futures.

Moi la maintenance de code identique dans plusieurs modules, j'aime pas ça. Cela n'est pas nécessaire, et les risques d'erreurs lors de modifications sont multipliés.

Il serait donc, par exemple, beaucoup plus logique de créer une fiche "TFichePropChamp" dérivant de TEzFiche contenant le code identique des fiches TPropChampCompte, TPropChampCouleur, TPropChampEntier, TPropChampNumero,... qui deviendraient alors des fiches enfants de "TFichePropChamp". Idem pour la fiche TPropChampString avec un override en prime.

Cordialement.

P.S. Une mention spéciale pour ce superbe anglicisme "bouged"

Commentaire de WhiteHippo le 20/01/2006 18:39:08

Faut pas le prendre mal, mais même si c'est un premier jet, cela ne devrait pas empecher une certaine rigueur. Privilégier la rapidité de développement et non la qualité se paye à un moment ou un autre (choix erronés de solutions, maintenance ardue, évolution impossible sans modification à coups de serpe, etc...) Même le processus le plus rapide de développement, l'XP(eXtreme Programming) impose des principes à respecter, et surtout de la rigueur.

Je suis tétu, ( soit! :-) en conséquence, j'insiste. Quel est l'intérêt de proposer un programme prospectif ? Déjà une seconde version et ce en moins de 4 jours ! Désolé mais pour ma part, je m'intéresse aux programmes finis qui pourront m'apporter quelquechose, et non aux essais de programmation, qui un jour iront vers une voie et plus tard vers la voie opposée, car la prospection ne sera pas partie du bon côté par manque d'analyse préalable. Qui voudrait d'ailleurs faire se reposer un programme  sur une [Easy]Base aussi chancelante ?

En conclusion, un petit programme fini, bien structuré proposant peu de fonctionnalités sera toujours plus intéréssant et instructif qu'un gros programme non complet (dont une partie des sources est manquante) proposant une multitude de fonctionnalités non exploitables une fois celle-ci sorties de leur contexte.

Cordialement.

Commentaire de WhiteHippo le 22/01/2006 23:42:45

C'est des procédures que l'on employe très souvent et largement lorsque l'on réalise des experts sous Delphi.

Mais cela permet également d'autres subtilités.

Voici, un programme fait en 2 coups de cuillères à pot pour manipuler un type énuméré à partir de chaines de caractères :

unit Unit2;

interface

uses
  Classes ;

type
  TypeAConvertir =
    ( mtInconnu
    , mtType1
    , mtType2
    ) ;

  TTypeAConvertir = class( TPersistent )
  private
    FType : TypeAConvertir ;
  public
    function EnChaine : string;
    procedure DeChaine ( s : string );
  published
    property ProprieteType : TypeAConvertir read FType Write FType ;
  end ;

implementation

uses
  Dialogs, TypInfo;


function TTypeAConvertir.EnChaine : string;
begin
  // Récupération de la valeur du type sous forme de chaine.
  if IsPublishedProp(self,'ProprieteType') then
  begin
    Result := GetPropValue( self,'ProprieteType',true);
  end ;
end ;

procedure TTypeAConvertir.DeChaine ( s : string );
begin
  // Forçage de la valeur du type à partir d'une chaine.
  if IsPublishedProp(self,'ProprieteType') then
  begin
    SetPropValue( self,'ProprieteType',s );
  end ;
end ;


var
  T : TTypeAConvertir ;

initialization
  T := TTypeAConvertir . Create ;
  T.ProprieteType := mtType1 ;  // Emploi classique
  ShowMessage( T.EnChaine );    
  T.DeChaine( 'mtType2' );  
  ShowMessage( T.EnChaine );
  T.DeChaine( 'mtInconnu' );  
  ShowMessage( T.EnChaine );

  T.Free ;
end.


Cordialement.