RichEdit VS SynEdit

[BullsEye]

Zitat von Die Muhkuh:

Die Highlighter sind alle nicht mehr auf dem Stand der Zeit.

Bearbeiten kannst Du ihn: Entweder komplett neu mit den SynGen machen oder die vorhandene Unit ändern.

Hab ich auch germerkt Ich denke, ich werde, sobald ich ein wenig mehr Zeit habe, einmal ein paar Units überarbeiten!

Delphi-Quellcode:

function sprache(sprache: TSynCustomHighlighter; name : TMenuItem) : String;
BEGIN
  frmEdit.mText.Highlighter := sprache;
  if not (frmEdit.mText.Highlighter = sprache) then
  begin
    name.Checked := false;
  end else begin
    name.Checked := true;
  end;
  frmEdit.sbStatus.Panels[1].Text := name.Caption;
END;

procedure TfrmEdit.INI1Click(Sender: TObject);
begin
  sprache(ini, ini1);
end;

procedure TfrmEdit.Java1Click(Sender: TObject);
begin
  sprache(java, Java1);
end;

Erst wähle ich Ini1 aus, das wird auch, wie gewollt, gecheckt/ markiert/ abgehackt, wie auch immer. Dann wähle ich Java1 aus. Wird auch gecheckt/ markiert/ abgehackt allerdings beleibt INI1 dann auch gecheckt. !?

Zitat von DeddyH:

Wäre da ein case nicht angebrachter?

Wäre sinnvoller, ja
Ist aber auch nur ne "quick % dirty" Demo.