mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 11:18:10 +02:00
TAChart: Less hints and warnings
This commit is contained in:
wp_xyz
parent
e0a6278dff
commit
7c644ae7b3
@ -22,6 +22,7 @@ object ChartEditorForm: TChartEditorForm
|
||||
HelpButton.Name = 'HelpButton'
|
||||
HelpButton.DefaultCaption = True
|
||||
CloseButton.Name = 'CloseButton'
|
||||
CloseButton.DefaultCaption = True
|
||||
CancelButton.Name = 'CancelButton'
|
||||
CancelButton.DefaultCaption = True
|
||||
TabOrder = 0
|
||||
|
||||
@ -393,7 +393,7 @@ var
|
||||
msg: String;
|
||||
C: TWinControl;
|
||||
begin
|
||||
if not Validate(Tree.Selected, msg, C) then
|
||||
if not Validate(Node, msg, C) then
|
||||
begin
|
||||
C.SetFocus;
|
||||
MessageDlg(msg, mtError, [mbOk], 0);
|
||||
|
||||
@ -6,7 +6,7 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Graphics,
|
||||
Forms, Controls, ExtCtrls, ColorBox, StdCtrls, Spin,
|
||||
Forms, Controls, ExtCtrls, StdCtrls, Spin,
|
||||
TALegend, TAGraph,
|
||||
ceFontFrame, ceSimpleBrushFrame, ceSimplePenFrame;
|
||||
|
||||
|
||||
@ -99,8 +99,8 @@ procedure TChartShapeBrushPenMarginsFrame.CalculatePreferredSize(
|
||||
var PreferredWidth, PreferredHeight: integer;
|
||||
WithThemeSpace: Boolean);
|
||||
var
|
||||
w: Integer;
|
||||
h: Integer;
|
||||
w: Integer = 0;
|
||||
h: Integer = 0;
|
||||
begin
|
||||
PreferredHeight := cmbShape.Height +
|
||||
gbBorder.BorderSpacing.Top + gbBorder.Height +
|
||||
|
||||
@ -19,7 +19,6 @@ type
|
||||
private
|
||||
FBrush: TBrush;
|
||||
FOnChange: TNotifyEvent;
|
||||
FOnVisibleChange: TNotifyEvent;
|
||||
procedure DoChange;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
|
||||
@ -62,6 +62,7 @@ object SimpleChartPenFrame: TSimpleChartPenFrame
|
||||
Constraints.MinWidth = 80
|
||||
Enabled = False
|
||||
ItemHeight = 16
|
||||
ItemIndex = 0
|
||||
TabOrder = 1
|
||||
OnChange = cbPenWidthChange
|
||||
end
|
||||
|
||||
@ -24,14 +24,13 @@ type
|
||||
private
|
||||
FPen: TChartPen;
|
||||
FOnChange: TNotifyEvent;
|
||||
FOnVisibleChange: TNotifyEvent;
|
||||
procedure DoChange;
|
||||
function GetWidthLeft: Integer;
|
||||
procedure SetWidthLeft(const AValue: Integer);
|
||||
protected
|
||||
procedure CalculatePreferredSize(
|
||||
var PreferredWidth, PreferredHeight: integer;
|
||||
WithThemeSpace: Boolean); override;
|
||||
{%H-}WithThemeSpace: Boolean); override;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
procedure GetData(APen: TChartPen);
|
||||
|
||||
@ -12,7 +12,7 @@
|
||||
unit TAAnimatedSource;
|
||||
|
||||
{$H+}
|
||||
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
interface
|
||||
|
||||
uses
|
||||
|
||||
@ -1,6 +1,7 @@
|
||||
unit TAChartCombos;
|
||||
|
||||
{$mode ObjFPC}{$H+}
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
|
||||
interface
|
||||
|
||||
@ -290,7 +291,7 @@ var
|
||||
bs: TBrushStyle;
|
||||
symwidth, symheight: Integer;
|
||||
R: TRect;
|
||||
penClr, brushClr: TColor;
|
||||
brushClr: TColor;
|
||||
isDisabled: Boolean;
|
||||
begin
|
||||
if Assigned(OnDrawItem) then
|
||||
@ -334,7 +335,6 @@ begin
|
||||
Canvas.Pen.Color := Canvas.Font.Color
|
||||
else
|
||||
Canvas.Pen.Color := FPenColor;
|
||||
penClr := Canvas.Pen.Color;
|
||||
Canvas.Pen.Width := 1;
|
||||
Canvas.Pen.Cosmetic := FCosmetic;
|
||||
case FMode of
|
||||
@ -363,7 +363,6 @@ begin
|
||||
Canvas.Line(x1, y1, x2, y2-1);
|
||||
Canvas.Line(x1, y2-1, x2, y1);
|
||||
end else
|
||||
// if not ((bs = bsSolid) and ([odFocused, odSelected] * AState <> [])) then
|
||||
begin
|
||||
Canvas.Pen.Color := clWindowText;
|
||||
Canvas.Rectangle(x1, y1, x2, y2);
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
unit TAChartExtentLink;
|
||||
|
||||
{$H+}
|
||||
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
interface
|
||||
|
||||
uses
|
||||
@ -68,7 +68,7 @@ procedure Register;
|
||||
implementation
|
||||
|
||||
uses
|
||||
SysUtils, Math, Types,
|
||||
SysUtils, Math,
|
||||
TAGeometry, TAChartAxis;
|
||||
|
||||
procedure Register;
|
||||
|
||||
@ -21,6 +21,7 @@
|
||||
unit TAChartListbox;
|
||||
|
||||
{$MODE objfpc}{$H+}
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
|
||||
{$IFDEF DARWIN}
|
||||
{$DEFINE USE_BITMAPS}
|
||||
|
||||
@ -12,7 +12,7 @@
|
||||
unit TACustomSeries;
|
||||
|
||||
{$H+}
|
||||
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
interface
|
||||
|
||||
uses
|
||||
|
||||
@ -13,6 +13,7 @@ unit TACustomSource;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
{$modeswitch advancedrecords}
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
|
||||
interface
|
||||
|
||||
@ -307,7 +308,7 @@ type
|
||||
procedure SetSortBy(AValue: TChartSortBy); override;
|
||||
procedure SetSortDir(AValue: TChartSortDir); override;
|
||||
procedure SetSortIndex(AValue: Cardinal); override;
|
||||
procedure SortNoNotify; inline;
|
||||
procedure SortNoNotify;
|
||||
property ItemInternal[AIndex: Integer]: PChartDataItem read GetItemInternal;
|
||||
property OnCompare: TChartSortCompare read FOnCompare write SetOnCompare;
|
||||
property Sorted: Boolean read FSorted write SetSorted default false;
|
||||
|
||||
@ -12,6 +12,7 @@
|
||||
unit TADataTools;
|
||||
|
||||
{$H+}
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
|
||||
interface
|
||||
|
||||
|
||||
@ -10,6 +10,7 @@
|
||||
unit TADiagram;
|
||||
|
||||
{$H+}
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
|
||||
interface
|
||||
|
||||
|
||||
@ -809,7 +809,7 @@ function WordWrap(const AText: String; ADrawer: IChartDrawer;
|
||||
var
|
||||
L: TStrings;
|
||||
words: TStrings;
|
||||
line, testline: String;
|
||||
line: String;
|
||||
s: String;
|
||||
w, ws, wspace: Integer;
|
||||
i: Integer;
|
||||
|
||||
@ -19,6 +19,7 @@
|
||||
unit TAExpressionSeries;
|
||||
|
||||
{$H+}
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
|
||||
interface
|
||||
|
||||
|
||||
@ -13,6 +13,7 @@
|
||||
unit TAFuncSeries;
|
||||
|
||||
{$H+}
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
|
||||
interface
|
||||
|
||||
|
||||
@ -10,6 +10,7 @@
|
||||
unit TAGeometry;
|
||||
|
||||
{$H+}
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
|
||||
interface
|
||||
|
||||
|
||||
@ -18,6 +18,7 @@
|
||||
unit TAGraph;
|
||||
|
||||
{$H+}
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
|
||||
interface
|
||||
|
||||
|
||||
@ -11,6 +11,7 @@
|
||||
unit TAMultiSeries;
|
||||
|
||||
{$H+}
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
|
||||
interface
|
||||
|
||||
|
||||
@ -19,6 +19,7 @@
|
||||
unit TASeries;
|
||||
|
||||
{$H+}
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
|
||||
interface
|
||||
|
||||
|
||||
@ -10,6 +10,7 @@
|
||||
}
|
||||
|
||||
unit TATools;
|
||||
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
|
||||
|
||||
interface
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user