Undo & Redo der SynEdit

[City Light]

Halli Hallo

Volgendes Problem: Ich versuche schon seit längerem die UNDO und REDO Funktion in mein Programm ein zubinden. Habe aber ein kleines Problem dabei ...hoffe Ihr könnt mir dabei helfen.

Also so Sieht es bei mir aus...

Delphi-Quellcode:

procedure TForm1.SynEdit1StatusChange(Sender: TObject;
  Changes: TSynStatusChanges);
begin
  if SynEdit1.CanRedo then
    Button3.Enabled := True
  else
    Button3.Enabled := False;

  if SynEdit1.Modified then
  begin
    Button2.Enabled := True;
  end
  else
  begin
    Button2.Enabled := False;
  end;

So weit so gut die beiden Button gehen an wenn was zu Unden oder zu Redo gibt, wenn ich jetzt aber auf ein Button klicken möchte um das ganze ab zu speichern ,soll Button 3 auf False stehen. geht aber nich...

Delphi-Quellcode:

procedure TForm1.speichern1Click(Sender: TObject);
begin
  SynEdit1.Modified := False; //Button2 steht jetzt auf false
end;

Nachtrag: also wenn ich den Inhalt Speichere(der SynEdit) sollen die Beiden Button's auf FALSE stehen

[chris]

hi,

du brauchst den ganzen 'if..then..else-kram' nicht

probiere es mal so:

Delphi-Quellcode:

procedure TForm1.SynEdit1StatusChange(Sender: TObject;
  Changes: TSynStatusChanges);
begin
Button2.Enabled := SynEdit1.Modified;
Button3.Enabled := SynEdit1.CanRedo;
Button4.Enabled := SynEdit1.CanUndo
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SynEdit1.Modified := False
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Synedit1.Redo
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
SynEdit1.Undo
end;

[City Light]

Danke für den Tipp!

,was mein Problem aber nicht löst, wenn Button3 gedrückt wird
sollen Button1 und Button2 auf False stehen.

Gruß Tino

[Stanlay Hanks]

Dann trag doch unter das Redo einfach ein, dass die Buttons disabled werden:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject); 
begin 
Synedit1.Redo;
Button1.enabled := false;
Button2.enabled := false 
end;

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]

[City Light]

AHH ja jetzt geht es ,danke euch :bounce2: