pascal/lina-components
1
0
Fork 0
mirror of https://bitbucket.org/Dennis07/lina-components.git synced 2025-08-24 21:49:04 +02:00
Code Issues Actions Releases Activity

Version 1.0 DEV 1.16g

Browse Source 
Signed-off-by: Dennis07 <den.goehlert@t-online.de>
This commit is contained in:
Dennis07
2017-06-01 03:55:34 +02:00
parent bed8ad6595
commit 31d66a5d9f
14 changed files with 239 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Compiled/uAdvCtrls.dcu
View File

Binary file not shown.

BIN
Source/Compiled/uBase.dcu
View File

Binary file not shown.

BIN
Source/Compiled/uCalc.dcu
View File

Binary file not shown.

BIN
Source/Compiled/uFileCtrls.dcu
View File

Binary file not shown.

BIN
Source/Compiled/uFileTools.dcu
View File

Binary file not shown.

BIN
Source/Compiled/uFrmCtrls.dcu
View File

Binary file not shown.

BIN
Source/Compiled/uInit.dcu
View File

Binary file not shown.

BIN
Source/Compiled/uLocalMgr.dcu
View File

Binary file not shown.

BIN
Source/Compiled/uScriptMgr.dcu
View File

Binary file not shown.

BIN
Source/Compiled/uSysCtrls.dcu
View File

Binary file not shown.

BIN
Source/Compiled/uSysTools.dcu
View File

Binary file not shown.

BIN
Source/Compiled/uVirtObj.dcu
View File

Binary file not shown.

BIN
Source/Compiled/uWebCtrls.dcu
View File

Binary file not shown.

251
Source/uFrmCtrls.pas
View File

