Page 3 of 4
Posted:
Sat May 13, 2006 2:33 pm
by Silvio
poi un altra cosa
io ho i simbolini in una directory
Ho fatto una buton bar a sinistra
come fare per creare dei btnbmp allineati per tre o 4 automaticamente
così l'utente premendo un pulsante prende il simbolino che si posiziona subito ( e solo) sul bitmap della linea cosi uno poi puo' spostare ...
cioè
- Code: Select all Expand view
LOCAL aSymboli := Directory( "Sym/*.gif" )
DEFINE BUTTONBAR oBar 3D SIZE 25, 25 OF oWndChild LEFT
For n= 1 to Len( aSymboli )
DEFINE BUTTON filename aSymboli [n] OF oBar ACTION PutBitmap( oTRb ) TOOLTIP "Simboli"
Next
grazie
dove sta l'errore ?
Posted:
Sat May 13, 2006 2:49 pm
by Silvio
cioè volevo fare una cosa così se era possibile
ma mi da errore di un metodo che non esiste getbtn...
Posted:
Sat May 13, 2006 3:19 pm
by Enrico Maria Giordano
Ovviamente non li puoi mettere nell'evento paint.
Parlo delle GET.
EMG
Posted:
Sat May 13, 2006 3:22 pm
by Silvio
No questi pulsanti sono nella window child che creo quando apro un nuovo roadbook
aaaah tu ti riferivi ai get ???
non li posso mettere e come posso fare per...cavolo lo sapevo che non si poteva fare ....mi sono illuso di poterlo fare con fw
Posted:
Sat May 13, 2006 3:23 pm
by Enrico Maria Giordano
Silvio wrote:aaaah tu ti riferivi ai get ???
non li posso mettere e come posso fare per...cavolo lo sapevo che non si poteva fare ....mi sono illuso di poterlo fare con fw
Non è questione di FW. E' che, semplicemente, non puoi ricreare le GET ad ogni ridisegno della finestra, non ti pare? Non ha senso.
EMG
Posted:
Sat May 13, 2006 3:48 pm
by Silvio
SCUSAMI PER IL MIO SFOGO ....
SI OK ADESSO LE HO MESSE NEL METODO NEW E PARE CHE FUNZIONICCHANO MA NON RIESCO A FARE DUE COSE :
- Code: Select all Expand view
DEFINE FONT oFont2 NAME "Ms Sans Serif" SIZE 10, 8
DEFINE FONT oFont3 NAME "Arial" SIZE 20, 20
@ 0,2 say "KM TOTALI" OF Self Font oFont2 size 80,50
@ 2,2 Get ::oGet1 OF Self Font oFont3 size 80,40 NOBORDER
@ 8,2 say "KM PARZIALI" OF Self Font oFont2 size 80,50
@ 12,2 Get ::oGet2 OF Self Font oFont3 size 80,40 NOBORDER
1. I GET UANDO CERCO DI SCRIVERE NON MI SCRIVONO NULLA SE PREMO I TASTI CURSORI MI FA ERRORE TCLIPGET...
2. LA DIMENSIONE DEI GET ( PARLO DEIFONT ) è SEMPRE LO STESSO
TI DEVO FARE UN PICCOLO PROGRAMMINO I TEST ?
Posted:
Sat May 13, 2006 3:55 pm
by Silvio
ECCOLO !!!!!!!!!!
- Code: Select all Expand view
#include "FIVEWIN.CH"
fUNCTION mAIN()
lOCAL OgET1,OGET2,OFONT1,OFONT3
lOCAL OWND
DEFINE FONT oFont2 NAME "Ms Sans Serif" SIZE 10, 8
DEFINE FONT oFont3 NAME "Arial" SIZE 20, 20
DEFINE WINDOW oWnd COLOR "N/W" ;
title "Nuovo RoadBook"
@ 0,2 say "KM TOTALI" OF oWnd Font oFont2 size 80,50
@ 2,2 Get oGet1 OF oWnd Font oFont3 size 80,40 NOBORDER
@ 8,2 say "KM PARZIALI" OF oWnd Font oFont2 size 80,50
@ 12,2 Get oGet2 OF oWnd Font oFont3 size 80,40 NOBORDER
ACTIVATE WINDOW oWnd MAXIMIZED
RETURN NIL
Posted:
Sat May 13, 2006 4:37 pm
by Enrico Maria Giordano
Mancano le variabili delle GET.
EMG
Posted:
Sat May 13, 2006 4:39 pm
by Enrico Maria Giordano
E mancano le PICTURE, obbligatorie dato che trattasi di variabili numeriche.
EMG
Posted:
Sat May 13, 2006 6:10 pm
by Silvio
ooppss...
calma calma mi sono sfuggite...
il problema è che ogni 5 minuti mi telefonano....
sorry...
Posted:
Sat May 13, 2006 6:15 pm
by Silvio
Scusami eccolo
ho corretto ma non funziona cioè adesso le get funzionano ma
io volevo che scrivessero i font grandi e che le get erano trasparenti
- Code: Select all Expand view
#include "FIVEWIN.CH"
FUNCTION Main()
lOCAL oGET1,oGET2
LOCAL OFONT1,OFONT3
LOCAL KMTOT:=0
LOCAL KMpARZ:=0
Local OWND
DEFINE FONT oFont2 NAME "Ms Sans Serif" SIZE 10, 8
DEFINE FONT oFont3 NAME "Arial" SIZE 20, 20
DEFINE WINDOW oWnd COLOR "N/W" ;
title "Nuovo RoadBook"
@ 0,2 say "KM TOTALI" OF oWnd Font oFont2 size 80,50
@ 2,2 Get oGet1 VAR KMTOT OF oWnd Font oFont3 size 80,40 NOBORDER PICTURE "999999"
@ 8,2 say "KM PARZIALI" OF oWnd Font oFont2 size 80,50
@ 12,2 Get oGet2 VAR KMPARZ OF oWnd Font oFont3 size 80,40 NOBORDER PICTURE "999999"
ACTIVATE WINDOW oWnd MAXIMIZED
RETURN NIL
Posted:
Sat May 13, 2006 6:26 pm
by Enrico Maria Giordano
A me i font delle GET risultano grandi. E non ho capito cosa intendi con "trasparenti". Se vuoi che lo sfondo delle GET sia uguale a quello della finestra basta che usi in entrambi (finestra e GET) la stessa clausola COLOR.
EMG
Posted:
Sat May 13, 2006 10:17 pm
by Silvio
A me no
allora ho problemi di grafica...
Posted:
Sat May 13, 2006 10:23 pm
by Silvio
Vabbe poi lo risolvo
c'è una cosa che ti volevo chiederti :
Quando chiamo la classe la procedura costruisce una riga e lo fa bene
ma se è la prima riga cioè se sto iniziando a creare la prima riga la procedura mi deve disegnare la testata ....
dove la metto la testata nel mtetodo paint ?
io la devo disegnare solo una volta e non la devo disegnare piu' ( solo ovviamente in stampa ad ogni pagina)
Come fare allora ?
Posted:
Sun May 14, 2006 8:16 am
by Enrico Maria Giordano
Il discorso della programmazione Windows è questo:
1. Ogni elemento presente sulla dialog deve sapersi ridisegnare all'occorrenza (e questo lo sanno fare i controlli tipo TSay, TGet, TCombobox, TWBrowse, etc. grazie al fatto che sono controlli standard oppure grazie al loro metodo Paint()).
2. Gli elementi che non fanno parte del punto 1 (come ad esempio le tue linee) devono essere ridisegnati nell'evento ON PAINT della DIALOG o di qualche controllo.
EMG