ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Re=3a Insertion d'une image dans la fen=c3=aatre principal de visual foxpro

Sujet
Précédent 1 2 3 4 5 6 7 8 9 10 ...130 Suivant
Manifest FoxPro lud57330 - 03/01/2024 11h48
Provider VFPOLEDB - Enregistrement supprimés Excel, Power BI Benoît (QI Informatique) - 28/12/2023 11h27
KnowledgeBase Archive (archives des kb foxpro et vfp) Francis Faure - 17/11/2023 20h30
Affichage de photo Mahefa - 08/11/2023 10h33
Système hôtelier de base ZeRoberto - 03/11/2023 03h33
Import feuille spécifique excel BIAUDOUTJR - 02/11/2023 10h09
Saut de ligne dans un editbox alahem1 - 07/10/2023 18h03
Récupération de données à partir de CDX Aimé - 03/10/2023 12h18
Gather memvar - Un Bug ? sympa Amos - 24/08/2023 21h48
Nom de fichier en langue étrangère Amos - 16/08/2023 17h12
copy to ordre des colonnes change shjl - 18/07/2023 17h12
Conversion Application local en client server. BENMAHAMMED - 26/06/2023 12h30
XFRX attacher un fichier xml au pdf foxlover - 30/05/2023 17h06
Insertion d'une image dans la fenêtre principal de visual foxpro BENMAHAMMED - 16/05/2023 00h15
Utilisation de DTPicker BENMAHAMMED - 13/05/2023 11h12
feuille excel avec mot de passe foxlover - 25/04/2023 19h00
Fichier DBF en lecture seul BENMAHAMMED - 11/04/2023 14h12
Rencontres AtoutFox 2023 jcriv - 08/04/2023 18h48
Double gestion gestion EURO / BTC en VFP Francis Faure - 01/04/2023 18h39
Erreur d'absence de repère d'index BENMAHAMMED - 01/04/2023 16h18
Précédent 1 2 3 4 5 6 7 8 9 10 ...130 Suivant

Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

mer. 17 mai 2023, 23h51
BENMAHAMMED
Algérie
atoutfox.public.association

Re: Re=3a Insertion d'une image dans la fen=c3=aatre principal de visual foxpro

* Program....: SET_APPIMAGE.PRG
LPARAMETER p_cImageName

WITH _screen
**-- Ajouter un objet image
*
IF VARTYPE(.myPic) = "O"
.RemoveObject('myPic')
ENDIF
.cls()
.AddObject('myPic','image')

**-- Définir la propriété de l'image
*
.myPic.Picture = p_cImageName
.myPic.stretch = 1 &&

l_nAspectRatio = .MyPic.Height/.MyPic.Width
SI (.Height/.Width) <= l_nAspectRatio
.MyPic.Height = .Height
.MyPic.Width = .Height / l_nAspectRatio
ELSE
.MyPic.Width = .Width
.MyPic.Height = .Width / l_nAspectRatio
ENDIF

**-- Centrer le contrôle et l'afficher
*
.MyPic.Top = (.Height * .5) - (.myPic.Height * .5)
.MyPic.Left = (.Width * .5 ) - (.myPic.Width * .5)

IF !EMPTY(.myPic.Picture)
.myPic.Visible = .T.
ENDIF
ENDWITH &&* _screen

*!* EOP : SET_APPIMAGE.PRG

Rick

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000020106

20 151 messages dans le forum • Liste complète des messages