Canvas // LineTo

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Canvas // LineTo

Inekman

Salut people (antp :jap: )

J'ai un petit sushi là avec le Canvas de ma fenêtre :ange:

Je souhaite tracer une simple ligne rouge de tel point à un autre point, jusque là je sais faire

Par contre, là où ça chiotte, c'est que j'ai un composant TImage qui contient un Gif et qui occupe toute la fenêtre...

Le problème est donc :

¤ Comment je fais pour dessiner ma ligne rouge sachant que :
- si je prend le Canvas de la fenêtre, y'a l'image par dessus et donc on va pas la ligne,
- si je prend le Canvas du TImage, il me dit que l'image n'est pas au format Bitmap (c'est un gif) et qu'il est donc impossible de dessiner sur le Canvas.

Comment je fais-je ? [:airforceone]

Merki à tous

Publicité

antp

Super Administrateur
Champion des excuses bidons

Pour un GIF je sais pas trop, mais pour les JPEG et les PNG il y a moyen de les convertir en BMP en interne pour les fournir au TImage.
Ex. de ce que je fais pour dessiner un PNG/JPEG/WMF/EMF sur un TImage (et donc converver le TImage en mode bitmap) plutôt que de charger l'image dans le TImage :

Code :

Gr := InternalImage.Picture.Graphic;
if Gr is TMetafile then
begin
if not PlayEnhMetaFile(Image.Canvas.Handle, InternalImage.Picture.Metafile.Handle, Rect(x1, y1, x2, y2)) then
RaiseLastOSError;
end
else
if Gr is TBitmap then
Image.Canvas.CopyRect(Rect(x1, y1, x2, y2), InternalImage.Canvas, Rect(0, 0, InternalImage.Width, InternalImage.Height))
else
if Gr is TPNGObject then
TPNGObject(Gr).Draw(Image.Canvas, Rect(x1, y1, x2, y2))
else
if Gr is TJPEGImage then
begin
TJPEGImage(Gr).DIBNeeded;
Image.Canvas.StretchDraw(Rect(x1, y1, x2, y2), Gr)
end

(InternalImage est un autre TImage, non visible, que je crée par code pour charger l'image)

Message édité par antp le 18-04-2005 à 14:13:43

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Inekman

c'est pas tout à fait ce que je voulais faire mais bon c'est pas grave je vais essayé de voir du côté de TPaintBox

Par contre j'ai un bug zarbe quand je quitte le programme :

---------------------------
Application Error
---------------------------
Exception EOSError in module Project1.exe at 0000D082.

System Error. Code: 1400.

Handle de fenêtre non valide.
---------------------------
OK
---------------------------

D'où ça peut venir ? [:airforceone]

Message édité par Inekman le 18-04-2005 à 18:37:33

antp

Super Administrateur
Champion des excuses bidons

De ton code

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Inekman

looooooooool

Voilà le déroulement de la chose :

- frmMain ouvre frmProcess puis se cache,
- frmProcess effectue une action,
- en fin d'exécution, frmProcess se cache et frmMain revient,
- Quand on quitte le programme (par frmMain) bam ça bug

antp

Super Administrateur
Champion des excuses bidons

Et ça arrive sur quel ligne de code quand tu l'exécutes pas à pas ?

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Inekman

procedure TfrmMain.lblQuitterClick(Sender: TObject);
begin
Application.Terminate;
end;

Quand j'ai vu la quantité de code j'ai eu un doute mais je crois que c'est à la ligne "Application.Terminate"

antp

Super Administrateur
Champion des excuses bidons

Essaie de faire un Close au lieu de Application.Terminate (si TfrmMain est la form principale).
Mais l'erreur n'est pas provoquée par ça, il doit y avoir quelque chose ailleurs.
Si t'as un pointeur fou par contre là c'est mal barré.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Inekman

Je crois que y'a une couille avec un Thread

antp

Super Administrateur
Champion des excuses bidons

Ou alors t'accèdes directement à la VCL dans ton thread (on a ce genre d'erreurs quand on fait ça)

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Publicité

Inekman

arf j'peux rien te répondre actuellement...mon pc vient de partir en fumée :cry:
Je suis sur mon ancien pc là...

antp

Super Administrateur
Champion des excuses bidons

Comme quoi, c'est dangereux de jouer avec des threads

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Inekman

re-là

Décidément je les accumule les conneries moi...

C'est ma carte graphique qui a balancé l'affichage sur la télé de son propre chef et moi j'me suis retrouvé avec un écran tout noir :sweat: j'ai cru qu'elle avait cramée la carte :cry:

Desépéré, j'ai été me faire un café en attendant de trouver les papiers de la garantie et quand je me suis installé devant la télé...en zappant j'me suis retrouvé nez à nez avec mon bureau Windoz sur la chaîne AV....LA HONTE [:al zheimer]

...au fait mon thread marche !! [:alb77]

La suite des aventures d'Inekman au prochain post [:arg]

FORUM HardWare.fr

Programmation

Delphi/Pascal

Canvas // LineTo

Sujets relatifs
[Debutant][Applet][Swing]canvas+superposition image	[J2ME] Image dans un canvas
Superposition d'images tracé avec Canvas	[Canvas] pb : ma méthode repaint() n'appelle pas mon paint() !
Ajouter des Canvas ds JScrollPane	Utiliser un Canvas pour dessiner dedant, et générer une Image
canvas	[JAVA]Prob avec un Canvas, un Menu, le tout dans une JApplet
[Perl/Tk] TkZinc, le canvas nouvelle generation !	un canvas dans swing....??
Plus de sujets relatifs à : Canvas // LineTo

Page générée en 0.071 secondes