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

jvcllaz: Set package version numbers to 1.0.5 for upcoming OPM release. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6969 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-29 16:06:12 +00:00
parent 4e22eb8649
commit 5296af1508
82 changed files with 366 additions and 366 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/jvcllaz/run/JvJans/jvmarkuplabel.pas
View File

@ -104,8 +104,7 @@ type
implementation
uses
Themes,
JvJCLUtils, JvConsts;
Themes;
constructor TJvMarkupLabel.Create(AOwner: TComponent);
begin

2
components/jvcllaz/run/JvJans/jvmarkupviewer.pas
View File

@ -99,7 +99,7 @@ type
implementation
uses
JvConsts, Themes;
Themes;
constructor TJvMarkupViewer.Create(AOwner: TComponent);
begin

35
components/jvcllaz/run/JvJans/jvsimlogic.pas
View File

@ -125,9 +125,9 @@ type
procedure DisconnectFinal;
protected
procedure DblClick; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseDown({%H-}Button: TMouseButton; {%H-}Shift: TShiftState; X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp({%H-}Button: TMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -187,9 +187,9 @@ type
protected
procedure DblClick; override;
class function GetControlClassDefaultSize: TSize; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseDown({%H-}Button: TMouseButton; {%H-}Shift: TShiftState; X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp({%H-}Button: TMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer); override;
procedure Resize; override;
public
constructor Create(AOwner: TComponent); override;
@ -235,9 +235,9 @@ type
procedure SetOutput3(const Value: Boolean);
protected
class function GetControlClassDefaultSize: TSize; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseDown({%H-}Button: TMouseButton; {%H-}Shift: TShiftState; X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp({%H-}Button: TMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer); override;
procedure Resize; override;
public
constructor Create(AOwner: TComponent); override;
@ -274,7 +274,7 @@ type
class function GetControlClassDefaultSize: TSize; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp({%H-}Button: TMouseButton; {%H-}Shift: TShiftState; X, Y: Integer); override;
procedure Resize; override;
public
constructor Create(AOwner: TComponent); override;
@ -314,7 +314,7 @@ type
class function GetControlClassDefaultSize: TSize; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp({%H-}Button: TMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer); override;
procedure Resize; override;
public
constructor Create(AOwner: TComponent); override;
@ -464,12 +464,11 @@ end;
procedure TJvSimControl.DrawLED(ARect: TRect;
ASurfColor, ALitColor, ABkColor: TColor);
var
d, one, four: Integer;
one, four: Integer;
begin
if Parent = nil then
exit;
d := Scale96ToForm(LED_SIZE);
one := Scale96ToForm(1);
four := Scale96ToForm(4);
@ -1953,7 +1952,7 @@ var
SurfCol, LitCol: TColor;
P: TPoint;
X, Y: Integer;
d, one, three, five, eight, nine: Integer;
d: Integer;
Lit: Boolean;
begin
if not Gates[Index].Active then
@ -2012,13 +2011,11 @@ var
R: TRect;
S: string;
ts: TTextStyle;
h: Integer;
begin
with Canvas do
begin
Font.Assign(Self.Font);
if Font.Size = 0 then Font.Size := 9;
h := TextHeight('Tj');
Brush.Color := clSilver;
R := ClientRect;
@ -2293,7 +2290,6 @@ end;
procedure TJvSimButton.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
var
R: TRect;
h2: Integer;
begin
FMdp := Point(X, Y);
@ -2343,9 +2339,7 @@ begin
R := ClientRect;
InflateRect(R, -15, -15);
if PtInRect(R, P) then
begin
Down := not FDown;
end
Down := not FDown
else
BinCheck(Self);
end;
@ -2642,7 +2636,7 @@ end;
procedure TJvSimLight.Paint;
var
TlPoly, BrPoly: array [0..2] of TPoint;
// TlPoly, BrPoly: array [0..2] of TPoint;
xw, yh: Integer;
R: TRect;
HiColor, LoColor, SurfCol: TColor;
@ -2660,6 +2654,7 @@ var
Ellipse(FLEDRect);
// Ellipse(15, 15, xw - 15, yh - 15);
end;
// SelectClipRgn(Canvas.handle,0);
// DeleteObject(rgn);
// rgn := CreatePolygonRgn(BrPoly,3,WINDING);
@ -2707,6 +2702,7 @@ begin
yh := Height - 1;
// cr := Width div 4;
// x4 := Width div 4;
{
// topleft region
TlPoly[0] := Point(Left, Top + yh);
TlPoly[1] := Point(Left, Top);
@ -2715,6 +2711,7 @@ begin
BrPoly[0] := Point(Left + xw, Top);
BrPoly[1] := Point(Left + xw, Top + yh);
BrPoly[2] := Point(Left, Top + yh);
}
Canvas.Pen.Style := psSolid;
HiColor := clBtnHighlight;
LoColor := clBtnShadow;
@ -3188,7 +3185,7 @@ procedure TJvSimReverse.InitDimensions;
const
MARGIN = 1;
var
m, d, h: Integer;
m, d: Integer;
begin
if Parent = nil then
exit;

3
components/jvcllaz/run/JvJans/jvsimscope.pas
View File

@ -228,9 +228,6 @@ type
implementation
uses
InterfaceBase;
//=== { TJvScopeLineValues } =================================================
procedure TJvScopeLineValues.Add(Value: Integer);

18
components/jvcllaz/run/JvJans/jvyeargrid.pas
View File

@ -170,10 +170,10 @@ type
protected
procedure DrawColumnText(aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState); override;
procedure DrawTextInCell(aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState); override;
procedure DrawTextInCell(aCol, aRow: Integer; aRect: TRect; {%H-}aState: TGridDrawState); override;
function SelectCell(ACol, ARow: Integer): Boolean; override;
procedure DblClick; override;
procedure DoPrepareCanvas(aCol,aRow:Integer; aState: TGridDrawState); override;
procedure DoPrepareCanvas(aCol,aRow:Integer; {%H-}aState: TGridDrawState); override;
procedure SetAutoSize(Value: Boolean); override;
procedure UpdateAllSizes;
procedure AdjustBounds;
@ -186,7 +186,7 @@ type
// this component before its rewrite. The writer does nothing
// because the value is now stored as Year.
procedure ReadGridYear(Reader: TReader);
procedure WriteGridYear(Writer: TWriter);
procedure WriteGridYear({%H-}Writer: TWriter);
procedure DefineProperties(Filer: TFiler); override;
public
@ -379,7 +379,7 @@ end;
procedure TJvYearGrid.MakeHTML(AList: TStringList; Border, Filter: Boolean);
var
ACol, ARow, W: Integer;
ACol, ARow: Integer;
DS, Tbs, Infs: string;
Month, Day: Word;
ADate: TDate;
@ -691,7 +691,7 @@ end;
procedure TJvYearGrid.mnuCopyClick(Sender: TObject);
var
S: string;
S: string = '';
begin
if GetCellData(S) then
Clipboard.AsText := S;
@ -699,7 +699,7 @@ end;
procedure TJvYearGrid.mnuCutClick(Sender: TObject);
var
S: string;
S: string = '';
begin
if GetCellData(S) then
begin
@ -728,7 +728,7 @@ end;
procedure TJvYearGrid.mnuPasteClick(Sender: TObject);
var
S: string;
S: string = '';
begin
if GetCellData(S) then
if Clipboard.HasFormat(CF_TEXT) then
@ -737,7 +737,7 @@ end;
procedure TJvYearGrid.mnuDeleteClick(Sender: TObject);
var
S: string;
S: string = '';
begin
if GetCellData(S) then
SetCellData('');
@ -1561,7 +1561,7 @@ end;
procedure TJvYearGrid.DrawColumnText(ACol,ARow: Integer; ARect: TRect;
AState: TGridDrawState);
begin
DrawTextInCell(ACol, 0, ARect, AState);
DrawTextInCell(ACol, ARow, ARect, AState);
end;
procedure TJvYearGrid.DrawTextInCell(ACol,ARow: Integer;

3
components/jvcllaz/run/JvJans/jvyeargrideditform.pas
View File

@ -30,8 +30,7 @@ unit JvYearGridEditForm;
interface
uses
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,
JvComponent;
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;
type