paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 10:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Improved rendering of html demo in Linux dark mode.

Browse Source
This commit is contained in:
wp_xyz 2022-05-13 16:08:35 +02:00
parent f026b9c30e
commit 8a33c15bd5
3 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/html/TAChart_html.ex-meta
View File

@ -1,5 +1,5 @@
{ "TAChart_html" : {
"Category" : "TAChart",
"Keywords" : ["TAChart", "html", "export", "svg", "Needs Work"],
"Description" : "Draws a chart with HTML formatted text to enable sub-/superscripts or components although its not clear why it does so. Can save or export that chart in WMF (Windows only) or SVG. Can copy that chart, as a bitmap to clipboard (but see below).\n\nHas problems on Linux (at least).\n1. When click the SVG button, fails to load a FreeType font when running in the IDE. OK when standalone.\n2. When click \"copy to clipboard\", a crash is triggered (it should copy a bitmap image).\n3. Horiz size needs to be increased."}
"Description" : "Draws a chart with HTML formatted text to enable sub-/superscripts or unusually colored text. Can save or export that chart in WMF (Windows only) or SVG. Can copy that chart, as a bitmap to clipboard (but see below).\n\nHas problems on some Linux versions.\n1. When click the SVG button, fails to load a FreeType font when running in the IDE. OK when standalone. This is due to a defective FreeType font contained in some Linux versions and which our FreeType libs cannot cope with.\n2. When click \"copy to clipboard\", a crash is triggered (it should copy a bitmap image)."}
}

2
components/tachart/demo/html/main.lfm
View File

@ -182,7 +182,6 @@ object MainForm: TMainForm
Title.TextFormat = tfHTML
OnMarkToText = ChartAxisList1MarkToText
end>
BackColor = clWhite
Foot.Alignment = taLeftJustify
Foot.Brush.Color = clBtnFace
Foot.Brush.Style = bsClear
@ -210,7 +209,6 @@ object MainForm: TMainForm
Toolset = ChartTools
Align = alClient
BorderSpacing.Around = 8
Color = clWhite
object DataSeries: TLineSeries
Title = '<font color="red">Measured data points</font>'
LinePen.Color = clRed

1
components/tachart/demo/html/main.pas
View File

@ -178,6 +178,7 @@ begin
BottomPanel.Constraints.MinWidth := CbRotateXLabels.Left + CbRotateXLabels.Width +
BtnCopyToClipBoard.Width;
Constraints.MinWidth := BottomPanel.Constraints.MinWidth + BottomPanel.BorderSpacing.Left * 2;
Width := 0; // enforce constraints
end;
procedure TMainForm.FormCreate(Sender: TObject);