Recherche:

Bonjour,


En fait la cause de ma galère n'était ni l'utilisation du TPublicGraphicControl(imageFond).Canvas ni son remplacement par 2 TImage transparents mais tout bêtement
une instruction de...

Bonjour,

Finalement j'ai résolu mon problème d'agrandissement après avoir viré le TPublicGraphicControl(imageFond).Canvas ainsi que la tentative avec 2 TImage transparents superposés
en...

Re-bonjour,



OK, entre-temps j'ai remplacé le TPublicGraphicControl(imageFond).Canvas tout simplement par un TImage nommé ImageAvant transparent et de même taille que Image fond comme suit...

Bonjour,


Bin c'est justement ce qui est réalisé entre les lignes 8 à 18 de la procedure TfrmGen.bOKNouvelleImageClick(Sender: TObject) où s'effectue le redimensionnement :
- de la ScrollBox qui...

Re-bonjour,


Bin mon canvas "d'avant-plan" c'est en ligne 24 CanAvP := TPublicGraphicControl(imageFond).Canvas;


En fait l'essentiel se passe dans les lignes suivantes :


procedure...

Bonjour,


Oui, oui, mais ça remonte à plusieurs années.


Bizarre je pensais que le ImageFond.Picture.Bitmap.Assign(Bmp) réglait ça tout seul, mais bon
j'ai ajouté Imagefond.width := W; et...

Bonjour,

J'ai besoin d'augmenter la taille d'un TPublicGraphicControl(imageFond) dont j'utilise le canvas comme Avant-Plan pour y tracer des trucs éphémères par dessus ce que je trace sur...