mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-01 03:41:41 +02:00
TAChart: Fix typo in TChartComboBox.GetSelectedPenStyle
git-svn-id: trunk@54098 -
This commit is contained in:
parent
b0c1d9e402
commit
23a786cefb
@ -1075,7 +1075,7 @@ end;
|
||||
|
||||
procedure TChartComboBox.SetSelectedPenWidth(const AValue: Integer);
|
||||
begin
|
||||
ItemIndex := EnsureRange(FPenWidth - 1, 0, Items.Count - 1);
|
||||
ItemIndex := EnsureRange(AValue - 1, 0, Items.Count - 1);
|
||||
end;
|
||||
|
||||
procedure TChartCombobox.SetSelectedPointerStyle(const AValue: TSeriesPointerStyle);
|
||||
|
Loading…
Reference in New Issue
Block a user