FastReport mais c'est plus une question de langage

Bonjour,

Voilà le bout de code qui me pose soucis dans le frxdesigner (qui permet à l'utilisateur de modifier un état)

Code:

---

1 2 3 4 5 6

procedure TfrxDesignerForm.SaveCmdExecute(Sender: TObject); begin FInspector.ItemIndex := FInspector.ItemIndex; if CheckOp(drDontSaveReport) then SaveFile(False, Sender = Self); end;

---

Pour moi, c'est la condition Sender=Self le pb, toujours faux, impossible de proposer mon propre évènement (onSaveReport) qui n'est déclenché que si cette valeur est true :arf:
l'objectif : après la sauvegarde fermer le designer
Pensez-vous qu'un petit hack me permettrait de changer le comportement ? J'ai toujours hacker des propriétés mais très peu souvent des procédures, comment faire en sorte d'écraser celle-ci ?

TfrxDesignerForm ?
Tu dois avoir une version amélioré de FastReport et pas celle par défaut de Delphi qui semble ne contenir que DFM et DCU

Code:

---

FInspector.ItemIndex := FInspector.ItemIndex;

---

Oh le truc qui pue pour appeler un Setter et stabiliser une bouse



Le Sender quand tu débuggue ce n'est pas plutôt l'action SaveCmd (je suppose un TAction)

Code:

---

SaveFile(False, (Sender as TAction).ActionList.Owner = Self);

---

Citation:

---

Envoyé par ShaiLeTroll

TfrxDesignerForm ?
Tu dois avoir une version amélioré de FastReport et pas celle par défaut de Delphi qui semble ne contenir que DFM et DCU

---

la version enregistrée ;)

Citation:

---

Code:

---

FInspector.ItemIndex := FInspector.ItemIndex;

---

Oh le truc qui pue pour appeler un Setter et stabiliser une bouse

---

je n'y avais même pas fait attention ! C'est la première fois que je mets le nez dans les sources de FastReport, c'est vraiment pas joli joli ça

Citation:

---

Le Sender quand tu débuggue ce n'est pas plutôt l'action SaveCmd (je suppose un TAction)

---

Non, il n'y a aucune TAction. C'est un onclick d'un bouton donc tout comme donc le Sender est un TButton et non la forme et donc false !

J'ai essayé de hacker, SaveFile mais j'ai été renvoyé dans les cordes : ce n'est pas une méthode virtuelle :aie:
je vais tenter un coup de poker en assignant un autre évènement au OnClick

Bon, le hacking ce n'était pas tout à fait la bonne piste, j'ai résolu mon problème de la façon suivante :

j'ai créé une procédure : procedure SaveEvent(Sender : TObject);

Code:

---

1 2 3 4

procedure TFormFRDesign.SaveEvent(Sender: TObject); begin TFrxDesignerForm(Etat.Designer).SaveFile(False,true); end;

---

et assigné celle-ci au bouton du designer de la manière suivante :

Code:

---

TFrxDesignerForm(Etat.Designer).SaveB.OnClick:=SaveEvent;

---

dans l'évènement OnShow du composant frxDesigner de ma forme.
J'ai encore un petit doute au niveau de la déclaration de la procédure (une histoire de TNotifyEvent qui me titille)
mais l'objectif est atteint, dans mon designer le clic sur le bouton lève bien l'évènement OnSaveReport du frxDesigner