Difference between revisions of "TSynEdit/pl"
From Free Pascal wiki
Jump to navigationJump to search (Tłumaczenie na j. polski) |
m (poprawka) |
||
Line 3: | Line 3: | ||
'''TSynEdit''' [[image:tsynedit.png]] to komponent edytora tekstu, który umożliwia między innymi [[Syntax highlighting|podświetlanie składni]] edytowanego tekstu. Jest częścią pakietu [[SynEdit]] i jest dostępny w [[SynEdit tab|zakładce SynEdit]] w [[Component Palette|Palecie Komponentów]]. | '''TSynEdit''' [[image:tsynedit.png]] to komponent edytora tekstu, który umożliwia między innymi [[Syntax highlighting|podświetlanie składni]] edytowanego tekstu. Jest częścią pakietu [[SynEdit]] i jest dostępny w [[SynEdit tab|zakładce SynEdit]] w [[Component Palette|Palecie Komponentów]]. | ||
− | |||
− | |||
TSynEdit jest używany w połączeniu z konkretnym podświetlaczem składni, który jest połączony poprzez właściwość ''Highlighter'' komponentu TSynEdit. | TSynEdit jest używany w połączeniu z konkretnym podświetlaczem składni, który jest połączony poprzez właściwość ''Highlighter'' komponentu TSynEdit. | ||
Latest revision as of 00:44, 7 November 2023
│
English (en) │
suomi (fi) │
français (fr) │
polski (pl) │
русский (ru) │
TSynEdit to komponent edytora tekstu, który umożliwia między innymi podświetlanie składni edytowanego tekstu. Jest częścią pakietu SynEdit i jest dostępny w zakładce SynEdit w Palecie Komponentów.
TSynEdit jest używany w połączeniu z konkretnym podświetlaczem składni, który jest połączony poprzez właściwość Highlighter komponentu TSynEdit.
Przykład
W poniższym przykładzie pokazano TSynEdit użyte z TSynHTMLSyn. Wyniki są wyświetlane w formacie HTML przy użyciu TIpHtmlPanel.
unit TipHtmlTest;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, IpHtml, SynHighlighterHTML, SynHighlighterAny,
SynEdit, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;
const
htmfile = 'tiphtmltestdata.html';
type
TTipHtmlForm = class(TForm)
IpHtmlPanel1: TIpHtmlPanel;
Splitter1: TSplitter;
Memo1: TSynEdit;
SynHTMLSyn1: TSynHTMLSyn;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure MemoChange(Sender: TObject);
protected
public
procedure ShowText( const txt: string );
end;
var
TipHtmlForm: TTipHtmlForm;
implementation
{$R *.lfm}
procedure TTipHtmlForm.FormCreate(Sender: TObject);
begin
if FileExists( htmfile ) then
Memo1.Lines.LoadFromFile( htmfile )
else
Memo1.Lines.Text := '<html><head><title>tipmemo</title></head><body><h1>tipmemo</h1>See <b>' +htmfile + '</b></body></html>';
MemoChange( nil );
end;
procedure TTipHtmlForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
Memo1.Lines.SaveToFile( htmfile );
end;
procedure TTipHtmlForm.MemoChange(Sender: TObject);
begin
ShowText( Memo1.Lines.Text );
end;
procedure TTipHtmlForm.ShowText( const txt: string );
var
fs: TStringStream;
pHTML: TIpHtml;
begin
try
fs := TStringStream.Create( txt );
try
pHTML:=TIpHtml.Create; // Uwaga: zostanie automatycznie zwolniony przez IpHtmlPanel1
pHTML.LoadFromStream(fs);
finally
fs.Free;
end;
IpHtmlPanel1.SetHtml( pHTML );
Caption := IpHtmlPanel1.Title;
except
on E: Exception do begin
MessageDlg( 'Error: '+E.Message, mtError, [mbCancel], 0 );
end;
end;
end;