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.16d

Browse Source 
Signed-off-by: Dennis07 <den.goehlert@t-online.de>
This commit is contained in:
Dennis07
2017-05-27 18:59:46 +02:00
parent c5268b9088
commit b76acc8ab0
26 changed files with 37 additions and 40 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.

2
Source/uAdvCtrls.pas
View File

@@ -3,7 +3,7 @@ unit uAdvCtrls;
//////////////////////////////////////
/// Lina Advanced Controls Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}

4
Source/uBase.pas
View File

@@ -3,7 +3,7 @@ unit uBase;
//////////////////////////////////////
/// Lina Base Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@@ -25,7 +25,7 @@ const
{ Komponenten-Informationen }
ComponentsPage = 'Lina';
ComponentsVersion = '1.0';
ComponentsCopyright = 'Copyright � 2016';
ComponentsCopyright = 'Copyright � 2017';
ComponentsAuthor = 'Dennis G�hlert a.o.';
ComponentsHomepage = '';

2
Source/uCalc.pas
View File

@@ -3,7 +3,7 @@ unit uCalc;
//////////////////////////////////////
/// Lina Calculator Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}

2
Source/uFileCtrls.pas
View File

@@ -3,7 +3,7 @@ unit uFileCtrls;
//////////////////////////////////////
/// Lina File Controls Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}

2
Source/uFileTools.pas
View File

@@ -3,7 +3,7 @@ unit uFileTools;
//////////////////////////////////////
/// Lina File Tools Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}

49
Source/uFrmCtrls.pas
View File

@@ -3,7 +3,7 @@ unit uFrmCtrls;
//////////////////////////////////////
/// Lina Form Controls Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@@ -517,6 +517,9 @@ type
private
{ Private-Deklarationen }
FDiagram: TDiagram;
protected
{ Protected-Deklarationen }
procedure Update(Item: TCollectionItem); override;
public
{ Public-Deklarationen }
constructor Create(ADiagram: TDiagram);
@@ -2350,11 +2353,17 @@ begin
inherited;
end;
procedure TDiagramValues.Update(Item: TCollectionItem);
begin
inherited;
FDiagram.Repaint;
end;
function TDiagramValues.MinValue: Integer;
var
Index: Integer;
begin
if Count = 0 then
if VisibleCount = 0 then
begin
Result := 0;
end else
@@ -2374,7 +2383,7 @@ function TDiagramValues.MaxValue: Integer;
var
Index: Integer;
begin
if Count = 0 then
if VisibleCount = 0 then
begin
Result := 0;
end else
@@ -3224,7 +3233,7 @@ begin
begin
Brush.Color := (Values.Items[Index] as TDiagramValue).Color;
end;
Ellipse(ValueLeft(Index),ValueHeight((Values.Items[Index] as TDiagramValue).Value) - ValueSpace div 2,ValueLeft(Index) + ValueWidth,ValueHeight((Values.Items[Index] as TDiagramValue).Value) + ValueSpace div 2);
Ellipse(ValueLeft(Index),ValueHeight((Values.Items[Index] as TDiagramValue).Value) - ValueWidth div 2,ValueLeft(Index) + ValueWidth,ValueHeight((Values.Items[Index] as TDiagramValue).Value) + ValueWidth div 2);
end;
end;
@@ -3277,15 +3286,15 @@ function TDiagram.ZeroHeight: Integer;
begin
if Values.MinValue >= 0 then
begin
Result := Height - Scale.Bar.Width div 2;
Result := Height - Scale.Bar.Width div 2 - Padding.Bottom;
end else
begin
if Values.MaxValue <= 0 then
begin
Result := Scale.Bar.Width div 2;
Result := Scale.Bar.Width div 2 + Padding.Top;
end else
begin
Result := Round(Height / (Values.MaxValue - Values.MinValue) * Values.MaxValue);
Result := Padding.Top - Padding.Bottom + Round((Height - Padding.Top + Padding.Bottom) / (Values.MaxValue - Values.MinValue) * Values.MaxValue);
end;
end;
end;
@@ -3297,12 +3306,12 @@ begin
Result := ZeroHeight;
end else
begin
if (Values.MinValue >= 0) or (Values.MaxValue > 0) then
if Value > 0 then
begin
Result := ZeroHeight - Round(ZeroHeight / Values.MaxValue * Value);
Result := ZeroHeight - Round(Value / Values.MaxValue * (ZeroHeight - Padding.Top));
end else
begin
Result := ZeroHeight + Round((Height - ZeroHeight) / Values.MinValue * Value);
Result := ZeroHeight + Round(Value / Values.MinValue * (Height - ZeroHeight - Padding.Bottom));
end;
end;
end;
@@ -3314,24 +3323,12 @@ begin
Result := 0;
end else
begin
if Values.MinValue >= 0 then
if Height < ZeroHeight then
begin
Result := Trunc((1 - Height / ZeroHeight) * Values.MaxValue) + 1;
Result := Trunc((ZeroHeight - Height) * (Values.MaxValue / (ZeroHeight - Padding.Top)));
end else
begin
if Values.MaxValue <= 0 then
begin
Result := Trunc(Height / (Self.Height - ZeroHeight) * Values.MinValue) - 1;
end else
begin
if Height > ZeroHeight then
begin
Result := Values.MinValue + Trunc((1 - Height / Self.Height) * (Values.MaxValue - Values.MinValue));
end else
begin
Result := Values.MinValue + Trunc((1 - Height / Self.Height) * (Values.MaxValue - Values.MinValue)) + 1;
end;
end;
Result := Trunc((Height - ZeroHeight) * (Values.MinValue / (Self.Height - Padding.Bottom - ZeroHeight)));
end;
end;
end;
@@ -3341,7 +3338,7 @@ var
ValueIndex: Integer;
begin
Result := ZeroWidth + Padding.Left;
for ValueIndex := 1 to Index do
for ValueIndex := 0 to Index - 1 do
begin
if (Values.Items[ValueIndex] as TDiagramValue).Visible then
begin

