| |
| |
|
Frank
Abbing | Hi,
here times the one Source, circa different Fonts for listview Image and text in-Header (Spaltentexte) To release. sees somehow class from!
The Source must to the List view-Profancodes the List view.dll Pakets copies go, because it data of there nachlädt.
CompileMarkSeparationSetErrorlevel 0
Declare bereich#,listview&,lvdll&,text$,bytes&,bereich#,x&,y&,z&,font1&,font2&
Def GetSysColor(1) !"USER32","GetSysColor"
$I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
SetTrueColor 1
Windowstyle 543
Windowtitle "Unterschiedliche Fonts für Listview und Listview-Header..."
Window 0,0-800,600
Cls GetSysColor(15)
font1&=@Create("Font","MS Sans Serif",10,0,0,0,0)
font2&=@Create("Font","Tahoma",24,0,0,0,0)
listview&=CreateListView(%hwnd,%hinstance,0,$FFFFFF,-1,$31)
EnableEdits(listview&,1)
InsertColumn listview&,"Lagercode",64,0
InsertColumn listview&,"Artikelnummer",64,0
InsertColumn listview&,"Warengruppe",148,0
InsertColumn listview&,"Artikelbezeichnung",200,0
InsertColumn listview&,"Artikelbeschreibung",150,0
InsertColumn listview&,"Preis",50,1
AutoSortListview listview&,1,1,1,1,1,2
text$="LVData/C64.csv"
bytes&=@FileSize(text$)
If bytes&>0
Dim bereich#,bytes&
ReadFileQuick(addr(text$),bereich#,0,bytes&)
CsvToListview(listview&,bereich#,bytes&,6)
Dispose bereich#
EndIf
x&=SendMessage(listview&,$101f,0,0) LVM_GETHEADER
SetFont listview&,font1& Font im Gesamt-Listview setzen
SetFont x&,font2& Extrafont für Header setzen
ShowListView(listview&,32,32,728,480)
InitMessages(%hwnd)
While 1
waitinput
Case %key=2:BREAK
Wend
CloseMessages(%hwnd)
freedll lvdll&
DeleteObject font1&
DeleteObject font2&
$I Listview_Dispose.inc
/../function-references/XProfan/end/'>End
|
|
| |
| |
| |
|
|
Fernando
Santos | class, Frank
greeting
Pedro |
|
| |
| |
| |
|
|
H.Brill | Hi,
i want the users whom Font-selection-
dialog available to put, circa then the
LV whom suitable Font To miss out on.
in the Profan Help Although an example
for dialog (API with Übergabe of/ one structure)
thereby, but How I get the lever the
selected Fonts ? whom Fontnamen and the
Size undergo I Yes from the übergebenen
structure, only the lever not.
has someone one code - shred ? |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 08/07/05 ▲ |
|
| |
|
|
Frank
Abbing | Hi,
hm, really must You only whom Font-Dialogue with ChooseFont (API from the Comdlg32.dll) Call. in the now gefüllten CHOOSEFONT-structure there u.a. whom Zeiger LPLOGFONT. Diesen worth commit You on The API CreateFontIndirect and erhälst so whom lever. |
|
| |
| |
| |
|
(446)
Deutsch
English
Français
Español
Italia