Das Synedit und sein Optionen-Dialog

[Delbor]

Hi zusammen

Hat schon mal jemand den Optionendialog(TfmEditorOptionsDialog) des Synedits eingesetzt? Ich kann ihn zwar Modal anzeigen, Wenn ich dann jedoch OK drücke, wird hier eine AV geworfen:

Delphi-Quellcode:

procedure TfmEditorOptionsDialog.btnAddKeyClick(Sender: TObject);
var Item : TListItem;
begin
  Item:= KeyList.Items.Add;
  Item.Data:= FSynEdit.Keystrokes.Add;// <==
  Item.Selected:= True;
  btnUpdateKeyClick(btnAddKey);
end;

FSynedit ist nil. Warum? Was Fehlt? Der Constructor ist da, wird aber offensichtlich nicht aufgerufen.

Gruss
Delbor

[Delbor]

Hi zusammen

Nach längerem und wiederholten Durchsteppen habe ich im Moment folgenden Lösungsansatz:

Delphi-Quellcode:

procedure TSynEditFrame.DoOptionsDialogShow;
  var  SynEditorOptionsContainer : TSynEditorOptionsContainer;
begin
  SynEditorOptionsContainer := TSynEditorOptionsContainer.Create(Self);      
  SynEditorOptionsContainer.Assign(SynEdit1);                                
  if SynEditOptionsDialog1.Execute(SynEditorOptionsContainer) then begin
    
//    SynEdit1.Assign(SynEditorOptionsContainer);
    SynEdit1.Gutter.Color := SynEditorOptionsContainer.Gutter.Color;
  end;
end;

Der Dialog wird angezeigt, und wenn ich ihn wieder Schliesse, execute aufgerufen. Die Programmausführung durchläuft nun verschiedene Prozeduren, die die Eigenschaften des SynEditorOptionsContainer verändern. So, wie ich das verstanden habe, sollte nun die modifizierten Eigenschaften enthalten.
Testweise habe ich im Dialog die Farbe für den Gutter verändert und weise diese nun zu. Mit dem Effekt, dass sich im Synedit1 nichts ändert...
Ganz offensichtlich habe ich ziemlich verquert gedacht was ja bei einem rauchenden Kopf nicht weiter verwunderlich ist. Immerhin haben die beteiligten Synedit-Units mit einer Ausnahme (ca. 200) zwischen gut 1000 und knapp 1400 Zeilen Code....

Hat jemand eine Idee, wo ich falsch gedacht haben könnte?

Ein etwas ungewöhnlicher Gedanke meinerseits war, die von mir benutzten Synedit-Units hier als Anhang hochzuladen. Etwas, das im Falle von Delphi-Units aus Lizenzgründen nicht möglich ist. Im Falle von Synedit dürfte dies wohl etwas anders aussehen, da Synedit Opensource ist.

Gruss
Delbor

[Delbor]

Hi zusammen

Um meinen Monolog mal weiter zu führen und als Info, falls mal jemand vor dem selben Problemchen steht: die Sache funktioniert so, wie im letzten Beitrag gezeigt. Die Falle bestand darin, dass ich zur Designzeit dem Synedit-Gutter (dem linken Rand mit den Zeilennummern) einen Farbverlauf verpasst habe - das Property Gradientcolor war also True. Und somit hat das Setzen von Color keine Auswirkung.
Zumindest in meiner Version bietet der SynEditOptionsDialog keine Möglichkeit, das Property Gradientcolor und die Gradientfarben (an- oder ab) zu wählen.

Gruss
Delbor