4
Source/uInit.pas
View File

@@ -3,7 +3,7 @@ unit uInit;
//////////////////////////////////////
/// Lina Initialization Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}
@@ -24,7 +24,7 @@ uses
const
Package_Name = 'Lina Components';
Package_Description = 'Components and code library for Delphi' + sLineBreak + '� 2015 Dennis G�hlert a.o.';
Package_Description = 'Components and code library for Delphi' + sLineBreak + '� 2017 Dennis G�hlert a.o.';
Package_License = 'Mozilla Public License (MPL) 2.0';
Package_SKU = '(Dev-Preview)';

2
Source/uLocalMgr.pas
View File

@@ -3,7 +3,7 @@ unit uLocalMgr;
//////////////////////////////////////
/// Lina Localize Manager Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}

2
Source/uScriptMgr.pas
View File

@@ -3,7 +3,7 @@ unit uScriptMgr;
//////////////////////////////////////
/// Lina Script Manager Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}

2
Source/uSysCtrls.pas
View File

@@ -3,7 +3,7 @@ unit uSysCtrls;
//////////////////////////////////////
/// Lina System Controls Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}

2
Source/uSysTools.pas
View File

@@ -3,7 +3,7 @@ unit uSysTools;
//////////////////////////////////////
/// Lina System Tools Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}

2
Source/uVirtObj.pas
View File

@@ -3,7 +3,7 @@ unit uVirtObj;
//////////////////////////////////////
/// Lina Virtual Object Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}

2
Source/uWebCtrls.pas
View File

@@ -3,7 +3,7 @@ unit uWebCtrls;
//////////////////////////////////////
/// Lina Web Controls Unit ///
/// **************************** ///
/// (c) 2016 Dennis G�hlert a.o. ///
/// (c) 2017 Dennis G�hlert a.o. ///
//////////////////////////////////////
{$I 'Config.inc'}