Discussion :

[Dereck07]

Bonjour,

J'aimerai afficher dans le from1 plusieurs Tcursor (le crCross) en plus du cursor de la souris.

Je pensais utiliser un Timage ou l'image serait le curseur en croix (crCross),
cepandant j'arrive pas a affecter crCross à une Timage.
Il semble que une Timage n'est pas prevu pour prendre en image un Tcursor.
Pouvez vous me dire si c'est possible?

Ci ce n'est pas possible avec une Timage y a t il un autre composant qui pourait me permettre de faire ca?

Merci d'avance pour tout vos reponse.

Dereck

[Dr.Who]

Code :

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

image.picture.assign(Cursor)

[Dereck07]

sorry, it doesn't work.

J'ai essayé comme cela:

Code :

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

1
2
3
4
5
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Image2.picture.assign(crCross);
end;

J'ai eu en retour l'erreur suivante:
Unit1.pas(171): Types incompatibles : 'TPersistent' et 'Integer'

En faite mon but est de faire apparaître sur l'image1 (qui est un graph) des croix pour montrer des possitions bien defini.
Je voulais faire ca en superposant l'image 2 audessus de l'image1 et affecté a l'image 2 le cursseur croix de la souris.

Mais ca semble pas la bonne maniere ...

Enfaite je pourais affecter une image en forme de crois a image 2 et avec mask rendre le fond transparant. J'ai vus ca sur le forum.
Mais j'ai pas reussi a comprendre comment on utilise un mask pour rendre le fond d'une image transparante.
comment on édite un mask? c'est une deuxième image faite sous paint?

[Paul TOTH]

Screen.Cursors[crCross] est l'objet image que tu cherches

[Dereck07]

J'ai essayé :

Code :

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

1
2
 
Image2:=Screen.Cursors[crCross];

J'ai eu le droit à l'erreur:
[Erreur] Unit1.pas(180): Types incompatibles : 'TImage' et 'HICON'


Plus que je réfléchis plus que je me dis que ce n'est pas le bon moyen.
En faite je veux afficher des croix au dessus de image1. Et je me dissait que l'image du curseur de la souris crCross pourait faire l'affaire, mais il ne semble pas être affectable a une Timage (image2).

Je me dis donc que j'ai qu'à affecter à image 2 l'image d'une croix faite sous paint. (ca je sais faire)
Le souci c'est que je veux afficher que la croix comme pour le curseur de la souris, je veux que le reste soit transparant.

Sur le form j'ai cru comprendre que c'etait possible en utilisant un mask.
Ma question est qu'est ce que c'est physiquement? comment est ce que je le crée?
Quelqu'un peut il m'en dire un peut plus sur les images transparantes?

[peter27x]

J'ai essayé :

Code :

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

1
2
 
Image2:=Screen.Cursors[crCross];

J'ai eu le droit à l'erreur:
[Erreur] Unit1.pas(180): Types incompatibles : 'TImage' et 'HICON'

A tout hasard, essayes ça:

Code :

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

Image2:=TPicture(Screen.Cursors[crCross]);

[Paul TOTH]

A tout hasard, essayes ça:

Code :

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

Image2:=TPicture(Screen.Cursors[crCross]);

le hasard n'a rien à faire la dedans

au temps pour moi, Screen.Cursors[] est un tableau de HCursor, pas d'objets

il faut donc le coller dans un Handle d'objet graphique...in TIcon me semble le plus adapté

Code :

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

1
2
 
 Image2.Picture.Icon.Handle := Screen.Cursors[crCross];

[Dereck07]

Code :

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

 Image2.Picture.Icon.Handle := Screen.Cursors[crCross];

Ca marche niquel !

En plus si le fond est noir la croix s'affiche en blanc, je ne pouvais pas rêver mieux