fontdialog

Jakie procedury odpowiadają za zmianą czcionki za pomocą fontdialog, 'nowy' i 'zamknij'?

o co ci chodzi z tym 'nowy' i 'zamknij' ?? ;-)

za zmiane czcionki (o ile cie zrozumialem) to:

[code]if FontDialog1.Execute then
Memo1.Font:=FontDialog1.Font;[/code]

'Nowy' w sensie-Nowy plik(kasuje stary,daje nowy)
'Zamknij'-odpowiednik Alt-F4 w Delphi(zamyka plik)

Chodzi ci o:

Zamknij:

[code]Close;[/code]

albo

[code]Application.Terminate[/code]

?

A nowy to:

[code]
var Res : Integer;

begin

if RichEdit1.Modified then

begin
Res := Application.MessageBox('Czy chcesz zapisać plik?', 'Notepad', MB_YESNOCANCEL);

if Res = ID_YES then
begin
SaveDialog1.Execute;
if SaveDialog1.Filename'' then RichEdit1.Lines.SaveToFile(SaveDialog1.Filename);
RichEdit1.Lines.Clear;
end;

if Res = ID_NO then
begin
RichEdit1.Lines.Clear;
end;

[/code]

Zamiast [code]RichEdit1.Lines.Clear;[/code] można próbować [code]RichEdit1.Clear;[/code]

O to chodziło, czy nie?

[cya] [cya] [cya] [cya] [cya]

Dzięki, a:
1.Cofnij i Powtórz w Delphi 2.0.
2.Sh1Obj w Delphi 2.0?

Nie wiem, czy działa w RichEdit, ale działa w memo:

sendMessage(memo1.handle), WM_UNDO, 0, 0);

[code]RichEdit.Undo;[/code]

A powtórz się nie da - program za głupi...

Jeśli miałbyś jakiś nowszy Delphi (6) - ściągnij SynEdit. Jest jak RichEdit, kolorowanie składni, oczywiście można wyłączyć. A ma i cofanie i powtarzanie i od cholery innych rzeczy. Sam go używam :)

Jak w richedit zmienić dany tekst,m albo literę w dany tekst, np:
zmień wszystkie "a"na "b"(w tekście)