Newsgroup: it.comp.appl.access
Titolo: Impostare il tipo carattere e la dimensione per la caption di una maschera

Un mio applicativo cambia il tipo di carattere in base alle opzioni scelte .
Si puņ acmbiare anche il tipo di carattere per i msgbox e per i titoli delle
maschere .
es
Forms!Esperto!elenco0.FontName = "alice_5"
funziona perfettamente
ma come posso fare per cambiare il carattere del titolo dela maschera da
codice
Forms!Esperto.Caption = titolo
Stefano

 news:uRt%9.169332$AA2.6...@news2.tin.it...

    Sono impostazioni che riguardano l'interfaccia generale del sistema
operativo e come tali possono essere modificate da pannello di controllo per
tutte le applicazioni. Sono anche una scelta personale dell'utente che
sarebbe opportuno rispettare quindi non so se ti convenga proseguire la
ricerca.
    Puoi pero' fare piu' o meno cio' che vuoi costruendo una tua propria
interfaccia, con uno stramassiccio uso dell'API di Windows. Ma questa e' una
strada un po' duretta...
    Un sistema alternativo, tutto sommato semplice e che potrebbe dare
qualche soddisfazione e' quello di operare con maschere prive degli elementi
che vuoi personalizzare, cioe' senza testo per l'Etichetta e con Stile
bordo: nessuno. Su una tale maschera potresti simulare le funzioni che ti
servono con controlli tipo pulsanti, etichette, gruppi di opzione,
rettangoli...
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 > Si può acmbiare anche il tipo di carattere per i msgbox e per i titoli

Al di là che non ho trovato API che consentano di modificare Dimensioni e
FontType
dell'intestazione, e questo per chiederti eventualmente lumi, sai che le API
le mangio a
colazione......! ;-)   vorrei proporre una soluzione mista di API, che
ritengo semplice.
Ora se imposti lo stile del Bordo =Nessuno, ottieni una Form senza Testata,
cosa da poco
la fai con una label colorata di Blu in cui metti FontSize e FontType che
vuoi.
Ora il problema è che anche la Form non ha bordo, benissimo un bel
Shape(Rettangolo)
in cui cambieremo il Rilievo, esattamente grosso come la Form.
1)Abbiamo la Testata che ci serve
2)Abbiamo rimesso il Bordo in Rilievo della FORM
3)Non la possiamo spostare.......!!!
Quì mettiamo le API.
Private Declare Function apiSendMessage Lib "user32" _
  Alias "SendMessageA" _
  (ByVal hWnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long
Private Declare Function apiReleaseCapture Lib "user32" _
  Alias "ReleaseCapture" () As Long
Private Sub Detail_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Call MoveForm(Me.hWnd, WM_SYSCOMMAND, SC_MOVE_MOUSE, 0)
End Sub
Public Function MoveForm(ByVal hWnd As Long, _
                         ByVal wMsg As Long, _
                         ByVal wParam As Long, _
                         lParam As Variant) As Long
apiReleaseCapture
Call apiSendMessage(hWnd, wMsg, wParam, lParam)
End Function
@Alex.

 ritengo semplice.
[...]
    Benissimo. Concettualmente e' proprio cio' che intendevo. Poi ognuno si
sbizzarrisce come puo' e come vuole.


 ha scritto nel messaggio
news:b1md0q$14ep1p$1...@ID-52090.news.dfncis.de...

Si in effetti rileggendo ho capito cosa intendevi, è la tecnica
dell'applicazione
degli Skin.......!
In effetti è esattamente quello che ho detto, non avendo capito bene il tuo
post...!
Bene.........!
Ciao @Alex.

 ha scritto nel messaggio
news:UqC%9.80449$ZE.22...@twister2.libero.it...

Grazie sono riuscito a fare più o meno quello che mi serviva usando i vostri
consigli
devo ammettere che è un po complicato.
la prossima settimana lo provo sul campo sperando di non avere problemi con
le api (visto che lo devo usare su computer con sistama thailandese)
stefano

 thailandese) stefano
    Siam curiosi di sapere come t'hai cavata...
