Ĺadny brzuch
1.Jak zrobić aby w ComboBox1 wyświetlić wszystkie czcionki i np. jak zaznacze jakąś cześć tekstu w richedit i wezmie wybiore se inną czcionkę to żeby ta była
2. to samo tylko wielkość czcionki
3. jak zrobić aby po zaznaczeniu jakiegoś tekstu w richedit i kliknięciu raz na speedbutton czcionka się pogrubiła a jeśli jeszcze raz sie na ten sam tekst zaznaczy i naciśnie drugi raz button żeby była normalna
4. tak samo tylko z wyśrodkowaniem
1. Combobox1.Text:= richedit.font.name;
2. Combobox1.Text:= inttostr(richedit.font.size);
1. Combobox1.Text:= richedit.font.name;
2. Combobox1.Text:= inttostr(richedit.font.size);
zamknijcie temat
i obydwa kody nie działają po kompilacji nic sie nie dzieje jest tak jakby tej procedury nie było?
Nie wiem, gdzie ten kod dajesz, ale dawaj do RichEdit1.OnStatusChange (chyba, może być inne - bierz najbardziej podobne). Co się tyczy pkt. 3:
procedure TForm1.SpeedButton1Click(Sender: TObject); var styl: TFontStyles; begin styl := RichEdit1.SelAttributes.Style; if SpeedButton1.Down then include(styl, fsBold) else exclude(styl, fsbold); RichEdit1.SelAttributes.Style := styl; SpeedButton1.Down := not SpeedButton1.Down; end;
nie wiem co sie dzieje ale żaden z tych kodów nie działa
Zatem rzuć kodem :>
//Inaczej: pokaż swój kod...
Użytkownik pbnan edytował ten post 07 sierpień 2006, 17:05
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, StdCtrls, AppEvnts, ToolWin, Buttons, Shellapi; type TForm1 = class(TForm) StatusBar1: TStatusBar; MainMenu1: TMainMenu; Plik1: TMenuItem; Edycja1: TMenuItem; Szukaj1: TMenuItem; Pomoc1: TMenuItem; RichEdit1: TRichEdit; Nowy1: TMenuItem; Otwrz1: TMenuItem; Zapiszjako1: TMenuItem; N1: TMenuItem; Cofnij1: TMenuItem; N2: TMenuItem; Wytnij1: TMenuItem; Kopiuj1: TMenuItem; Wklej1: TMenuItem; N3: TMenuItem; Zaznaczwszystko1: TMenuItem; OProgramie1: TMenuItem; Znajdtekst1: TMenuItem; SaveDialog1: TSaveDialog; OpenDialog1: TOpenDialog; ApplicationEvents1: TApplicationEvents; FindDialog1: TFindDialog; Wstaw1: TMenuItem; Drukuj1: TMenuItem; Ustawieniadruku1: TMenuItem; N4: TMenuItem; Zamknij1: TMenuItem; Data1: TMenuItem; Godzina1: TMenuItem; RejestracjaProduktu1: TMenuItem; ToolBar1: TToolBar; Widok1: TMenuItem; PasekNarzdzi1: TMenuItem; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; SpeedButton5: TSpeedButton; SpeedButton6: TSpeedButton; ToolButton1: TToolButton; ToolButton2: TToolButton; SpeedButton7: TSpeedButton; ToolButton3: TToolButton; ComboBox1: TComboBox; ToolButton4: TToolButton; ComboBox2: TComboBox; ToolButton5: TToolButton; SpeedButton9: TSpeedButton; SpeedButton10: TSpeedButton; SpeedButton11: TSpeedButton; SpeedButton12: TSpeedButton; SpeedButton13: TSpeedButton; SpeedButton14: TSpeedButton; ToolButton6: TToolButton; PrintDialog1: TPrintDialog; PrinterSetupDialog1: TPrinterSetupDialog; PopupMenu1: TPopupMenu; Wytnij2: TMenuItem; Kopiuj2: TMenuItem; Wklej2: TMenuItem; N5: TMenuItem; Zaznaczwszystko2: TMenuItem; ToolButton7: TToolButton; SpeedButton8: TSpeedButton; ColorDialog1: TColorDialog; procedure Zapiszjako1Click(Sender: TObject); procedure Otwrz1Click(Sender: TObject); procedure Nowy1Click(Sender: TObject); procedure Zamknij1Click(Sender: TObject); procedure Zaznaczwszystko1Click(Sender: TObject); procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); procedure Kopiuj1Click(Sender: TObject); procedure Wytnij1Click(Sender: TObject); procedure Wklej1Click(Sender: TObject); procedure OProgramie1Click(Sender: TObject); procedure Cofnij1Click(Sender: TObject); procedure FindDialog1Find(Sender: TObject); procedure Znajdtekst1Click(Sender: TObject); procedure Data1Click(Sender: TObject); procedure Godzina1Click(Sender: TObject); procedure PasekNarzdzi1Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); procedure SpeedButton6Click(Sender: TObject); procedure SpeedButton7Click(Sender: TObject); procedure Ustawieniadruku1Click(Sender: TObject); procedure Drukuj1Click(Sender: TObject); procedure Wytnij2Click(Sender: TObject); procedure Kopiuj2Click(Sender: TObject); procedure Wklej2Click(Sender: TObject); procedure Zaznaczwszystko2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure RejestracjaProduktu1Click(Sender: TObject); procedure SpeedButton12Click(Sender: TObject); procedure SpeedButton13Click(Sender: TObject); procedure SpeedButton14Click(Sender: TObject); procedure SpeedButton8Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; alert : integer; implementation uses Unit2; {$R *.dfm} var plik:String; procedure TForm1.Zapiszjako1Click(Sender: TObject); begin if not SaveDialog1.Execute then Exit; RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName(SaveDialog1.FileName); plik:=SaveDialog1.FileName; end; procedure TForm1.Otwrz1Click(Sender: TObject); var odp:Integer; A: array[0..256] of Char; begin if RichEdit1.Modified = True then begin StrPCopy(A, 'Zapisać zmiany w ' +ExtractFileName(plik)+'?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then Exit; end; if not OpenDialog1.Execute then Exit; RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName (OpenDialog1.FileName); plik:=OpenDialog1.FileName; RichEdit1.Modified := False; end; procedure TForm1.Nowy1Click(Sender: TObject); var odp:Integer; A: array[0..256] of Char; begin if RichEdit1.Modified = True then begin StrPCopy(A, 'Zapisać zmiany w '+ExtractFileName(plik)+'?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then Exit; end; RichEdit1.Clear; Form1.Caption := 'Fast Text 1.3.2 - Nowy Dokument'; plik:='Nowy Dokument'; end; procedure TForm1.Zamknij1Click(Sender: TObject); begin close; end; procedure TForm1.Zaznaczwszystko1Click(Sender: TObject); begin Richedit1.SelectAll; end; procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); var lNumber, lChar, lCharCount: integer; begin lNumber := RichEdit1.Perform(EM_LINEFROMCHAR, RichEdit1.SelStart, 0); lCharCount:= RichEdit1.Perform(EM_LINEINDEX, lNumber, 0); lChar := RichEdit1.SelStart- lCharCount; StatusBar1.Panels[0].Text:= IntToStr(lNumber + 1) +':'+ IntToStr(lChar + 1) +' ' + IntToStr(RichEdit1.SelStart); end; procedure TForm1.Kopiuj1Click(Sender: TObject); begin RichEdit1.CopyToClipboard; end; procedure TForm1.Wytnij1Click(Sender: TObject); begin RichEdit1.CutToClipboard; end; procedure TForm1.Wklej1Click(Sender: TObject); begin RichEdit1.PasteFromClipboard; end; procedure TForm1.OProgramie1Click(Sender: TObject); begin form2.showmodal; end; procedure TForm1.Cofnij1Click(Sender: TObject); begin Richedit1.Undo; end; procedure TForm1.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; begin with RichEdit1 do begin { jeśli jest zaznaczenie, to zaczyna szukać od momentu zaznaczonego tekstu w przeciwnym wypadku od początku tekstu} if SelLength <> 0 then StartPos := SelStart + SelLength else StartPos := 0; { ustala koniec przeszukiwanego tekstu } ToEnd := Length(Text) - StartPos; FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]); if FoundAt <> -1 then begin SetFocus; SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); end; end; end; procedure TForm1.Znajdtekst1Click(Sender: TObject); begin FindDialog1.Execute; end; procedure TForm1.Data1Click(Sender: TObject); begin RichEdit1.SelText := DateToStr(Date); end; procedure TForm1.Godzina1Click(Sender: TObject); begin RichEdit1.SelText := TimeToStr(Time); end; procedure TForm1.PasekNarzdzi1Click(Sender: TObject); begin ToolBar1.Visible:=not ToolBar1.Visible; {Poniższe pozwala zaznaczyć w itemie, czy menu jest widoczne, czy nie - tylko ustaw mu jakiś właściwy stan początkowy} if Sender is TMenuItem then TMenuItem(Sender).Checked:=ToolBar1.Visible; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var odp:Integer; A: array[0..256] of Char; begin CanClose := True; if RichEdit1.Modified = True then begin StrPCopy(A, 'Czy zapisać zmiany w projekcie?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then CanClose := False; end; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin Nowy1.Click; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin Otwrz1.Click; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin Zapiszjako1.Click; end; procedure TForm1.SpeedButton4Click(Sender: TObject); begin Wytnij1.Click; end; procedure TForm1.SpeedButton5Click(Sender: TObject); begin Kopiuj1.Click; end; procedure TForm1.SpeedButton6Click(Sender: TObject); begin Wklej1.Click; end; procedure TForm1.SpeedButton7Click(Sender: TObject); begin Drukuj1.Click; end; procedure TForm1.Ustawieniadruku1Click(Sender: TObject); begin PrinterSetupDialog1.Execute; end; procedure TForm1.Drukuj1Click(Sender: TObject); begin if PrintDialog1.Execute then Richedit1.Print(''); end; procedure TForm1.Wytnij2Click(Sender: TObject); begin Wytnij1.Click; end; procedure TForm1.Kopiuj2Click(Sender: TObject); begin Kopiuj1.Click; end; procedure TForm1.Wklej2Click(Sender: TObject); begin Wklej1.Click; end; procedure TForm1.Zaznaczwszystko2Click(Sender: TObject); begin zaznaczwszystko1.Click; end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.Caption := 'Fast Text 1.3.2 - Nowy Dokument'; plik:='nowy'; RichEdit1.Modified := False; ComboBox1.Items := Screen.Fonts; Combobox1.Text:= richedit1.font.name; end; procedure TForm1.RejestracjaProduktu1Click(Sender: TObject); begin shellexecute(Handle,'Open',PCHar('Rejestracja.exe'),nil,nil, SW_SHOWNORMAL); end; procedure TForm1.SpeedButton12Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment := taLeftJustify; end; procedure TForm1.SpeedButton13Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment := taCenter; end; procedure TForm1.SpeedButton14Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment := taRightJustify; end; procedure TForm1.SpeedButton8Click(Sender: TObject); begin ColorDialog1.Color := RichEdit1.SelAttributes.Color; if not ColorDialog1.Execute then Exit; RichEdit1.SelAttributes.Color := ColorDialog1.Color; end; end.
Tak przeglądam ten kod... Przeglądam... Gdzie Ty wstawiłeś to, co Ci napisał Kajetanek albo ja?! Nie widzę tu tego... Jak zatem ma Ci to działać?
to co było podane tu na forum usunełęm bo nie działało
:omg: No to dodaj ten usunięty kod (wyedytuj swój post z kodem)... Zobaczymy, co z tego wyjdzie :/
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, StdCtrls, AppEvnts, ToolWin, Buttons, Shellapi; type TForm1 = class(TForm) StatusBar1: TStatusBar; MainMenu1: TMainMenu; Plik1: TMenuItem; Edycja1: TMenuItem; Szukaj1: TMenuItem; Pomoc1: TMenuItem; RichEdit1: TRichEdit; Nowy1: TMenuItem; Otwrz1: TMenuItem; Zapiszjako1: TMenuItem; N1: TMenuItem; Cofnij1: TMenuItem; N2: TMenuItem; Wytnij1: TMenuItem; Kopiuj1: TMenuItem; Wklej1: TMenuItem; N3: TMenuItem; Zaznaczwszystko1: TMenuItem; OProgramie1: TMenuItem; Znajdtekst1: TMenuItem; SaveDialog1: TSaveDialog; OpenDialog1: TOpenDialog; ApplicationEvents1: TApplicationEvents; FindDialog1: TFindDialog; Wstaw1: TMenuItem; Drukuj1: TMenuItem; Ustawieniadruku1: TMenuItem; N4: TMenuItem; Zamknij1: TMenuItem; Data1: TMenuItem; Godzina1: TMenuItem; RejestracjaProduktu1: TMenuItem; ToolBar1: TToolBar; Widok1: TMenuItem; PasekNarzdzi1: TMenuItem; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; SpeedButton5: TSpeedButton; SpeedButton6: TSpeedButton; ToolButton1: TToolButton; ToolButton2: TToolButton; SpeedButton7: TSpeedButton; ToolButton3: TToolButton; ComboBox1: TComboBox; ToolButton4: TToolButton; ComboBox2: TComboBox; ToolButton5: TToolButton; SpeedButton9: TSpeedButton; SpeedButton10: TSpeedButton; SpeedButton11: TSpeedButton; SpeedButton12: TSpeedButton; SpeedButton13: TSpeedButton; SpeedButton14: TSpeedButton; ToolButton6: TToolButton; PrintDialog1: TPrintDialog; PrinterSetupDialog1: TPrinterSetupDialog; PopupMenu1: TPopupMenu; Wytnij2: TMenuItem; Kopiuj2: TMenuItem; Wklej2: TMenuItem; N5: TMenuItem; Zaznaczwszystko2: TMenuItem; ToolButton7: TToolButton; SpeedButton8: TSpeedButton; ColorDialog1: TColorDialog; procedure Zapiszjako1Click(Sender: TObject); procedure Otwrz1Click(Sender: TObject); procedure Nowy1Click(Sender: TObject); procedure Zamknij1Click(Sender: TObject); procedure Zaznaczwszystko1Click(Sender: TObject); procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); procedure Kopiuj1Click(Sender: TObject); procedure Wytnij1Click(Sender: TObject); procedure Wklej1Click(Sender: TObject); procedure OProgramie1Click(Sender: TObject); procedure Cofnij1Click(Sender: TObject); procedure FindDialog1Find(Sender: TObject); procedure Znajdtekst1Click(Sender: TObject); procedure Data1Click(Sender: TObject); procedure Godzina1Click(Sender: TObject); procedure PasekNarzdzi1Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); procedure SpeedButton6Click(Sender: TObject); procedure SpeedButton7Click(Sender: TObject); procedure Ustawieniadruku1Click(Sender: TObject); procedure Drukuj1Click(Sender: TObject); procedure Wytnij2Click(Sender: TObject); procedure Kopiuj2Click(Sender: TObject); procedure Wklej2Click(Sender: TObject); procedure Zaznaczwszystko2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure RejestracjaProduktu1Click(Sender: TObject); procedure SpeedButton12Click(Sender: TObject); procedure SpeedButton13Click(Sender: TObject); procedure SpeedButton14Click(Sender: TObject); procedure SpeedButton8Click(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure ComboBox2Change(Sender: TObject); procedure SpeedButton9Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; alert : integer; implementation uses Unit2; {$R *.dfm} var plik:String; procedure TForm1.Zapiszjako1Click(Sender: TObject); begin if not SaveDialog1.Execute then Exit; RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName(SaveDialog1.FileName); plik:=SaveDialog1.FileName; end; procedure TForm1.Otwrz1Click(Sender: TObject); var odp:Integer; A: array[0..256] of Char; begin if RichEdit1.Modified = True then begin StrPCopy(A, 'Zapisać zmiany w ' +ExtractFileName(plik)+'?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then Exit; end; if not OpenDialog1.Execute then Exit; RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName (OpenDialog1.FileName); plik:=OpenDialog1.FileName; RichEdit1.Modified := False; end; procedure TForm1.Nowy1Click(Sender: TObject); var odp:Integer; A: array[0..256] of Char; begin if RichEdit1.Modified = True then begin StrPCopy(A, 'Zapisać zmiany w '+ExtractFileName(plik)+'?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then Exit; end; RichEdit1.Clear; Form1.Caption := 'Fast Text 1.3.2 - Nowy Dokument'; plik:='Nowy Dokument'; end; procedure TForm1.Zamknij1Click(Sender: TObject); begin close; end; procedure TForm1.Zaznaczwszystko1Click(Sender: TObject); begin Richedit1.SelectAll; end; procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); var lNumber, lChar, lCharCount: integer; begin lNumber := RichEdit1.Perform(EM_LINEFROMCHAR, RichEdit1.SelStart, 0); lCharCount:= RichEdit1.Perform(EM_LINEINDEX, lNumber, 0); lChar := RichEdit1.SelStart- lCharCount; StatusBar1.Panels[0].Text:= IntToStr(lNumber + 1) +':'+ IntToStr(lChar + 1) +' ' + IntToStr(RichEdit1.SelStart); end; procedure TForm1.Kopiuj1Click(Sender: TObject); begin RichEdit1.CopyToClipboard; end; procedure TForm1.Wytnij1Click(Sender: TObject); begin RichEdit1.CutToClipboard; end; procedure TForm1.Wklej1Click(Sender: TObject); begin RichEdit1.PasteFromClipboard; end; procedure TForm1.OProgramie1Click(Sender: TObject); begin form2.showmodal; end; procedure TForm1.Cofnij1Click(Sender: TObject); begin Richedit1.Undo; end; procedure TForm1.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; begin with RichEdit1 do begin { jeśli jest zaznaczenie, to zaczyna szukać od momentu zaznaczonego tekstu w przeciwnym wypadku od początku tekstu} if SelLength <> 0 then StartPos := SelStart + SelLength else StartPos := 0; { ustala koniec przeszukiwanego tekstu } ToEnd := Length(Text) - StartPos; FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]); if FoundAt <> -1 then begin SetFocus; SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); end; end; end; procedure TForm1.Znajdtekst1Click(Sender: TObject); begin FindDialog1.Execute; end; procedure TForm1.Data1Click(Sender: TObject); begin RichEdit1.SelText := DateToStr(Date); end; procedure TForm1.Godzina1Click(Sender: TObject); begin RichEdit1.SelText := TimeToStr(Time); end; procedure TForm1.PasekNarzdzi1Click(Sender: TObject); begin ToolBar1.Visible:=not ToolBar1.Visible; {Poniższe pozwala zaznaczyć w itemie, czy menu jest widoczne, czy nie - tylko ustaw mu jakiś właściwy stan początkowy} if Sender is TMenuItem then TMenuItem(Sender).Checked:=ToolBar1.Visible; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var odp:Integer; A: array[0..256] of Char; begin CanClose := True; if RichEdit1.Modified = True then begin StrPCopy(A, 'Czy zapisać zmiany w projekcie?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then CanClose := False; end; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin Nowy1.Click; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin Otwrz1.Click; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin Zapiszjako1.Click; end; procedure TForm1.SpeedButton4Click(Sender: TObject); begin Wytnij1.Click; end; procedure TForm1.SpeedButton5Click(Sender: TObject); begin Kopiuj1.Click; end; procedure TForm1.SpeedButton6Click(Sender: TObject); begin Wklej1.Click; end; procedure TForm1.SpeedButton7Click(Sender: TObject); begin Drukuj1.Click; end; procedure TForm1.Ustawieniadruku1Click(Sender: TObject); begin PrinterSetupDialog1.Execute; end; procedure TForm1.Drukuj1Click(Sender: TObject); begin if PrintDialog1.Execute then Richedit1.Print(''); end; procedure TForm1.Wytnij2Click(Sender: TObject); begin Wytnij1.Click; end; procedure TForm1.Kopiuj2Click(Sender: TObject); begin Kopiuj1.Click; end; procedure TForm1.Wklej2Click(Sender: TObject); begin Wklej1.Click; end; procedure TForm1.Zaznaczwszystko2Click(Sender: TObject); begin zaznaczwszystko1.Click; end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.Caption := 'Fast Text 1.3.2 - Nowy Dokument'; plik:='nowy'; RichEdit1.Modified := False; ComboBox1.Items := Screen.Fonts; end; procedure TForm1.RejestracjaProduktu1Click(Sender: TObject); begin shellexecute(Handle,'Open',PCHar('Rejestracja.exe'),nil,nil, SW_SHOWNORMAL); end; procedure TForm1.SpeedButton12Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment := taLeftJustify; end; procedure TForm1.SpeedButton13Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment := taCenter; end; procedure TForm1.SpeedButton14Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment := taRightJustify; end; procedure TForm1.SpeedButton8Click(Sender: TObject); begin ColorDialog1.Color := RichEdit1.SelAttributes.Color; if not ColorDialog1.Execute then Exit; RichEdit1.SelAttributes.Color := ColorDialog1.Color; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin Combobox1.Text:= richedit1.font.name; end; procedure TForm1.ComboBox2Change(Sender: TObject); begin Combobox1.Text:= inttostr(richedit1.font.size); end; procedure TForm1.SpeedButton9Click(Sender: TObject); var styl: TFontStyles; begin styl := RichEdit1.SelAttributes.Style; if SpeedButton1.Down then include(styl, fsBold) else exclude(styl, fsbold); RichEdit1.SelAttributes.Style := styl; SpeedButton1.Down := not SpeedButton1.Down; end; end; end.
Ech, gadać jak do ściany... <_<
1. Nie wiem, czemu miałaby Ci nie działać procedure ode mnie... Niestety nie mogę teraz sprawdzić :( Robiłeś to metodą dwukliku? (Klikasz dwa razy na komponencie i się generuje kod.)
2. Co do wyboru czcionek (czyli Twojego punktu nr jeden): sprawdź sobie, jak w demkach Delphi (albo w sieci; czuję, że tego jest dużo) pobierają listę czcionek do ComboBox-a (i to do OnCreate formy wstaw). W metodzie TRichEdit OnStatusChange daj coś takiego:
var i:integer; for i:=0 to ComboBox1.Items.Count-1 {czy cos takiego} do if ComboBox1.Items[i]=RichEdit1.SelAttributes.Font.Name then ComboBox1.ItemIndex:=i;
Przypomnę, że jestem chwilowo upośledzony - znaczy nie mogę sprawdzić tego kodu - więc może to działać, ale nie musi ;)
@down:
Chciałeś napisać "wstawiasz?!" chyba ;)
Użytkownik pbnan edytował ten post 07 sierpień 2006, 18:35
A ja może dodam coś do siebie:
1. Po co tyle tego kodu tutaj wstawiacie! Używajcie przy dużych partiach CODEBOX.
2. Jest demo jak zrobić takie coś w folderze z delphi. Jest w katalogu Demos (tam gdzie jest delphi) -> i tam gdzies jest katalog RIchEdit i tam jest wszystko czego potrzebujesz :|
Użytkownik -=PcSA=- edytował ten post 07 sierpień 2006, 18:25
1. Popieram -=PcSA=- - CODEBOX plz!
2. http://ohp.magres.ne...rt=delphi10.php
Omg. Po kija wsadzasz przypisywanie combobox.text w onchange- jak juz to powinno byc tak:
procedure TForm1.ComboBox1Change(Sender: TObject); begin richedit1.font.name:= Combobox1.Text; end;
Zreszta jesli chcesz, aby w comboboxie byla nazwa fonta ktorego uzyto w zaznaczonym tekscie to powinienes wstawic kod ktory ci podalem w swoim pierwszym poscie w onselectionchange richedita.
teraz działa tylko jest jeden problem bo jak wybieram czcionkę to ona jest dla całego tekstu w richedit a ja bym chciał np. pisze jedną linijkę arialem i puzniej nowy wyraz ma inną czcionkę??
Richedit.SelAttributes ^^
Macie gotowy richedit w folderze "demos" tam gdzie macie zainstalowane delphi.
Tam sa czcionki pogrubienie itd.
wystarczy zobaczyc jak to jest zrobione i umiescic w swoim programie B)
if Toolbutton1.Down then CurrText.Style := CurrText.Style + [fsBold] else CurrText.Style := CurrText.Style - [fsBold]; end;
nie moge skompilowac tego kodu: [Error] Unit1.pas(34): Incompatible types
if Toolbutton1.Down then CurrText.Style := CurrText.Style + [fsBold] else CurrText.Style := CurrText.Style - [fsBold]; end;
nie moge skompilowac tego kodu: [Error] Unit1.pas(34): Incompatible types
A widziałeś może, co ja napisałem na ten temat? Robisz tak:
if Toolbutton1.Down then include(currtext.style, fsbold) else exclude(currtext.style, fsbold); end;
Hmmm... Ja też tak zaczynałem... Ale próbuj korzystać z tego, co Ci napisali inni...
Użytkownik pbnan edytował ten post 10 sierpień 2006, 19:24
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
2. to samo tylko wielkość czcionki
3. jak zrobić aby po zaznaczeniu jakiegoś tekstu w richedit i kliknięciu raz na speedbutton czcionka się pogrubiła a jeśli jeszcze raz sie na ten sam tekst zaznaczy i naciśnie drugi raz button żeby była normalna
4. tak samo tylko z wyśrodkowaniem
1. Combobox1.Text:= richedit.font.name;
2. Combobox1.Text:= inttostr(richedit.font.size);
1. Combobox1.Text:= richedit.font.name;
2. Combobox1.Text:= inttostr(richedit.font.size);
zamknijcie temat
i obydwa kody nie działają po kompilacji nic sie nie dzieje jest tak jakby tej procedury nie było?
Nie wiem, gdzie ten kod dajesz, ale dawaj do RichEdit1.OnStatusChange (chyba, może być inne - bierz najbardziej podobne). Co się tyczy pkt. 3:
procedure TForm1.SpeedButton1Click(Sender: TObject); var styl: TFontStyles; begin styl := RichEdit1.SelAttributes.Style; if SpeedButton1.Down then include(styl, fsBold) else exclude(styl, fsbold); RichEdit1.SelAttributes.Style := styl; SpeedButton1.Down := not SpeedButton1.Down; end;
nie wiem co sie dzieje ale żaden z tych kodów nie działa
Zatem rzuć kodem :>
//Inaczej: pokaż swój kod...
Użytkownik pbnan edytował ten post 07 sierpień 2006, 17:05
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, StdCtrls, AppEvnts, ToolWin, Buttons, Shellapi; type TForm1 = class(TForm) StatusBar1: TStatusBar; MainMenu1: TMainMenu; Plik1: TMenuItem; Edycja1: TMenuItem; Szukaj1: TMenuItem; Pomoc1: TMenuItem; RichEdit1: TRichEdit; Nowy1: TMenuItem; Otwrz1: TMenuItem; Zapiszjako1: TMenuItem; N1: TMenuItem; Cofnij1: TMenuItem; N2: TMenuItem; Wytnij1: TMenuItem; Kopiuj1: TMenuItem; Wklej1: TMenuItem; N3: TMenuItem; Zaznaczwszystko1: TMenuItem; OProgramie1: TMenuItem; Znajdtekst1: TMenuItem; SaveDialog1: TSaveDialog; OpenDialog1: TOpenDialog; ApplicationEvents1: TApplicationEvents; FindDialog1: TFindDialog; Wstaw1: TMenuItem; Drukuj1: TMenuItem; Ustawieniadruku1: TMenuItem; N4: TMenuItem; Zamknij1: TMenuItem; Data1: TMenuItem; Godzina1: TMenuItem; RejestracjaProduktu1: TMenuItem; ToolBar1: TToolBar; Widok1: TMenuItem; PasekNarzdzi1: TMenuItem; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; SpeedButton5: TSpeedButton; SpeedButton6: TSpeedButton; ToolButton1: TToolButton; ToolButton2: TToolButton; SpeedButton7: TSpeedButton; ToolButton3: TToolButton; ComboBox1: TComboBox; ToolButton4: TToolButton; ComboBox2: TComboBox; ToolButton5: TToolButton; SpeedButton9: TSpeedButton; SpeedButton10: TSpeedButton; SpeedButton11: TSpeedButton; SpeedButton12: TSpeedButton; SpeedButton13: TSpeedButton; SpeedButton14: TSpeedButton; ToolButton6: TToolButton; PrintDialog1: TPrintDialog; PrinterSetupDialog1: TPrinterSetupDialog; PopupMenu1: TPopupMenu; Wytnij2: TMenuItem; Kopiuj2: TMenuItem; Wklej2: TMenuItem; N5: TMenuItem; Zaznaczwszystko2: TMenuItem; ToolButton7: TToolButton; SpeedButton8: TSpeedButton; ColorDialog1: TColorDialog; procedure Zapiszjako1Click(Sender: TObject); procedure Otwrz1Click(Sender: TObject); procedure Nowy1Click(Sender: TObject); procedure Zamknij1Click(Sender: TObject); procedure Zaznaczwszystko1Click(Sender: TObject); procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); procedure Kopiuj1Click(Sender: TObject); procedure Wytnij1Click(Sender: TObject); procedure Wklej1Click(Sender: TObject); procedure OProgramie1Click(Sender: TObject); procedure Cofnij1Click(Sender: TObject); procedure FindDialog1Find(Sender: TObject); procedure Znajdtekst1Click(Sender: TObject); procedure Data1Click(Sender: TObject); procedure Godzina1Click(Sender: TObject); procedure PasekNarzdzi1Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); procedure SpeedButton6Click(Sender: TObject); procedure SpeedButton7Click(Sender: TObject); procedure Ustawieniadruku1Click(Sender: TObject); procedure Drukuj1Click(Sender: TObject); procedure Wytnij2Click(Sender: TObject); procedure Kopiuj2Click(Sender: TObject); procedure Wklej2Click(Sender: TObject); procedure Zaznaczwszystko2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure RejestracjaProduktu1Click(Sender: TObject); procedure SpeedButton12Click(Sender: TObject); procedure SpeedButton13Click(Sender: TObject); procedure SpeedButton14Click(Sender: TObject); procedure SpeedButton8Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; alert : integer; implementation uses Unit2; {$R *.dfm} var plik:String; procedure TForm1.Zapiszjako1Click(Sender: TObject); begin if not SaveDialog1.Execute then Exit; RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName(SaveDialog1.FileName); plik:=SaveDialog1.FileName; end; procedure TForm1.Otwrz1Click(Sender: TObject); var odp:Integer; A: array[0..256] of Char; begin if RichEdit1.Modified = True then begin StrPCopy(A, 'Zapisać zmiany w ' +ExtractFileName(plik)+'?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then Exit; end; if not OpenDialog1.Execute then Exit; RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName (OpenDialog1.FileName); plik:=OpenDialog1.FileName; RichEdit1.Modified := False; end; procedure TForm1.Nowy1Click(Sender: TObject); var odp:Integer; A: array[0..256] of Char; begin if RichEdit1.Modified = True then begin StrPCopy(A, 'Zapisać zmiany w '+ExtractFileName(plik)+'?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then Exit; end; RichEdit1.Clear; Form1.Caption := 'Fast Text 1.3.2 - Nowy Dokument'; plik:='Nowy Dokument'; end; procedure TForm1.Zamknij1Click(Sender: TObject); begin close; end; procedure TForm1.Zaznaczwszystko1Click(Sender: TObject); begin Richedit1.SelectAll; end; procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); var lNumber, lChar, lCharCount: integer; begin lNumber := RichEdit1.Perform(EM_LINEFROMCHAR, RichEdit1.SelStart, 0); lCharCount:= RichEdit1.Perform(EM_LINEINDEX, lNumber, 0); lChar := RichEdit1.SelStart- lCharCount; StatusBar1.Panels[0].Text:= IntToStr(lNumber + 1) +':'+ IntToStr(lChar + 1) +' ' + IntToStr(RichEdit1.SelStart); end; procedure TForm1.Kopiuj1Click(Sender: TObject); begin RichEdit1.CopyToClipboard; end; procedure TForm1.Wytnij1Click(Sender: TObject); begin RichEdit1.CutToClipboard; end; procedure TForm1.Wklej1Click(Sender: TObject); begin RichEdit1.PasteFromClipboard; end; procedure TForm1.OProgramie1Click(Sender: TObject); begin form2.showmodal; end; procedure TForm1.Cofnij1Click(Sender: TObject); begin Richedit1.Undo; end; procedure TForm1.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; begin with RichEdit1 do begin { jeśli jest zaznaczenie, to zaczyna szukać od momentu zaznaczonego tekstu w przeciwnym wypadku od początku tekstu} if SelLength <> 0 then StartPos := SelStart + SelLength else StartPos := 0; { ustala koniec przeszukiwanego tekstu } ToEnd := Length(Text) - StartPos; FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]); if FoundAt <> -1 then begin SetFocus; SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); end; end; end; procedure TForm1.Znajdtekst1Click(Sender: TObject); begin FindDialog1.Execute; end; procedure TForm1.Data1Click(Sender: TObject); begin RichEdit1.SelText := DateToStr(Date); end; procedure TForm1.Godzina1Click(Sender: TObject); begin RichEdit1.SelText := TimeToStr(Time); end; procedure TForm1.PasekNarzdzi1Click(Sender: TObject); begin ToolBar1.Visible:=not ToolBar1.Visible; {Poniższe pozwala zaznaczyć w itemie, czy menu jest widoczne, czy nie - tylko ustaw mu jakiś właściwy stan początkowy} if Sender is TMenuItem then TMenuItem(Sender).Checked:=ToolBar1.Visible; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var odp:Integer; A: array[0..256] of Char; begin CanClose := True; if RichEdit1.Modified = True then begin StrPCopy(A, 'Czy zapisać zmiany w projekcie?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then CanClose := False; end; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin Nowy1.Click; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin Otwrz1.Click; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin Zapiszjako1.Click; end; procedure TForm1.SpeedButton4Click(Sender: TObject); begin Wytnij1.Click; end; procedure TForm1.SpeedButton5Click(Sender: TObject); begin Kopiuj1.Click; end; procedure TForm1.SpeedButton6Click(Sender: TObject); begin Wklej1.Click; end; procedure TForm1.SpeedButton7Click(Sender: TObject); begin Drukuj1.Click; end; procedure TForm1.Ustawieniadruku1Click(Sender: TObject); begin PrinterSetupDialog1.Execute; end; procedure TForm1.Drukuj1Click(Sender: TObject); begin if PrintDialog1.Execute then Richedit1.Print(''); end; procedure TForm1.Wytnij2Click(Sender: TObject); begin Wytnij1.Click; end; procedure TForm1.Kopiuj2Click(Sender: TObject); begin Kopiuj1.Click; end; procedure TForm1.Wklej2Click(Sender: TObject); begin Wklej1.Click; end; procedure TForm1.Zaznaczwszystko2Click(Sender: TObject); begin zaznaczwszystko1.Click; end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.Caption := 'Fast Text 1.3.2 - Nowy Dokument'; plik:='nowy'; RichEdit1.Modified := False; ComboBox1.Items := Screen.Fonts; Combobox1.Text:= richedit1.font.name; end; procedure TForm1.RejestracjaProduktu1Click(Sender: TObject); begin shellexecute(Handle,'Open',PCHar('Rejestracja.exe'),nil,nil, SW_SHOWNORMAL); end; procedure TForm1.SpeedButton12Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment := taLeftJustify; end; procedure TForm1.SpeedButton13Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment := taCenter; end; procedure TForm1.SpeedButton14Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment := taRightJustify; end; procedure TForm1.SpeedButton8Click(Sender: TObject); begin ColorDialog1.Color := RichEdit1.SelAttributes.Color; if not ColorDialog1.Execute then Exit; RichEdit1.SelAttributes.Color := ColorDialog1.Color; end; end.
Tak przeglądam ten kod... Przeglądam... Gdzie Ty wstawiłeś to, co Ci napisał Kajetanek albo ja?! Nie widzę tu tego... Jak zatem ma Ci to działać?
to co było podane tu na forum usunełęm bo nie działało
:omg: No to dodaj ten usunięty kod (wyedytuj swój post z kodem)... Zobaczymy, co z tego wyjdzie :/
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, StdCtrls, AppEvnts, ToolWin, Buttons, Shellapi; type TForm1 = class(TForm) StatusBar1: TStatusBar; MainMenu1: TMainMenu; Plik1: TMenuItem; Edycja1: TMenuItem; Szukaj1: TMenuItem; Pomoc1: TMenuItem; RichEdit1: TRichEdit; Nowy1: TMenuItem; Otwrz1: TMenuItem; Zapiszjako1: TMenuItem; N1: TMenuItem; Cofnij1: TMenuItem; N2: TMenuItem; Wytnij1: TMenuItem; Kopiuj1: TMenuItem; Wklej1: TMenuItem; N3: TMenuItem; Zaznaczwszystko1: TMenuItem; OProgramie1: TMenuItem; Znajdtekst1: TMenuItem; SaveDialog1: TSaveDialog; OpenDialog1: TOpenDialog; ApplicationEvents1: TApplicationEvents; FindDialog1: TFindDialog; Wstaw1: TMenuItem; Drukuj1: TMenuItem; Ustawieniadruku1: TMenuItem; N4: TMenuItem; Zamknij1: TMenuItem; Data1: TMenuItem; Godzina1: TMenuItem; RejestracjaProduktu1: TMenuItem; ToolBar1: TToolBar; Widok1: TMenuItem; PasekNarzdzi1: TMenuItem; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; SpeedButton5: TSpeedButton; SpeedButton6: TSpeedButton; ToolButton1: TToolButton; ToolButton2: TToolButton; SpeedButton7: TSpeedButton; ToolButton3: TToolButton; ComboBox1: TComboBox; ToolButton4: TToolButton; ComboBox2: TComboBox; ToolButton5: TToolButton; SpeedButton9: TSpeedButton; SpeedButton10: TSpeedButton; SpeedButton11: TSpeedButton; SpeedButton12: TSpeedButton; SpeedButton13: TSpeedButton; SpeedButton14: TSpeedButton; ToolButton6: TToolButton; PrintDialog1: TPrintDialog; PrinterSetupDialog1: TPrinterSetupDialog; PopupMenu1: TPopupMenu; Wytnij2: TMenuItem; Kopiuj2: TMenuItem; Wklej2: TMenuItem; N5: TMenuItem; Zaznaczwszystko2: TMenuItem; ToolButton7: TToolButton; SpeedButton8: TSpeedButton; ColorDialog1: TColorDialog; procedure Zapiszjako1Click(Sender: TObject); procedure Otwrz1Click(Sender: TObject); procedure Nowy1Click(Sender: TObject); procedure Zamknij1Click(Sender: TObject); procedure Zaznaczwszystko1Click(Sender: TObject); procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); procedure Kopiuj1Click(Sender: TObject); procedure Wytnij1Click(Sender: TObject); procedure Wklej1Click(Sender: TObject); procedure OProgramie1Click(Sender: TObject); procedure Cofnij1Click(Sender: TObject); procedure FindDialog1Find(Sender: TObject); procedure Znajdtekst1Click(Sender: TObject); procedure Data1Click(Sender: TObject); procedure Godzina1Click(Sender: TObject); procedure PasekNarzdzi1Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); procedure SpeedButton6Click(Sender: TObject); procedure SpeedButton7Click(Sender: TObject); procedure Ustawieniadruku1Click(Sender: TObject); procedure Drukuj1Click(Sender: TObject); procedure Wytnij2Click(Sender: TObject); procedure Kopiuj2Click(Sender: TObject); procedure Wklej2Click(Sender: TObject); procedure Zaznaczwszystko2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure RejestracjaProduktu1Click(Sender: TObject); procedure SpeedButton12Click(Sender: TObject); procedure SpeedButton13Click(Sender: TObject); procedure SpeedButton14Click(Sender: TObject); procedure SpeedButton8Click(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure ComboBox2Change(Sender: TObject); procedure SpeedButton9Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; alert : integer; implementation uses Unit2; {$R *.dfm} var plik:String; procedure TForm1.Zapiszjako1Click(Sender: TObject); begin if not SaveDialog1.Execute then Exit; RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName(SaveDialog1.FileName); plik:=SaveDialog1.FileName; end; procedure TForm1.Otwrz1Click(Sender: TObject); var odp:Integer; A: array[0..256] of Char; begin if RichEdit1.Modified = True then begin StrPCopy(A, 'Zapisać zmiany w ' +ExtractFileName(plik)+'?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then Exit; end; if not OpenDialog1.Execute then Exit; RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName (OpenDialog1.FileName); plik:=OpenDialog1.FileName; RichEdit1.Modified := False; end; procedure TForm1.Nowy1Click(Sender: TObject); var odp:Integer; A: array[0..256] of Char; begin if RichEdit1.Modified = True then begin StrPCopy(A, 'Zapisać zmiany w '+ExtractFileName(plik)+'?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then Exit; end; RichEdit1.Clear; Form1.Caption := 'Fast Text 1.3.2 - Nowy Dokument'; plik:='Nowy Dokument'; end; procedure TForm1.Zamknij1Click(Sender: TObject); begin close; end; procedure TForm1.Zaznaczwszystko1Click(Sender: TObject); begin Richedit1.SelectAll; end; procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); var lNumber, lChar, lCharCount: integer; begin lNumber := RichEdit1.Perform(EM_LINEFROMCHAR, RichEdit1.SelStart, 0); lCharCount:= RichEdit1.Perform(EM_LINEINDEX, lNumber, 0); lChar := RichEdit1.SelStart- lCharCount; StatusBar1.Panels[0].Text:= IntToStr(lNumber + 1) +':'+ IntToStr(lChar + 1) +' ' + IntToStr(RichEdit1.SelStart); end; procedure TForm1.Kopiuj1Click(Sender: TObject); begin RichEdit1.CopyToClipboard; end; procedure TForm1.Wytnij1Click(Sender: TObject); begin RichEdit1.CutToClipboard; end; procedure TForm1.Wklej1Click(Sender: TObject); begin RichEdit1.PasteFromClipboard; end; procedure TForm1.OProgramie1Click(Sender: TObject); begin form2.showmodal; end; procedure TForm1.Cofnij1Click(Sender: TObject); begin Richedit1.Undo; end; procedure TForm1.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; begin with RichEdit1 do begin { jeśli jest zaznaczenie, to zaczyna szukać od momentu zaznaczonego tekstu w przeciwnym wypadku od początku tekstu} if SelLength <> 0 then StartPos := SelStart + SelLength else StartPos := 0; { ustala koniec przeszukiwanego tekstu } ToEnd := Length(Text) - StartPos; FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]); if FoundAt <> -1 then begin SetFocus; SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); end; end; end; procedure TForm1.Znajdtekst1Click(Sender: TObject); begin FindDialog1.Execute; end; procedure TForm1.Data1Click(Sender: TObject); begin RichEdit1.SelText := DateToStr(Date); end; procedure TForm1.Godzina1Click(Sender: TObject); begin RichEdit1.SelText := TimeToStr(Time); end; procedure TForm1.PasekNarzdzi1Click(Sender: TObject); begin ToolBar1.Visible:=not ToolBar1.Visible; {Poniższe pozwala zaznaczyć w itemie, czy menu jest widoczne, czy nie - tylko ustaw mu jakiś właściwy stan początkowy} if Sender is TMenuItem then TMenuItem(Sender).Checked:=ToolBar1.Visible; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var odp:Integer; A: array[0..256] of Char; begin CanClose := True; if RichEdit1.Modified = True then begin StrPCopy(A, 'Czy zapisać zmiany w projekcie?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then CanClose := False; end; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin Nowy1.Click; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin Otwrz1.Click; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin Zapiszjako1.Click; end; procedure TForm1.SpeedButton4Click(Sender: TObject); begin Wytnij1.Click; end; procedure TForm1.SpeedButton5Click(Sender: TObject); begin Kopiuj1.Click; end; procedure TForm1.SpeedButton6Click(Sender: TObject); begin Wklej1.Click; end; procedure TForm1.SpeedButton7Click(Sender: TObject); begin Drukuj1.Click; end; procedure TForm1.Ustawieniadruku1Click(Sender: TObject); begin PrinterSetupDialog1.Execute; end; procedure TForm1.Drukuj1Click(Sender: TObject); begin if PrintDialog1.Execute then Richedit1.Print(''); end; procedure TForm1.Wytnij2Click(Sender: TObject); begin Wytnij1.Click; end; procedure TForm1.Kopiuj2Click(Sender: TObject); begin Kopiuj1.Click; end; procedure TForm1.Wklej2Click(Sender: TObject); begin Wklej1.Click; end; procedure TForm1.Zaznaczwszystko2Click(Sender: TObject); begin zaznaczwszystko1.Click; end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.Caption := 'Fast Text 1.3.2 - Nowy Dokument'; plik:='nowy'; RichEdit1.Modified := False; ComboBox1.Items := Screen.Fonts; end; procedure TForm1.RejestracjaProduktu1Click(Sender: TObject); begin shellexecute(Handle,'Open',PCHar('Rejestracja.exe'),nil,nil, SW_SHOWNORMAL); end; procedure TForm1.SpeedButton12Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment := taLeftJustify; end; procedure TForm1.SpeedButton13Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment := taCenter; end; procedure TForm1.SpeedButton14Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment := taRightJustify; end; procedure TForm1.SpeedButton8Click(Sender: TObject); begin ColorDialog1.Color := RichEdit1.SelAttributes.Color; if not ColorDialog1.Execute then Exit; RichEdit1.SelAttributes.Color := ColorDialog1.Color; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin Combobox1.Text:= richedit1.font.name; end; procedure TForm1.ComboBox2Change(Sender: TObject); begin Combobox1.Text:= inttostr(richedit1.font.size); end; procedure TForm1.SpeedButton9Click(Sender: TObject); var styl: TFontStyles; begin styl := RichEdit1.SelAttributes.Style; if SpeedButton1.Down then include(styl, fsBold) else exclude(styl, fsbold); RichEdit1.SelAttributes.Style := styl; SpeedButton1.Down := not SpeedButton1.Down; end; end; end.
Ech, gadać jak do ściany... <_<
1. Nie wiem, czemu miałaby Ci nie działać procedure ode mnie... Niestety nie mogę teraz sprawdzić :( Robiłeś to metodą dwukliku? (Klikasz dwa razy na komponencie i się generuje kod.)
2. Co do wyboru czcionek (czyli Twojego punktu nr jeden): sprawdź sobie, jak w demkach Delphi (albo w sieci; czuję, że tego jest dużo) pobierają listę czcionek do ComboBox-a (i to do OnCreate formy wstaw). W metodzie TRichEdit OnStatusChange daj coś takiego:
var i:integer; for i:=0 to ComboBox1.Items.Count-1 {czy cos takiego} do if ComboBox1.Items[i]=RichEdit1.SelAttributes.Font.Name then ComboBox1.ItemIndex:=i;
Przypomnę, że jestem chwilowo upośledzony - znaczy nie mogę sprawdzić tego kodu - więc może to działać, ale nie musi ;)
@down:
Chciałeś napisać "wstawiasz?!" chyba ;)
Użytkownik pbnan edytował ten post 07 sierpień 2006, 18:35
A ja może dodam coś do siebie:
1. Po co tyle tego kodu tutaj wstawiacie! Używajcie przy dużych partiach CODEBOX.
2. Jest demo jak zrobić takie coś w folderze z delphi. Jest w katalogu Demos (tam gdzie jest delphi) -> i tam gdzies jest katalog RIchEdit i tam jest wszystko czego potrzebujesz :|
Użytkownik -=PcSA=- edytował ten post 07 sierpień 2006, 18:25
1. Popieram -=PcSA=- - CODEBOX plz!
2. http://ohp.magres.ne...rt=delphi10.php
Omg. Po kija wsadzasz przypisywanie combobox.text w onchange- jak juz to powinno byc tak:
procedure TForm1.ComboBox1Change(Sender: TObject); begin richedit1.font.name:= Combobox1.Text; end;
Zreszta jesli chcesz, aby w comboboxie byla nazwa fonta ktorego uzyto w zaznaczonym tekscie to powinienes wstawic kod ktory ci podalem w swoim pierwszym poscie w onselectionchange richedita.
teraz działa tylko jest jeden problem bo jak wybieram czcionkę to ona jest dla całego tekstu w richedit a ja bym chciał np. pisze jedną linijkę arialem i puzniej nowy wyraz ma inną czcionkę??
Richedit.SelAttributes ^^
Macie gotowy richedit w folderze "demos" tam gdzie macie zainstalowane delphi.
Tam sa czcionki pogrubienie itd.
wystarczy zobaczyc jak to jest zrobione i umiescic w swoim programie B)
if Toolbutton1.Down then CurrText.Style := CurrText.Style + [fsBold] else CurrText.Style := CurrText.Style - [fsBold]; end;
nie moge skompilowac tego kodu: [Error] Unit1.pas(34): Incompatible types
if Toolbutton1.Down then CurrText.Style := CurrText.Style + [fsBold] else CurrText.Style := CurrText.Style - [fsBold]; end;
nie moge skompilowac tego kodu: [Error] Unit1.pas(34): Incompatible types
A widziałeś może, co ja napisałem na ten temat? Robisz tak:
if Toolbutton1.Down then include(currtext.style, fsbold) else exclude(currtext.style, fsbold); end;
Hmmm... Ja też tak zaczynałem... Ale próbuj korzystać z tego, co Ci napisali inni...
Użytkownik pbnan edytował ten post 10 sierpień 2006, 19:24