Einzelnen Beitrag anzeigen

CHackbart

Registriert seit: 22. Okt 2012
267 Beiträge
 
#1

TStringGrid in Firemonkey Bug

  Alt 18. Sep 2016, 10:57
Vielleicht ist es jemandem schon aufgefallen, aber in

Code:
function TColumn.EditingDone(const InplaceEdit: TFmxObject; const Value: TValue; const Accept: Boolean): Boolean;
var
  LCoord: TGridModel.TCoord;
begin
  Result := False;
  if Accept then
  begin
    Result := PostEditorValue(InplaceEdit, Value);
    if Result then
      if Assigned(Model.OnEditingDone) then
        Model.OnEditingDone(PresentedControl, LCoord.Col, LCoord.Row);
  end
  else if FEditorState = TEditorState.Modified then
    EditingCancelled;

  FEditorState := TEditorState.None;
end;
fehlt ein LCoord.Col := Model.IndexOfColumn(Self);
LCoord.Row := Model.Row;

Also QM sieht echt anders aus

Ich habe einen Eintrag im QC erstellt:
https://quality.embarcadero.com/browse/RSP-15863

Christian

Geändert von CHackbart (18. Sep 2016 um 12:25 Uhr) Grund: Link zum QC Eintrag.
  Mit Zitat antworten Zitat