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

Nov 2016

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5302 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-11-03 12:59:44 +00:00
parent 1e7013f67b
commit 4ca7a5e80b
2 changed files with 9 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
components/scrolltext/scrollingtext.pas
View File

@ -253,13 +253,6 @@ begin
//skip empty lines //skip empty lines
if Length(s) > 0 then if Length(s) > 0 then
begin
//check for bold format token
if s[1] = '#' then
begin
s := copy(s, 2, Length(s) - 1);
FBuffer.Canvas.Font.Style := [fsBold];
end;
begin begin
//check for url //check for url
if (Pos('http://', s) <> 0) if (Pos('http://', s) <> 0)
@ -267,18 +260,14 @@ begin
OR (Pos('mailto:', s) <> 0) then OR (Pos('mailto:', s) <> 0) then
begin begin
FBuffer.Canvas.Font := FLinkFont; FBuffer.Canvas.Font := FLinkFont;
if i = FActiveLine then if i = FActiveLine then FBuffer.Canvas.Font.Style := FBuffer.Canvas.Font.Style+[fsUnderline];
begin end;
FBuffer.Canvas.Font.Style := FBuffer.Canvas.Font.Style+[fsUnderline]; //check for bold format token
//FBuffer.Canvas.Font.Color := clRed; if s[1] = '#' then
end begin
else s := copy(s, 2, Length(s) - 1);
//FBuffer.Canvas.Font.Color := clBlue; FBuffer.Canvas.Font.Style := [fsBold];
end
else FBuffer.Canvas.Font := FFont;
end; end;
w := FBuffer.Canvas.TextWidth(s); w := FBuffer.Canvas.TextWidth(s);
FBuffer.Canvas.TextOut((FBuffer.Width - w) div 2, FOffset + i * FLineHeight, s); FBuffer.Canvas.TextOut((FBuffer.Width - w) div 2, FOffset + i * FLineHeight, s);
end; end;

2
components/scrolltext/scrolltext.lpk
View File

@ -14,7 +14,7 @@
</CompilerOptions> </CompilerOptions>
<Description Value="Graphic surface that scrolls (when Active=True) that can be loaded with a Stringlist"/> <Description Value="Graphic surface that scrolls (when Active=True) that can be loaded with a Stringlist"/>
<License Value="LGPL"/> <License Value="LGPL"/>
<Version Major="1" Minor="1"/> <Version Major="1" Minor="1" Release="1"/>
<Files Count="2"> <Files Count="2">
<Item1> <Item1>
<Filename Value="scrollingtext.pas"/> <Filename Value="scrollingtext.pas"/>