pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fixing win32 getattributes method, updating test sample

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@844 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-06-14 17:33:35 +00:00
parent a5c4b4e9bf
commit 1ab05002a9
6 changed files with 140 additions and 285 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/richmemo/samples/testsimple/unit1.pas
View File

@ -45,10 +45,14 @@ implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
fp : TFontParams;
begin
Caption := Format('sel start %d, sel length %d', [RichMemo1.SelStart, RichMemo1.SelLength]);
RichMemo1.SetTextAttributes(
RichMemo1.SelStart, RichMemo1.SelLength, GetFontParams(clRed, [fsBold]) );
RichMemo1.GetTextAttributes(RichMemo1.SelStart, fp);
fp.Color := clRed;
fp.Style := [fsBold];
RichMemo1.SetTextAttributes(RichMemo1.SelStart, RichMemo1.SelLength, fp);
end;
procedure TForm1.Button2Click(Sender: TObject);