| |
|
|
Uwe ''Pascal'' Niemeier | Hi gens, allô Roland!
Mir ist justement aufgefallen, qui beim profanen TreeView("InsertItem"..) pour cela betroffene TreeView automatisch qui avec SetDialogFont eingestellte Font aktiv gesetzt wird, indépendant en, si on auparavant dem Tv une eigenen Font zugewiesen hat:
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 per TvMessage"
sendmessage(Tv&,~TVM_INSERTITEM,0,Tv#)
sleep 1000
TreeView("InsertItem",Tv&,0,0,"Eintrag per InsertItem")
waitinput
cela erscheint mir wenig sinnvoll, weil on im Zweifelsfall avant chaque InsertItem den Dialogfont ab- et après wieder einschalten devrait, un den eigenen Font trop behalten...
SeeYou Pascal |
|
|
| |
|
|
|
RGH | allô Pascal,
cela passiert mais seulement, si SetDialogFont 1 gesetzt ist! Wozu mets Du ihn sur 1, si Du dem Dialog eh' avec SetFont une eigenen Font zuweist?
indépendant en, sollte naturellement un InsertItem niocht den Font verändern ... je schaue la fois ...
Salut 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, là était un la ligne trop viel im Code. qui fliegt encore 'raus.
Salut 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!
cela passiert mais seulement, si SetDialogFont 1 gesetzt ist! Wozu mets Du ihn sur 1, si Du dem Dialog eh' avec SetFont une eigenen Font zuweist?
Pour qui restlichen et alle encore folgenden Bedienungselemente sauf dem Tree, avec cela je qui pas alle avec SetFont Travailler doit...
Ok, là était un la ligne trop viel im Code. qui fliegt encore 'raus.
SeeYou Pascal |
|
|
| |
|
|