Discussion :

[SergioMaster]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
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 ?

[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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SergioMaster]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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
je vais tenter un coup de poker en assignant un autre évènement au OnClick

[SergioMaster]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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