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

fpspreadsheet: Fix WorksheetGrid.OnValidateEntry not showing OldValue and NewValue parameters (issue #30236)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5214 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-25 22:23:26 +00:00
parent a85bda5f5d
commit f38a3f42de
3 changed files with 15 additions and 1552 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1549
components/fpspreadsheet/examples/visual/fpsctrls/main.lfm
View File

File diff suppressed because it is too large Load Diff

4
components/fpspreadsheet/examples/visual/fpsctrls/main.pas
View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
ComCtrls, ActnList, Menus, StdActns, Buttons,
fpstypes, fpspreadsheet, fpspreadsheetctrls, fpspreadsheetgrid, fpsActions,
fpsRegFileFormats, fpsSYLK, xlsxml;
fpsRegFileFormats, fpsSYLK, xlsxml, Grids;
type
@ -407,7 +407,7 @@ implementation
{$R *.lfm}
uses
LCLIntf, inifiles, uriparser, Grids,
LCLIntf, inifiles, uriparser,
fpsUtils, fpsCSV,
sCSVParamsForm, sCurrencyForm, sFormatSettingsForm, sSortParamsForm,
sHyperlinkForm, sNumFormatForm, sSearchForm;

14
components/fpspreadsheet/fpspreadsheetgrid.pas
View File

@ -3152,8 +3152,20 @@ begin
end;
function TsCustomWorksheetGrid.GetCells(ACol, ARow: Integer): String;
var
msg: TGridMessage;
begin
Result := GetCellText(ACol, ARow);
if (Editor <> nil) and Editor.Visible then
begin
msg.LclMsg.msg := GM_GETVALUE;
msg.Grid := Self;
msg.Col := ACol;
msg.Row := ARow;
msg.Value := ''; //GetCells(FCol, FRow);
Editor.Dispatch(msg);
Result := msg.value;
end else
Result := GetCellText(ACol, ARow);
end;
{@@ ----------------------------------------------------------------------------