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

14
components/fpspreadsheet/fpspreadsheetgrid.pas
View File

@ -3152,8 +3152,20 @@ begin
end; end;
function TsCustomWorksheetGrid.GetCells(ACol, ARow: Integer): String; function TsCustomWorksheetGrid.GetCells(ACol, ARow: Integer): String;
var
msg: TGridMessage;
begin 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; end;
{@@ ---------------------------------------------------------------------------- {@@ ----------------------------------------------------------------------------