Conversion TFilenameEdit Delphi/rxToolEdit.pas vs Lazarus ?

Version imprimable

11/11/2013, 10h54
hmira

Conversion TFilenameEdit Delphi/rxToolEdit.pas vs Lazarus ?

Bonjour,
J'ai installé ce week-end (et pour la première fois !) la dernière version de CodeTyphon v.4.5 ! Tout s'est bien passé ..
Avec l'assistant de conversion projet Delphi en projet CodeTyphon, j'ai convertis un tout petit projet Delphi 7 en projet CodeTyphon (c.à.d Lazarus)
J'ai un problème par rapport à un composant Rx nommé TFilenameEdit. Sous Delphi ce composant se trouve dans l'unité :
..\Rxlib2725\Units\rxToolEdit.pas
Sous CodeTyphon, j'ai trouvé une classe qui porte le même nom TFilenameEdit !!! mais qui se trouve dans l'unité :
C:\codetyphon\typhon\lcl\editbtn.pas
Les 2 classes ont le même nom ! mais à la lecture du code, n'héritent pas de la même classe de base, et n'ont pas les mêmes propriétés et méthodes !
Question : comment convertit-on, sous Lazarus la classe Rx (TFilenameEdit) ?
PS : l'unité rxToolEdit.pas n'existe pas dans les unités des composants CodeTyphon (Rx) préinstallés !

Merci.
11/11/2013, 14h17
SoftChris

Salut,

Peut être simplement qu'il vaut mieux utiliser le composant proposé par défaut par Lazarus "TFilenameEdit" et d'adapter un petit peu le code pour que çà fonctionne.
J'ai importé un gros projet de D7 dans Lazarus et j'ai bossé 15 jours au bas mot pour que çà fonctionne et je le regrette pas...
11/11/2013, 15h07
hmira

Merci pour ta réponse et de ton témoignage .. C'est rassurant.
C'est exactement ce que je suis en train de faire ... je suis en train de revoir le code pour l'adapter à Lazarus.
A+

Lors de la transformation de Delphi vers Lazarus la propriété ButtonWidth qui n'existait dans Delphi est resté à zéro du coup je ne voyais pas le bouton de sélection des fichiers.
Pour corriger le problème j'ai effectué les quelques transformations suivantes
Delphi --> Lazarus
OnAfterDialog --> OnAcceptFileName
puis j'ai défini la propriété ButtonWidth à une valeur différente de 0 (zéro) (exemple : 24) sinon on ne voit pas le bouton de sélection des fichiers !
puis j'ai utilisé les 2 fonctions ExtractFilePath() et ExtractFilename appliquées au paramètre var "Value" du gestionnaire d'évènement AcceptFileName.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TFrmMain.FilenameEdit1AcceptFileName(Sender: TObject; var Value: String); begin with Dbf1 do begin if Active then Close; FilePath := ExtractFilePath(Value); FilePathFull := FilePath; TableName := ExtractFileName(Value); Open; end; end;
A+