Discussion :

[tintin62]

Bonjour
sur ma fiche jai un paintbox et je voudrais remplacer le curseur de
la souris par 2 lignes qui se croisent au curseur
comme logiciel de dessin autocad
la solution serait de dessiner une ligne et de l effacer avec
la methode lineto et Pmxor mais je ne sais pas comment savoir quand je
rentre dans mon paintbox les coordonnees
ideal serait d avoir une methode OnEnter et OnExit
Merci avance pour votre aide

[Hartok]

Salut,

Il y a la propriété Cursor de ton PaintBox qui peut t'intéresser, si j'ai bien compris ton attente, en particulier le curseur crCross.

[tintin62]

Bonjour
curseur cross je connait
je voudrais avoir la meme chose avec les deux lignes du curseur
qui vont dun bord a lautre paintbox
pour que les lignes passe devant ma regle
________________________________________________________________

Merci

[Hartok]

Ok. Désolé, je ne connais AutoCad que de nom.

Tu dois pouvoir t'en sortir en traçant/effaçant à la main à partir de l'évènement OnMouseMove qui te donne par la même occasion les coordonnées de ton curseur. Tu peux considérer que tu sors de ta PaintBox quand tu atteints les limites du Composant, et donc effacer à ce moment les lignes.

Il y a peut-être une autre solution plus propre, mais ça ne me dit rien.

[Charly910]

Bonjour,

je pense qu'il faut te créer ton curseur sous forme Bmp, puis l'intégrer dans ton programme sous forme de ressource dans le fichier .res

Voici un extrait de l'aide de l'exemple de la propriété "Cursor" :

Cet exemple illustre la manière d'ajouter des curseurs personnalisés à une application. Il suppose qu'un curseur personnalisé de nom NewCursor a été ajouté au fichier ressource (fichier .RES) de l'application. Vous pouvez ajouter le curseur en utilisant l'éditeur d'image. (Outils | Editeur d'image)
Le code suivant rend ce curseur disponible dans l'application via la constante crMyCursor, et en fait le curseur global de l'application.

const

crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');
Cursor := crMyCursor;
end;

Tu peux donc intégrer le curseur que tu veux à condition de le dessiner ou de le récupérer dans un autre fichier ressource de Windows

A+

Charly

[Linkin]

Je pense plutôt qu'il veut faire quelque chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
     vOldX,vOldY:Integer;
    vFirstCrossDraw:Boolean;
 
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  procedure DrawCross(ax,ay : integer);
  begin
    (Sender as TPaintBox).Canvas.Pen.Color  := clGreen;
    (Sender as TPaintBox).Canvas.Pen.Style  := psSolid;
    (Sender as TPaintBox).Canvas.Pen.Mode   := pmNotXor;
    (Sender as TPaintBox).Canvas.Pen.Width  := 1;
 
    (Sender as TPaintBox).Canvas.MoveTo(ax,(Sender as TPaintBox).ClientRect.Top );
    (Sender as TPaintBox).Canvas.LineTo(ax,(Sender as TPaintBox).ClientRect.Bottom);
 
    (Sender as TPaintBox).Canvas.MoveTo((Sender as TPaintBox).ClientRect.Left ,ay);
    (Sender as TPaintBox).Canvas.LineTo((Sender as TPaintBox).ClientRect.Right,ay);
  end;
begin;
  if Application.Active then
  begin
    if PtInRect((Sender as TPaintBox).ClientRect, Point(X,Y)) then
    begin
      if not((vOldX=0) and (vOldY=0)) then
      begin
        if vFirstCrossDraw then
          vFirstCrossDraw := False
        else
          DrawCross(vOldX,vOldY);
        DrawCross(x,y);
      end
      else
        vFirstCrossDraw:=True;
      vOldX:=x;
      vOldY:=y;
    end
    else
    begin
      if (vOldX <>0) and (vOldY <>0) then
      begin
        DrawCross(vOldX,vOldY);
          vOldX := 0;
          vOldY := 0;
 
      end;
    end;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  vOldX := 0;
  vOldY := 0;
end;

[Charly910]

Effectivement,

mea culpa

je n'avais pas bien lu la question

il faut dessiner les lignes à la croisée du hot spot du curseur ...

Charly

[Linkin]

Mais l'idée du curseur personnalisé est aussi adaptée. Il faut utiliser les deux techniques pour le résultat qu'il veut

[Archimède]

oui pour les curseurs persos : AWicons (super!)
et Res_HiA pour la création du fichier ressource.

[tintin62]

Bonjour
et merci de vos reponses
cetait bien 2 lignes qui se croise au niveau du curseur que
je voulais
sa marche bien quand il a rien de dessiner dans le paintbox
mais moi jai une procedure qui affiche un bitmap sur le fond
et quand je resize ma forme et que je reviens dans paintbox il
ne mefface pas la derniere croix
que faire ?
Merci

[Linkin]

Lorsque tu resizes ta form, la paintbox changes donc de dimension ou est cachée, si j'ai bien compris.

Si la paintbox change de dimension, mettre vFirstCrossDraw à True dans le resize peut fonctionner.

Par contre dans le cas où une partie de la paintbox est cachée, c'est plus compliqué, il faut faire un xor uniquement sur l'ancienne croix,c'est à dire celle affichée, pas celle calculée: en effet la partie non affichée de la paintbox n'est pas peinte, et pour ça je n'ai pas de solution.

[Archimède]

Avec copymode. tu dessine tes lignes dans un premier bitmap, tu le copies à chaque fois dans une version vierge de ton bitmap de fond et tu fais un draw dans ton paintbox.

[Linkin]

C'est méthode est bien meilleure que la mienne (qui était appliquée à un TChart, à la base)!!

[tintin62]

Bonjour
merci de vos reponses
sa va deja mieux a part des fois ou les lignes
sont encore presentent mais des que je clique sa
disparait
verrai plus tard pour affiner
par contre je penser creer une methode Onenter et Onexit
Peut ton surcharger ces methode au Paintbox et comment
Merci