
Ho iniziato il restyling del programma, il cui cuore è scritto in Rapid-Q, linguaggio che comincia a mostrare gli anni, almeno nella grafica. Pe questo motivo, e per altri, ho iniziato a costruire DLL (librerie) più attuali.
Nell'immagine, ad esempio, la nuova (!?!) finestra di dialogo, per ora applicata solo alle Apri BMP eTGA del solo menu File. Così comincio a mandare in soffitta la vecchia QOPENDIALOG originale. Se ci fossero problemi gradirei un feedback... grazie!
...nel caso qualche Rapid-Quista fosse interessato all'uso della 3Drgb.dll, tra le varie funzioni, che prima poi pubblicherò, quando saranno più mature, riporto qui il codice da includere nel sorgente:
nelle dichiarazioni:
DECLARE FUNCTION OpenFileDialog Lib "3Drgb.DLL" alias "ShowOpenFileDialog" (ByVal wH as long, ByVal fileN as long, ByVal filter as long, ByVal Dir$ as string, ByVal title$ as string) as long
e nelle chiamate, un esempio:
filter$="BMP Files (*.bmp)"+CHR$(0)+"*.bmp"+CHR$(0)+CHR$(0)
sFileName="" : sFileName=sFileName+SPACE$(254-LEN(sFileName))
IF OpenFileDialog(form.handle,varptr(sFileName),varptr(filter$),curdir$,"") THEN
sFileName=MID$(sFileName,1,INSTR(sFileName,chr$(0))-1)
........
END IF
ps: l'argomento di curdir$ deve contenere il percorso della cartella che si vuole aprire inizialmente, ma è già una parola chiave di RQ, non usatela come variabile se puntate ad un altro percorso! (lol), l'ultimo argomento, che ho lasciato vuoto, può contenere il nome della finestra, ma a me il nome Apri di default stava già benissimo. Poi, le stringhe del C, hanno da trattare questa menata delle lunghezze prefissate e dei codici di fine stringa... (doppio &sadec. zero)
AVVISO : importante aggiornamento 3DLite-OpenGL alla vers.0.1.5
FIX della carica di texture BMP fuori MODULO 8 sulla linea di byte rgb (ad esempio 512x513pxl)
Formati di questo genere NON andrebbero assolutamente usati nella grafica tridimensionale, per cui non mi ero mai accorto della codifica della microzozz di questi casi (folli come sempre, brrrr, meglio lasciar perdere). Comunque, anche questo tipo di BMP, ripeto, da non usare in world, ora 3DLite se le carica correttamente...
Nell'immagine, ad esempio, la nuova (!?!) finestra di dialogo, per ora applicata solo alle Apri BMP eTGA del solo menu File. Così comincio a mandare in soffitta la vecchia QOPENDIALOG originale. Se ci fossero problemi gradirei un feedback... grazie!
...nel caso qualche Rapid-Quista fosse interessato all'uso della 3Drgb.dll, tra le varie funzioni, che prima poi pubblicherò, quando saranno più mature, riporto qui il codice da includere nel sorgente:
nelle dichiarazioni:
DECLARE FUNCTION OpenFileDialog Lib "3Drgb.DLL" alias "ShowOpenFileDialog" (ByVal wH as long, ByVal fileN as long, ByVal filter as long, ByVal Dir$ as string, ByVal title$ as string) as long
e nelle chiamate, un esempio:
filter$="BMP Files (*.bmp)"+CHR$(0)+"*.bmp"+CHR$(0)+CHR$(0)
sFileName="" : sFileName=sFileName+SPACE$(254-LEN(sFileName))
IF OpenFileDialog(form.handle,varptr(sFileName),varptr(filter$),curdir$,"") THEN
sFileName=MID$(sFileName,1,INSTR(sFileName,chr$(0))-1)
........
END IF
ps: l'argomento di curdir$ deve contenere il percorso della cartella che si vuole aprire inizialmente, ma è già una parola chiave di RQ, non usatela come variabile se puntate ad un altro percorso! (lol), l'ultimo argomento, che ho lasciato vuoto, può contenere il nome della finestra, ma a me il nome Apri di default stava già benissimo. Poi, le stringhe del C, hanno da trattare questa menata delle lunghezze prefissate e dei codici di fine stringa... (doppio &sadec. zero)
AVVISO : importante aggiornamento 3DLite-OpenGL alla vers.0.1.5
FIX della carica di texture BMP fuori MODULO 8 sulla linea di byte rgb (ad esempio 512x513pxl)
Formati di questo genere NON andrebbero assolutamente usati nella grafica tridimensionale, per cui non mi ero mai accorto della codifica della microzozz di questi casi (folli come sempre, brrrr, meglio lasciar perdere). Comunque, anche questo tipo di BMP, ripeto, da non usare in world, ora 3DLite se le carica correttamente...
Commenti : 0
