canvas resize

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : canvas resize

hhf

Salut, j'ai un petit probleme avec le canvas de TImage, pas de prob pour dessiner dedans, j'use d'une proc "dessin" qui dessine en fonction de la taille du canvas, MonImage.Canvas.width et Height. Si l'option strech est à true quand je change la taille de l'image, le dessin est redimentionné, normal, mais se dernier est moins net, puisque le stretch fais une interpolation sur le dessin.
alors je veux forcer le trace du dessin. Qd je fais ca, l'image est redessinner bcp plus grde que l'image PKoi ?[img]

Publicité

taureau

c pas super clair tout ça...

t'as pas un exemple de ton code ?

hhf

je veux bien, mais ca donne pas le defaut du result, mais en voici un bout...

Code :

with MonImage do
begin
// on efface
Canvas.Pen.Style:=psSolid;
Canvas.Brush.Color := clwhite;
Canvas.Pen.Color := clwhite;
Canvas.Rectangle(0,0,Width-1,Height-1);
// trace les droites horizontales
Canvas.Pen.Color := clMoneyGreen;
Canvas.Pen.Style:=psDashDot;
Canvas.Pen.Width:=1;
for i:= 0 to 7 do
begin
y:=trunc((Height-1)-(i*Height/7));
Canvas.MoveTo(0,y);
Canvas.LineTo(Width,y);
end;
end;

Voila, c'est pour dessiner une grille pour faire des courbes, la ya que les lignes horizontales. C'est peu t'etre ma facon d'effacer qui va pas, ou de recuperer la taille de l'image?
la j'ai mis stretch = true, si je le met à false, qd j'agrandit l'image qui a align = alclient, le dessin reste de la taille d'origine.
Donc si je resize et que je rapelle cette proc, l'image subit un zoom violent... bizare.
Ce que je veux, c'est que qd on rezise la fenetre, le trace soit redessiné pour gagné en precision.

Message édité par hhf le 23-08-2002 à 19:39:52

[SDF]Poire

Vive Grumly

hhf a écrit a écrit :

je veux bien, mais ca donne pas le defaut du result, mais en voici un bout...

Code :

with MonImage do
begin
// on efface et on trace l'abcisse et l'ordonnée
Canvas.Pen.Style:=psSolid;
Canvas.Brush.Color := clwhite;
Canvas.Pen.Color := clwhite;
Canvas.Rectangle(0,0,Width-1,Height-1);
// trace les droites horizontales
Canvas.Pen.Color := clMoneyGreen;
Canvas.Pen.Style:=psDashDot;
Canvas.Pen.Width:=1;
for i:= 0 to 7 do
begin
y:=trunc((Height-1)-(i*Height/7));
Canvas.MoveTo(0,y);
Canvas.LineTo(Width,y);
end;
end;

:pt1cable: Rien compris...
C ptet que je rentre de vacances

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

hhf

qu'est que tu comprend pas, je veux bien expliquer...

taureau

je ne vois pas pourquoi tu t'occupes de stretch puisque tu dessines toi meme...donc laisse le à false, et branche toi plutot sur l'évenement OnResize du conteneur de ton TImage et là tu pourras placer la routine qui va tracer tes courbes en utilisant les bonnes dimensions

hhf

je suis bien d'accord avec toi, mais si je met stretch = false, lorsque j'agrandi l'image, le canvas n'est pas resizé, il reste de la mm taille, mais ma proc à bien detecté les nouvelle taille de l'image, donc on a l'impression qu'il y a un zoom de fait.

hhf

J'ai utilisé un TImage, pour pouvoir dessiner dedans via son TCanvas, mais ya peu t'etre plus logique pour faire du dessin??

taureau

tu peux utiliser directement un TBitmap que tu crés à la volée...

hhf

ben oui mais il n'y a pas que mon graph ds la form, alors un TBitmap ca pose prob, ya plus la proprieté align, je pourrais m'en passer si il y avais les proprieté top et left sur le TBitmap. Et je suis pas sur que ca resolve mon PB, car c'est ca le prob, le Timage est resizé, mais pas le canvas. Ou alors j'ai pas tous compris...
Merci de votre aide.

Publicité

taureau

tu dessines dans le canvas du tbitmap que tu cré avec la taille de ton TImage puis tu l'assignes dans TImage.picture pour l'afficher (n'oublie pas de libérer le tbitmap)

Message édité par taureau le 23-08-2002 à 21:48:44

taureau

c normal que lorsque le timage est redimmensionné la taille réelle du son contenu ne le soit pas...donc tu dois l'ajuster en conséquence

hhf

ben moi je veux bien, mais yas pas de Canvas.width ou Canvas.Height.... alors comment resizé le canvas en fct de la taille du Timage parent ?

taureau

tu donnes la taille à ton tbitmap...

mabitmap := TBitmap.create;
try
mabitmap.width := ...
...
mabitmap.canvas...
...
monimage.picture.assign(mabitmap);
finally
mabitmap.free;
end;

hhf

Oui effectivement ca doit marché merci, je try ca de suite.

[SDF]Poire

Vive Grumly

Taureau a écrit a écrit :

tu donnes la taille à ton tbitmap...

mabitmap := TBitmap.create;
try
mabitmap.width := ...
...
mabitmap.canvas...
...
monimage.picture.assign(mabitmap);
finally
mabitmap.free;
end;

T en vacances ?
:hello:

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

hhf

YES, THAT'S WORK
THANKS SO MUTCH
Merci taureau

taureau

de rien hhf

poire non mais bon là je traine avant d'aller au lit

[SDF]Poire

Vive Grumly

Taureau a écrit a écrit :

de rien hhf

poire non mais bon là je traine avant d'aller au lit

Enfin bravo pour le courage :jap:
Tu mérites une médaille
:hello:

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

taureau

mouais...mais juste en chocolat alors car c'était pas si terrible

[SDF]Poire

Vive Grumly

Taureau a écrit a écrit :

mouais...mais juste en chocolat alors car c'était pas si terrible

Pour la patience

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

taureau

j'avais compris

mais bon vu mon "grand" nombre de post j'ai encore une forte dose de patience en moi

[SDF]Poire

Vive Grumly

Taureau a écrit a écrit :

j'avais compris

mais bon vu mon "grand" nombre de post j'ai encore une forte dose de patience en moi

Mais des posts tjs de qualités...
Il vaut mieux de la qualité que de la quantité comme dit le proverbe...

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

taureau

on va pas aller si loin sur la qualité de mes posts heins ?

merci pour le chocolat je me dépêche de le prendre avant qu'il ne fonde sous "la qualité" de mes posts passés

[SDF]Poire

Vive Grumly

Taureau a écrit a écrit :

on va pas aller si loin sur la qualité de mes posts heins ?

merci pour le chocolat je me dépêche de le prendre avant qu'il ne fonde sous "la qualité" de mes posts passés

:lol:
:gun:

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Publicité

FORUM HardWare.fr

Programmation

Delphi/Pascal

canvas resize

Sujets relatifs
Format tiff + php + resize d'images...	peut on enegistrer un canvas en image jpg ou bmp ?
resize window au chargement d'un pop-up?	ScrollPane sur un canvas
Resize auto de frames...C'est possible?	[C++Builder] Rotation de Canvas
[C++Builder] Effacement de texte dans un canvas	[C++Builder] Initialisation de canvas
[C++Builder] Canvas	Détecter un RESIZE dans un Navigateur ?
Plus de sujets relatifs à : canvas resize

Page générée en 0.085 secondes