| |
| |
|
Uwe
''Pascal''
Niemeier | Hi Personas, hallo Roland!
Mir es gerade aufgefallen, daß beim profanen TreeView("InsertItem"..) para el betroffene TreeView automáticamente el con SetDialogFont eingestellte Font aktiv gesetzt se, unabhängig su, si uno vorher el Tv una eigenen Font zugewiesen ha:
window 500,500
usefont "MS Sans Serif",15,0,0,0,0
setdialogfont 1
$H commctrl.ph
var Tv&=create("TreeView",%hwnd,0,50,10,400,400)
setfont Tv&,create("Font",Arial,0,0,1,1,1)
struct TV = Parent&,InsertAfter&,Mask&,Item&,State&,StateMask&,Text&,TextMax&,Icon1&,Icon2&,Children&,Data&,Texto$(100)
declarar Tv#:dim Tv#,TV
Tv#.Mask&=~TVIF_TEXT | ~TVIF_IMAGE | ~TVIF_SELECTEDIMAGE | ~TVIF_CHILDREN | ~TVIF_STATE
Tv#.State&=~TVIS_EXPANDED
Tv#.Statemask&=~TVIS_EXPANDED
Tv#.Text&=Tv#+48
Tv#.TextMax&=100
Tv#.Texto$="Eintrag por TvMessage"
sendmessage(Tv&,~TVM_INSERTITEM,0,Tv#)
sleep 1000
TreeView("InsertItem",Tv&,0,0,"Eintrag por InsertItem")
waitinput
Das erscheint me wenig sinnvoll, porque uno en el Zweifelsfall antes cada InsertItem el Dialogfont de- y danach otra vez einschalten müßte, un el eigenen Font a behalten...
SeeYou
Pascal |
|
| |
| |
| |
|
|
RGH | ¡Hola Pascal,
el passiert aber sólo, si SetDialogFont 1 gesetzt es! Wozu setzt Usted ihn en 1, si el Diálogo eh' con SetFont una eigenen Font zuweist?
Unabhängig su, debería natürlich una InsertItem niocht el Font verändern ... Yo schaue veces ...
Saludo
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 26.01.2011 ▲ |
|
| |
|
|
RGH | Ok, como fue un Línea a viel en el Code. El fliegt todavía 'raus.
Saludo
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 26.01.2011 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | Hi Roland!
el passiert aber sólo, si SetDialogFont 1 gesetzt es! Wozu setzt Usted ihn en 1, si el Diálogo eh' con SetFont una eigenen Font zuweist?
Für el restlichen y todos todavía folgenden Bedienungselemente außer el Tree, así Yo el no todos con SetFont bearbeiten muß...
Ok, como fue un Línea a viel en el Code. El fliegt todavía 'raus.
SeeYou
Pascal |
|
| |
| |
| |
|
(2.292)
Deutsch
English
Français
Español
Italia