mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-10 19:56:21 +02:00
fpvectorial: minor improvements
git-svn-id: trunk@40799 -
This commit is contained in:
parent
83c6aa7374
commit
140415c25d
@ -637,7 +637,7 @@ type
|
||||
protected
|
||||
FElements: TFPList; // of TvEntity
|
||||
public
|
||||
SetPenBrushAndFontElements: TvSetPenBrushAndFontElements;
|
||||
SetPenBrushAndFontElements: TvSetPenBrushAndFontElements;// This is not currently implemented!
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
//
|
||||
@ -1827,7 +1827,16 @@ function TvText.GenerateDebugTree(ADestRoutine: TvDebugAddItemProc;
|
||||
var
|
||||
lStr: string;
|
||||
begin
|
||||
lStr := Format('[%s] Name=%s X=%f Y=%f Text=%s', [Self.ClassName, Name, X, Y, Value.Text]);
|
||||
lStr := Format('[%s] Name=%s X=%f Y=%f Text="%s" Color=%s Size=%d Name=%s Orientation=%f Bold=%s Italic=%s Underline=%s StrikeThrough=%s',
|
||||
[
|
||||
Self.ClassName, Name, X, Y, Value.Text,
|
||||
GenerateDebugStrForFPColor(Font.Color),
|
||||
Font.Size, Font.Name, Font.Orientation,
|
||||
BoolToStr(Font.Bold),
|
||||
BoolToStr(Font.Italic),
|
||||
BoolToStr(Font.Underline),
|
||||
BoolToStr(Font.StrikeThrough)
|
||||
]);
|
||||
Result := ADestRoutine(lStr, APageItem);
|
||||
end;
|
||||
|
||||
|
@ -773,6 +773,12 @@ begin
|
||||
ADestEntity.Font.Color := ReadSVGColor(AValue);
|
||||
Result := Result + [spbfFontColor];
|
||||
end
|
||||
// But sometimes SVG also uses stroke! Oh no...
|
||||
else if AKey = 'stroke' then
|
||||
begin
|
||||
ADestEntity.Font.Color := ReadSVGColor(AValue);
|
||||
Result := Result + [spbfFontColor];
|
||||
end
|
||||
else if AKey = 'fill-opacity' then
|
||||
ADestEntity.Font.Color.Alpha := StrToInt(AValue)*$101
|
||||
else if AKey = 'font-size' then
|
||||
|
Loading…
Reference in New Issue
Block a user