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)