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

jvcllaz: Fix lower end of TJvChart running away when the XStartOffset is changed.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7181 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-11-10 22:22:11 +00:00
parent 2b16ccc6bf
commit 4f3966db81
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/jvcllaz/examples/JvChartDemo/jvchartdemofm.lfm
View File

@ -2,10 +2,10 @@ object JvChartDemoForm: TJvChartDemoForm
Left = 436 Left = 436
Height = 453 Height = 453
Top = 278 Top = 278
Width = 789 Width = 785
Caption = 'JEDI JvChart Demo' Caption = 'JEDI JvChart Demo'
ClientHeight = 433 ClientHeight = 433
ClientWidth = 789 ClientWidth = 785
Color = clWindow Color = clWindow
Menu = MainMenu1 Menu = MainMenu1
OnCreate = FormCreate OnCreate = FormCreate
@ -17,7 +17,7 @@ object JvChartDemoForm: TJvChartDemoForm
Left = 164 Left = 164
Height = 398 Height = 398
Top = 35 Top = 35
Width = 625 Width = 621
Align = alClient Align = alClient
Options.XAxisValuesPerDivision = 10 Options.XAxisValuesPerDivision = 10
Options.XAxisLabelAlignment = taLeftJustify Options.XAxisLabelAlignment = taLeftJustify
@ -61,10 +61,10 @@ object JvChartDemoForm: TJvChartDemoForm
Left = 0 Left = 0
Height = 35 Height = 35
Top = 0 Top = 0
Width = 789 Width = 785
Align = alTop Align = alTop
ClientHeight = 35 ClientHeight = 35
ClientWidth = 789 ClientWidth = 785
Font.CharSet = ANSI_CHARSET Font.CharSet = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13

4
components/jvcllaz/run/JvCustomControls/jvchart.pas
View File

@ -89,7 +89,8 @@ located at http://jvcl.delphi-jedi.org
To do: To do:
- Drawing of legend at right (clChartLegendRight) not implemented - Drawing of legend at right (clChartLegendRight) not implemented
- Print-out used screen coordinates - Printing uses screen coordinates.
- Update to changes made in the object inspector.
-----------------------------------------------------------------------------} -----------------------------------------------------------------------------}
// $Id$ // $Id$
@ -2370,6 +2371,7 @@ begin
if FYStartOffset <> Offset then if FYStartOffset <> Offset then
begin begin
FYStartOffset := Offset; FYStartOffset := Offset;
if Assigned(FOwner) then FOwner.CalcYEnd;
NotifyOptionsChange; NotifyOptionsChange;
end; end;
end; end;