TCYDBGRID (SANS INSTALLER OBLIGATOIREMENT)

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

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 administrateur CS

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 administrateur CS

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 administrateur CS

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 administrateur CS

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 administrateur CS

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 administrateur CS

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 !

Commentaire de abdounbrahim le 28/05/2008 18:06:26

C'EST ARCHI NULL

Commentaire de cirec le 29/05/2008 13:06:02 administrateur CS

T'as pas l'impression de t'être perdu ?

Souvent les gens préfèrent dire que c'est nul alors qu'en fait ils ne comprennent pas et sont incapable de l'exprimer.

Je te le dit dans ton langage:
"T'ES ARCHI NULL"