CREAZIONE RADAR PER RALLY

[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

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 ?

[Silvio]

cioè volevo fare una cosa così se era possibile


ma mi da errore di un metodo che non esiste getbtn...

[Enrico Maria Giordano]

Ovviamente non li puoi mettere nell'evento paint.

Parlo delle GET.

EMG

[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

[Enrico Maria Giordano]

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

[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

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 ?

[Silvio]

ECCOLO !!!!!!!!!!

Code: Select all

 
#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

[Enrico Maria Giordano]

Mancano le variabili delle GET.

EMG

[Enrico Maria Giordano]

E mancano le PICTURE, obbligatorie dato che trattasi di variabili numeriche.

EMG

[Silvio]

ooppss...

calma calma mi sono sfuggite...
il problema è che ogni 5 minuti mi telefonano....
sorry...

[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

 #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

[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

[Silvio]

A me no
allora ho problemi di grafica...

[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 ?

[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