@@ -453,7 +453,7 @@ type
TDiagram = class;
TDiagramPadding = class
TDiagramPadding = class(TPersistent)
private
{ Private-Deklarationen }
FDiagram: TDiagram;
@@ -472,6 +472,7 @@ type
{ Public-Deklarationen }
constructor Create(ADiagram: TDiagram);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published
{ Published-Deklarationen }
property Top: Integer read FTop write SetTop default 0;
@@ -516,6 +517,7 @@ type
{ Public-Deklarationen }
constructor Create(Collection: TCollection); override;
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
property Data: TDiagramValueData read GetData write SetData;
published
{ Published-Deklarationen }
@@ -573,6 +575,7 @@ type
{ Public-Deklarationen }
constructor Create(ADiagram: TDiagram);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published
{ Published-Deklarationen }
property Visible: Boolean read FVisible write SetVisible default False;
@@ -597,14 +600,17 @@ type
FDiagram: TDiagram;
FValues: TDiagramScaleValueArtLines;
FCursor: TDiagramScaleCursorArtLines;
procedure SetValues(Value: TDiagramScaleValueArtLines);
procedure SetCursor(Value: TDiagramScaleCursorArtLines);
public
{ Public-Deklarationen }
constructor Create(ADiagram: TDiagram);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published
{ Published-Deklarationen }
property Values: TDiagramScaleValueArtLines read FValues write FValues;
property Cursor: TDiagramScaleCursorArtLines read FCursor write FCursor;
property Values: TDiagramScaleValueArtLines read FValues write SetValues;
property Cursor: TDiagramScaleCursorArtLines read FCursor write SetCursor;
end;
TDiagramScaleBar = class(TPersistent)
@@ -628,6 +634,7 @@ type
{ Public-Deklarationen }
constructor Create(ADiagram: TDiagram);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published
{ Published-Deklarationen }
property Visible: Boolean read FVisible write SetVisible default True;
@@ -659,6 +666,7 @@ type
{ Public-Deklarationen }
constructor Create(ADiagram: TDiagram);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published
{ Published-Deklarationen }
property Visible: Boolean read FVisible write SetVisible default False;
@@ -684,6 +692,7 @@ type
{ Public-Deklarationen }
constructor Create(ADiagram: TDiagram);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published
{ Published-Deklarationen }
property Visible: Boolean read FVisible write SetVisible default False;
@@ -699,16 +708,21 @@ type
FBar: TDiagramScaleBar;
FGrid: TDiagramScaleGrid;
FValues: TDiagramScaleValues;
procedure SetArtLines(Value: TDiagramScaleArtlines);
procedure SetBar(Value: TDiagramScaleBar);
procedure SetGrid(Value: TDiagramScaleGrid);
procedure SetValues(Value: TDiagramScaleValues);
public
{ Public-Deklarationen }
constructor Create(ADiagram: TDiagram);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published
{ Published-Deklarationen }
property ArtLines: TDiagramScaleArtlines read FArtLines write FArtLines;
property Bar: TDiagramScaleBar read FBar write FBar;
property Grid: TDiagramScaleGrid read FGrid write FGrid;
property Values: TDiagramScaleValues read FValues write FValues;
property ArtLines: TDiagramScaleArtlines read FArtLines write SetArtLines;
property Bar: TDiagramScaleBar read FBar write SetBar;
property Grid: TDiagramScaleGrid read FGrid write SetGrid;
property Values: TDiagramScaleValues read FValues write SetValues;
end;
TDiagramCaption = class(TPersistent)
@@ -728,6 +742,7 @@ type
{ Public-Deklarationen }
constructor Create(ADiagram: TDiagram);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published
{ Published-Deklarationen }
property Text: TCaption read FText write SetText;
@@ -753,6 +768,7 @@ type
{ Public-Deklarationen }
constructor Create(ADiagram: TDiagram);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published
{ Published-Deklarationen }
property Enabled: Boolean read FEnabled write SetEnabled default False;
@@ -780,6 +796,7 @@ type
{ Public-Deklarationen }
constructor Create(ADiagram: TDiagram);
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published
{ Published-Deklarationen }
property Visible: Boolean read FVisible write SetVisible default False;
@@ -813,6 +830,8 @@ type
procedure SetValues(Value: TDiagramValues);
procedure SetPadding(Value: TDiagramPadding);
procedure SetScale(Value: TDiagramScale);
procedure SetAutoColors(Value: TDiagramAutoColors);
procedure SetTrendLine(Value: TDiagramTrendLine);
protected
{ Protected-Deklarationen }
procedure Paint; override;
@@ -881,8 +900,8 @@ type
property Values: TDiagramValues read FValues write SetValues;
property Padding: TDiagramPadding read FPadding write SetPadding;
property Scale: TDiagramScale read FScale write SetScale;
property AutoColors: TDiagramAutoColors read FAutoColors write FAutoColors;
property TrendLine: TDiagramTrendLine read FTrendLine write FTrendLine;
property AutoColors: TDiagramAutoColors read FAutoColors write SetAutoColors;
property TrendLine: TDiagramTrendLine read FTrendLine write SetTrendLine;
end;
{ ShowMessage-Varianten }
@@ -2321,6 +2340,21 @@ begin
FDiagram.Repaint;
end;
procedure TDiagramPadding.Assign(Source: TPersistent);
begin
if Source is TDiagramPadding then
begin
Top := (Source as TDiagramPadding).Top;
Bottom := (Source as TDiagramPadding).Bottom;
Left := (Source as TDiagramPadding).Left;
Right := (Source as TDiagramPadding).Right;
Axis := (Source as TDiagramPadding).Axis;
end else
begin
inherited;
end;
end;
{ ----------------------------------------------------------------------------
TDiagramValue
---------------------------------------------------------------------------- }
@@ -2417,6 +2451,23 @@ begin
Result:= FName + ' (' + IntToStr(FValue) + ')';
end;
procedure TDiagramValue.Assign(Source: TPersistent);
begin
if Source is TDiagramValue then
begin
Name := (Source as TDiagramValue).Name;
Color := (Source as TDiagramValue).Color;
Value := (Source as TDiagramValue).Value;
Visible := (Source as TDiagramValue).Visible;
BorderStyle := (Source as TDiagramValue).BorderStyle;
BorderWidth := (Source as TDiagramValue).BorderWidth;
BorderColor := (Source as TDiagramValue).BorderColor;
end else
begin
inherited;
end;
end;
{ ----------------------------------------------------------------------------
TDiagramValues
---------------------------------------------------------------------------- }
@@ -2585,6 +2636,20 @@ begin
FDiagram.Repaint;
end;
procedure TDiagramScaleValueArtLines.Assign(Source: TPersistent);
begin
if Source is TDiagramScaleValueArtLines then
begin
Visible := (Source as TDiagramScaleValueArtLines).Visible;
Color := (Source as TDiagramScaleValueArtLines).Color;
Width := (Source as TDiagramScaleValueArtLines).Width;
Dotted := (Source as TDiagramScaleValueArtLines).Dotted;
end else
begin
inherited;
end;
end;
{ ----------------------------------------------------------------------------
TDiagramScaleCursorArtLines
---------------------------------------------------------------------------- }
@@ -2620,6 +2685,30 @@ begin
inherited;
end;
procedure TDiagramScaleArtLines.SetValues(Value: TDiagramScaleValueArtLines);
begin
FValues.Assign(Value);
FDiagram.Repaint;
end;
procedure TDiagramScaleArtLines.SetCursor(Value: TDiagramScaleCursorArtLines);
begin
FCursor.Assign(Value);
FDiagram.Repaint;
end;
procedure TDiagramScaleArtLines.Assign(Source: TPersistent);
begin
if Source is TDiagramScaleArtLines then
begin
Values.Assign((Source as TDiagramScaleArtLines).Values);
Cursor.Assign((Source as TDiagramScaleArtLines).Cursor);
end else
begin
inherited;
end;
end;
{ ----------------------------------------------------------------------------
TDiagramScaleBar
---------------------------------------------------------------------------- }
@@ -2682,6 +2771,22 @@ begin
FDiagram.Repaint;
end;
procedure TDiagramScaleBar.Assign(Source: TPersistent);
begin
if Source is TDiagramScaleBar then
begin
Visible := (Source as TDiagramScaleBar).Visible;
Color := (Source as TDiagramScaleBar).Color;
Width := (Source as TDiagramScaleBar).Width;
RulerWidth := (Source as TDiagramScaleBar).RulerWidth;
RulerGap := (Source as TDiagramScaleBar).RulerGap;
RulerNumbers := (Source as TDiagramScaleBar).RulerNumbers;
end else
begin
inherited;
end;
end;
{ ----------------------------------------------------------------------------
TDiagramScaleGrid
---------------------------------------------------------------------------- }
@@ -2744,6 +2849,22 @@ begin
FDiagram.Repaint;
end;
procedure TDiagramScaleGrid.Assign(Source: TPersistent);
begin
if Source is TDiagramScaleGrid then
begin
Visible := (Source as TDiagramScaleGrid).Visible;
Dotted := (Source as TDiagramScaleGrid).Dotted;
Lines := (Source as TDiagramScaleGrid).Lines;
Color := (Source as TDiagramScaleGrid).Color;
Width := (Source as TDiagramScaleGrid).Width;
Gap := (Source as TDiagramScaleGrid).Gap;
end else
begin
inherited;
end;
end;
{ ----------------------------------------------------------------------------
TDiagramScaleValues
---------------------------------------------------------------------------- }
@@ -2782,6 +2903,19 @@ begin
FDiagram.Repaint;
end;
procedure TDiagramScaleValues.Assign(Source: TPersistent);
begin
if Source is TDiagramScaleValues then
begin
Visible := (Source as TDiagramScaleValues).Visible;
Font.Assign((Source as TDiagramScaleValues).Font);
AutoColor := (Source as TDiagramScaleValues).AutoColor;
end else
begin
inherited;
end;
end;
{ ----------------------------------------------------------------------------
TDiagramScale
---------------------------------------------------------------------------- }
@@ -2805,6 +2939,44 @@ begin
inherited;
end;
procedure TDiagramScale.SetArtLines(Value: TDiagramScaleArtlines);
begin
FArtLines.Assign(Value);
FDiagram.Repaint;
end;
procedure TDiagramScale.SetBar(Value: TDiagramScaleBar);
begin
FBar.Assign(Value);
FDiagram.Repaint;
end;
procedure TDiagramScale.SetGrid(Value: TDiagramScaleGrid);
begin
FGrid.Assign(Value);
FDiagram.Repaint;
end;
procedure TDiagramScale.SetValues(Value: TDiagramScaleValues);
begin
FValues.Assign(Value);
FDiagram.Repaint;
end;
procedure TDiagramScale.Assign(Source: TPersistent);
begin
if Source is TDiagramScale then
begin
ArtLines.Assign((Source as TDiagramScale).ArtLines);
Bar.Assign((Source as TDiagramScale).Bar);
Grid.Assign((Source as TDiagramScale).Grid);
Values.Assign((Source as TDiagramScale).Values);
end else
begin
inherited;
end;
end;
{ ----------------------------------------------------------------------------
TDiagramCaption
---------------------------------------------------------------------------- }
@@ -2850,6 +3022,20 @@ begin
FDiagram.Repaint;
end;
procedure TDiagramCaption.Assign(Source: TPersistent);
begin
if Source is TDiagramCaption then
begin
Text := (Source as TDiagramCaption).Text;
Font.Assign((Source as TDiagramCaption).Font);
Alignment := (Source as TDiagramCaption).Alignment;
VerticalAlignment := (Source as TDiagramCaption).VerticalAlignment;
end else
begin
inherited;
end;
end;
{ ----------------------------------------------------------------------------
TDiagramAutoColors
---------------------------------------------------------------------------- }
@@ -2894,6 +3080,20 @@ begin
FDiagram.Repaint;
end;
procedure TDiagramAutoColors.Assign(Source: TPersistent);
begin
if Source is TDiagramAutoColors then
begin
Enabled := (Source as TDiagramAutoColors).Enabled;
Positive := (Source as TDiagramAutoColors).Positive;
Zero := (Source as TDiagramAutoColors).Zero;
Negative := (Source as TDiagramAutoColors).Negative;
end else
begin
inherited;
end;
end;
{ ----------------------------------------------------------------------------
TDiagramTrendLine
---------------------------------------------------------------------------- }
@@ -2944,6 +3144,21 @@ begin
FDiagram.Repaint;
end;
procedure TDiagramTrendLine.Assign(Source: TPersistent);
begin
if Source is TDiagramTrendLine then
begin
Visible := (Source as TDiagramTrendLine).Visible;
Color := (Source as TDiagramTrendLine).Color;
Dotted := (Source as TDiagramTrendLine).Dotted;
Width := (Source as TDiagramTrendLine).Width;
Method := (Source as TDiagramTrendLine).Method;
end else
begin
inherited;
end;
end;
{ ----------------------------------------------------------------------------
TDiagram
---------------------------------------------------------------------------- }
@@ -2980,7 +3195,7 @@ end;
procedure TDiagram.SetCaption(Value: TDiagramCaption);
begin
FCaption := Value;
FCaption.Assign(Value);
Repaint;
end;
@@ -2992,13 +3207,13 @@ end;
procedure TDiagram.SetValues(Value: TDiagramValues);
begin
FValues := Value;
FValues.Assign(Value);
Repaint;
end;
procedure TDiagram.SetPadding(Value: TDiagramPadding);
begin
FPadding := Value;
FPadding.Assign(Value);
Repaint;
end;
@@ -3008,6 +3223,18 @@ begin
Repaint;
end;
procedure TDiagram.SetAutoColors(Value: TDiagramAutoColors);
begin
FAutoColors.Assign(Value);
Repaint;
end;
procedure TDiagram.SetTrendLine(Value: TDiagramTrendLine);
begin
FTrendLine.Assign(Value);
Repaint;
end;
procedure TDiagram.PropertyChange(Sender: TObject);
begin
Repaint;