Je n'arrive pas à gérer la colonne de premiere position du dbgrid dans la procedure ColumnMoved et CellClick que je surcharge pour mon composant fétiche, le Perso DBGrid.
le code:
//déclaration
type
TPersoDBGrid=class(TDBGrid)
curentLeftCol entier privé
procedure ColumnMoved(FromIndex, ToIndex: Integer);override;
end;
procedure TPersoDBGrid.ColumnMoved(FromIndex, ToIndex: Integer);//ne fonctionne pas
begin
currentLeftCol:=LeftCol;
inherited;
LeftCol:=currentLeftCol;
if Assigned(OnColumnMoved) then OnColumnMoved(Self, FromIndex, ToIndex);
//bizarrement au débogage currentLeftCol vaut 13 mais LeftCol reste à 1 après passage dans la procédure
end;
Je galère, parce que cette astuce fonctionne dans la gestion du scroll pour déplacer une zone de texte en compensation du mouvement, mais pas dans ColumnMoved, ni CellClick
si quelqu'un sait où gérer le Leftcol au déclenchement de ces évènements, ben je le remercierai officiellement dans la prochaine mouture du Perso DBGRid qui avanc... avançait (peux pas faire moins, remarque)
rame, rame, rameurs, ramez....