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

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;