tigris1
Messages postés57Date d'inscriptiondimanche 27 mars 2005StatutMembreDernière intervention15 janvier 2009
-
13 mars 2008 à 21:58
tigris1
Messages postés57Date d'inscriptiondimanche 27 mars 2005StatutMembreDernière intervention15 janvier 2009
-
29 oct. 2008 à 19:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
tigris1
Messages postés57Date d'inscriptiondimanche 27 mars 2005StatutMembreDernière intervention15 janvier 2009 29 oct. 2008 à 19:20
Salut Philippe,
Cela fait très plaisir de voir que ce code intéresse quelques personnes et surtout que ces personnes creusent les choses et proposent des améliorations qui sont les bien-venues.
Merci donc pour tes améliorations.
Cordialement
Tigris
phcalamita
Messages postés2Date d'inscriptionjeudi 1 janvier 2004StatutMembreDernière intervention29 octobre 2008 29 oct. 2008 à 16:06
salut,
quelques petites erreur notament si tu ne synchronise qu'une direction dest -> src
je me suis permit de modifier quelque peu le source
dans la methode SynchroFiles de l'unite FormSyncFiles
...
bIgnored := FALSE;
// Gestion de la synchronisation
if CheckBoxSyncFromSource.Checked then
begin
if sFields[nCOL_CHECKED] = '1' Then
begin
if sFields[nCOL_SYNC] = '>' then
CopySrcToDest
else
bIgnored := True;
// else
//if sFields[nCOL_SYNC] = '<' then
// CopyDestToSrc;
end
else
bIgnored := True;
end;
if CheckBoxSyncFromTarget.Checked then
begin
if sFields[nCOL_CHECKED] = '1' Then
begin
// if sFields[nCOL_SYNC] = '>' then
// CopySrcToDest
// else
if sFields[nCOL_SYNC] = '<' then
CopyDestToSrc
else
bIgnored := True;
end
else
bIgnored := True;
end;
// Gestion de la bonne exécution ou non de la copie
if (not(bCopied)) and (not(bIgnored)) then
begin
...
autre modif
dans la formprincipale
possibilite de saisir les filtre directement dans le combo
ajou de la methode onKeyup
procedure TFrmMain.ComboBoxFileTypesKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
id : Integer;
begin
if Key = VK_RETURN then
begin
if ComboBoxFileTypes.Items.IndexOf(trim(ComboBoxFileTypes.Text))< 0 Then
begin
ComboBoxFileTypes.Items.Add(trim(ComboBoxFileTypes.Text));
id := ComboBoxFileTypes.Items.IndexOf(trim(ComboBoxFileTypes.Text));
ComboBoxFileTypes.ItemIndex := id;
OnUserSelectActions(sender);
end;
end;
end;
Cordialement
Philippe
tigris1
Messages postés57Date d'inscriptiondimanche 27 mars 2005StatutMembreDernière intervention15 janvier 2009 20 mars 2008 à 15:40
Merci Atlandev,
J'ai effectivement vu le problème, mais après le "post". J'avais bien testé cela, mais je pense qu'une modification ultérieure, pas ou mal testée, est à l'origine de cette défaillance. Je vais y remédier et faire une mise à jour, après les fêtes.
Bonnes Fêtes de Pâques.
Tigris
atlandev
Messages postés3Date d'inscriptionjeudi 12 août 2004StatutMembreDernière intervention20 mars 2008 20 mars 2008 à 01:20
un seul mot BRAVO...
Programme + Fichier d'aide... et en plus le progr. fonctionne parfaitement.
Juste un p'tit truc, la suppression d'un lien dans la boîte de dialogue options->historiques ne semble pas bien fonctionner.
Bonne continuation.
tigris1
Messages postés57Date d'inscriptiondimanche 27 mars 2005StatutMembreDernière intervention15 janvier 2009 13 mars 2008 à 21:58
Un oubli:
Les illustrations du fichier d'aide (.pdf) sont celles de l'application qui utilise le composant VclSkin. Le programme original comporte un bouton supplémentaire pour choisir l'apparence en chargeant un fichier correspondant au choix. C'est le 2ème bouton de puis la droite sur la capture et qui ne se trouve pas dans le source déposé. Le composant est payant et c'est pourquoi il n'est pas joint au "post".
29 oct. 2008 à 19:20
Cela fait très plaisir de voir que ce code intéresse quelques personnes et surtout que ces personnes creusent les choses et proposent des améliorations qui sont les bien-venues.
Merci donc pour tes améliorations.
Cordialement
Tigris
29 oct. 2008 à 16:06
quelques petites erreur notament si tu ne synchronise qu'une direction dest -> src
je me suis permit de modifier quelque peu le source
dans la methode SynchroFiles de l'unite FormSyncFiles
...
bIgnored := FALSE;
// Gestion de la synchronisation
if CheckBoxSyncFromSource.Checked then
begin
if sFields[nCOL_CHECKED] = '1' Then
begin
if sFields[nCOL_SYNC] = '>' then
CopySrcToDest
else
bIgnored := True;
// else
//if sFields[nCOL_SYNC] = '<' then
// CopyDestToSrc;
end
else
bIgnored := True;
end;
if CheckBoxSyncFromTarget.Checked then
begin
if sFields[nCOL_CHECKED] = '1' Then
begin
// if sFields[nCOL_SYNC] = '>' then
// CopySrcToDest
// else
if sFields[nCOL_SYNC] = '<' then
CopyDestToSrc
else
bIgnored := True;
end
else
bIgnored := True;
end;
// Gestion de la bonne exécution ou non de la copie
if (not(bCopied)) and (not(bIgnored)) then
begin
...
autre modif
dans la formprincipale
possibilite de saisir les filtre directement dans le combo
ajou de la methode onKeyup
procedure TFrmMain.ComboBoxFileTypesKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
id : Integer;
begin
if Key = VK_RETURN then
begin
if ComboBoxFileTypes.Items.IndexOf(trim(ComboBoxFileTypes.Text))< 0 Then
begin
ComboBoxFileTypes.Items.Add(trim(ComboBoxFileTypes.Text));
id := ComboBoxFileTypes.Items.IndexOf(trim(ComboBoxFileTypes.Text));
ComboBoxFileTypes.ItemIndex := id;
OnUserSelectActions(sender);
end;
end;
end;
Cordialement
Philippe
20 mars 2008 à 15:40
J'ai effectivement vu le problème, mais après le "post". J'avais bien testé cela, mais je pense qu'une modification ultérieure, pas ou mal testée, est à l'origine de cette défaillance. Je vais y remédier et faire une mise à jour, après les fêtes.
Bonnes Fêtes de Pâques.
Tigris
20 mars 2008 à 01:20
Programme + Fichier d'aide... et en plus le progr. fonctionne parfaitement.
Juste un p'tit truc, la suppression d'un lien dans la boîte de dialogue options->historiques ne semble pas bien fonctionner.
Bonne continuation.
13 mars 2008 à 21:58
Les illustrations du fichier d'aide (.pdf) sont celles de l'application qui utilise le composant VclSkin. Le programme original comporte un bouton supplémentaire pour choisir l'apparence en chargeant un fichier correspondant au choix. C'est le 2ème bouton de puis la droite sur la capture et qui ne se trouve pas dans le source déposé. Le composant est payant et c'est pourquoi il n'est pas joint au "post".
Cordialement
Tigris