FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index All products support CREAZIONE RADAR PER RALLY
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 02:33 PM
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 Collapse
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 ?
Best Regards, Saludos



Falconi Silvio
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 02:49 PM
cioè volevo fare una cosa così se era possibile


ma mi da errore di un metodo che non esiste getbtn...
Best Regards, Saludos



Falconi Silvio
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 03:19 PM

Ovviamente non li puoi mettere nell'evento paint.

Parlo delle GET.

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 03:22 PM

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

Best Regards, Saludos



Falconi Silvio
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 03:23 PM
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
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 03:48 PM
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 Collapse
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 ?
Best Regards, Saludos



Falconi Silvio
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 03:55 PM
ECCOLO !!!!!!!!!!

Code: Select all Collapse
 
#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
Best Regards, Saludos



Falconi Silvio
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 04:37 PM

Mancano le variabili delle GET.

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 04:39 PM

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

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 06:10 PM

ooppss...

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

Best Regards, Saludos



Falconi Silvio
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 06:15 PM
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 Collapse
 #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
Best Regards, Saludos



Falconi Silvio
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 06:26 PM

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

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 10:17 PM

A me no
allora ho problemi di grafica...

Best Regards, Saludos



Falconi Silvio
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
CREAZIONE RADAR PER RALLY
Posted: Sat May 13, 2006 10:23 PM

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 ?

Best Regards, Saludos



Falconi Silvio
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
CREAZIONE RADAR PER RALLY
Posted: Sun May 14, 2006 08:16 AM

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

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
Static archive · New replies & topics via GitHub Discussions