| |
| |
|
Uwe
''Pascal''
Niemeier | Hi people, Hello Roland!
i'm straight noticed, that at profanen TreeView("InsertItem"..) for the betroffene TreeView automatically the with SetDialogFont tuned Font active staid becomes, independent of it, whether one before the Tv a own Font allocated has:
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&,Text$(100)
declare 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#.Text$="Eintrag by TvMessage"
sendmessage(Tv&,~TVM_INSERTITEM,0,Tv#)
sleep 1000
TreeView("InsertItem",Tv&,0,0,"Eintrag by InsertItem")
waitinput
the appear me little meaningfully, because one in the Zweifelsfall before each InsertItem whom Dialogfont ex- and thereafter again on should, un whom own Font To keep...
SeeYou
Pascal |
|
| |
| |
| |
|
|
RGH | Hello Pascal,
the happens but only, if SetDialogFont 1 staid is! Wozu setting You it on 1, if you the dialog eh' with SetFont a own Font zuweist?
self-contained of it, ought to naturally one InsertItem niocht whom Font change ... I look time ...
Greeting
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 | 01/26/11 ▲ |
|
| |
|
|
RGH | OK, there was a row To plenty in the code. The fly yet 'raus.
Greeting
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 | 01/26/11 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | Hi Roland!
the happens but only, if SetDialogFont 1 staid is! Wozu setting You it on 1, if you the dialog eh' with SetFont a own Font zuweist?
for the restlichen and any yet subesquent Bedienungselemente except the Tree, so I The not any with SetFont Edit must...
OK, there was a row To plenty in the code. The fly yet 'raus.
SeeYou
Pascal |
|
| |
| |
| |
|
(266)
Deutsch
English
Français
Español
Italia