• R/O
  • SSH
  • HTTPS

akdf: Commit


Commit MetaInfo

Revision567 (tree)
Time2022-01-13 23:44:48
Authorderekwildstar

Log Message

Faltou só o principal: a execução dos eventos, antes e após a limpeza da lista de seleção...

Change Summary

Incremental Difference

--- trunk/rtp/src/Vcl/KRK.Vcl.DBGrids.pas (revision 566)
+++ trunk/rtp/src/Vcl/KRK.Vcl.DBGrids.pas (revision 567)
@@ -1053,10 +1053,16 @@
10531053 procedure ClearSelection;
10541054 begin
10551055 if dgMultiSelect in Options then
1056- begin
10571056 if not (dgPersistentSelection in FOptionsEx) then
1057+ begin
1058+ if Assigned(FOnBeforeClearSelection) then
1059+ FOnBeforeClearSelection(Self);
1060+
10581061 SelectedRows.Clear;
1059- end;
1062+
1063+ if Assigned(FOnAfterClearSelection) then
1064+ FOnAfterClearSelection(Self);
1065+ end
10601066 end;
10611067
10621068 procedure DoSelection(Select: Boolean; Direction: Integer);
Show on old repository browser