TCYDBGRID (SANS INSTALLER OBLIGATOIREMENT)

Commentaire de MAURICIO le 22/04/2008 19:00:04

Je donne gratuitement ce compo malgrè les heures passées dessus car d' abord je me suis basé sur certains bout de code trouvé sur CS, puis gràce à l' excelent tuto de delphiProg sur le Overload component et enfin, gràce à Cirec qui m' a donné un bon coup de main.

Je le donne aussi car CS c' est avant tout le partage de connaissance et je pense que ce compo répond à une certaine demande générale.

Pour les plus curieux, j' ai fait ma propre class de BookmarList, elle me permet de gérer les checkBoxes.

A+

Commentaire de MAURICIO le 23/04/2008 11:04:25

Salut Foxi,

ce compo surcharge le TDBGrid (overload en Anglais).
Pour comprendre à quoi ça consiste, jetez un oeil sur le tuto de DelphiProg:
http://www.delphifr.com/codes/MODIFIEZ-COMPOSANTS-EXISTANTS-SANS-MODIFIER-VOS-FICHES-EXISTANTES_28866.aspx

A+

Commentaire de MAURICIO le 23/04/2008 11:30:50

OnMouseWheelUp/Down de TcyDBGRid (ou d' un TDBGrid) n' apparait pas dans  l'inspecteur d'objet chez moi (Delphi7).
Donc, j' ai rien prévu ^^

Le problème est situé ici:
constructor TcyDBGrid.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  FCheckedList := TcyBookmarkList.Create(self);
  FCheckedList.OnChange := CheckBoxesChanged;
  FMouseWheelMode := mwRowSelect;
  FOldVerticalScrollBarState := true;
  FOldHorizontalScrollBarState := true;
  FHorizontalScrollBar := true;
  FVerticalScrollBar := true;
  FCheckBoxes := TcyCheckBoxes.Create(self);
  FCheckBoxes.OnChange := CheckBoxesChanged;

  // Mouse wheel handling :
  OnMouseWheelDown := MouseWheelDown;
  OnMouseWheelUp := MouseWheelUp;
end;

Ce qu' il faut c' est ne pas attibué OnMouseWheelDown/OnMouseWheelUp mais récupérer le message.
Je n' aurai pas le temps aujourd' hui de le faire, par contre si quelqu' un me donne ce bout de code par message privé cela me fera gagner du temps.

Par contre, il existe une propriété MouseWheelMode qui peut prendre les valeurs suivantes:
- mwDoNothing: ne fait rien
- mwOriginal: se comporte comme un TDBGrid normal
- mwNavigate: permet d' avancer ou reculer dans les enregistrements du DataSet.
- mwRowSelect: comme mwNavigate, mais permet en plus, avec la touche Shift, de seleccionner plusieurs enregistrements lorsque dgMultiSelect dans la propriété Options.

A+

Commentaire de MAURICIO le 23/04/2008 11:57:13

Salut,

il me semble qu' il faut juste surcharger les événements suivants hérités du TControl:

function TControl.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result := False;
  if Assigned(FOnMouseWheelDown) then
    FOnMouseWheelDown(Self, Shift, MousePos, Result);
end;

function TControl.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result := False;
  if Assigned(FOnMouseWheelUp) then
    FOnMouseWheelUp(Self, Shift, MousePos, Result);
end;

Reste plus qu' à chercher le code à y mettre dedans ^^

A+

Commentaire de MAURICIO le 23/04/2008 12:51:15

Merci Francky,

Chez moi OnMouseWheelDown et OnMouseWheelUp sont en protected du compo TControl, donc ils ne sont pas accessibles à moins d' hériter.

Je vais les rendre visibles pour pouvoir utiliser ces événements et personnaliser la gestion de la roulette dans vos programmes.

A+

Commentaire de cirec le 23/04/2008 13:32:11 administrateur CS

Bravo,
cette fois c'est bon ^^
10/10 bien mérité

Commentaire de cantador le 24/04/2008 17:04:38

Bonjour mauricio,

bravo pour ce gros boulot
et très instructif !
même si je ne l'utilise pas (because TcxGrid)..
12/10

Commentaire de cantador le 24/04/2008 22:16:09

Oui, il vaut même plus que ça avec les options..
mais c'est vraiment le pied total.
Cela dit, la plupart de mes outils sont chers mais rien ne sort de ma poche heureusement..
Ce qui fait aussi que je fais peu d'intervention sur le site.
Si tu veux te faire un peu de sous, vend plutôt des projets clés en main (avec maintenance)
Mais il faut faire attention car on est vite débordés..
L'expérience montre que la donation PayPal ne nourrit pas son homme..
Et puis tu n'es pas bon vendeur !