Titolo: Cambiare logo nei formati
Categoria: Codice |
|
Ultimo Aggiornamento: 22/10/05 |
A volte capita di modificare il logo nei formati, questo metodo magari non risolve tutte le casistiche ma ridimensiona al vertice in alto a sinistra
If (False)
` $1 = Puntatore alla variabile contenente il Logo
` $2 = Altezza del campo che si vuole ottenere
` $3 = Larghezza del campo che si vuole ottenere
` $4 = Object Name della variabile
` Inserire il richiamo a questo metodo nell'oggetto del form
AdeguaLogo (->var_Logo;114;0;"Logo")
` con evento "On printing detail" - "On display detail"
` Sembra che funzioni solo su Variabili
End if C_INTEGER($AltezzaPrevistaInPixel;$LarghezzaPrevistaInPixel;$SizeOrizzontale;$SizeVerticale)
$AltezzaPrevistaInPixel:=$2
$LarghezzaPrevistaInPixel:=$3
PICTURE PROPERTIES($1->;$Larghezza;$Altezza)
Case of : ($AltezzaPrevistaInPixel>0)
$Coefficiente:=$Altezza/$AltezzaPrevistaInPixel
: ($LarghezzaPrevistaInPixel>0)
$Coefficiente:=$Larghezza/$LarghezzaPrevistaInPixel
Else $Coefficiente:=1
End case $SizeOrizzontale:=($Larghezza/$Coefficiente
$SizeVerticale:=$Altezza/$Coefficiente
GET OBJECT RECT(*;$4;$left;$top;$right;$bottom)
MOVE OBJECT(*;$4;$left;$top;$SizeOrizzontale+$left;$SizeVerticale+$top;*)
| Inviato da: Airmac |
|
Visite: 11868 |
Se accedi con utente e password, puoi aggiungere dei commenti.
