| |
| |
|
Joerg | allô liebe XProfaner,
laisser sich qui Spaltenbreiten einer Gridbox auslesen? je voudrais cet volontiers beim sortir de des Programms sichern...
merci et viele Grüße!!
Jörg
(XProfan X3.1/Win10 x64) |
|
| |
| |
| |
|
|
Georg
Teles | Nabend
Hmm SendMessage habe je encore nie so verwendet, mais so funktionierts sur jeden le cas
'~LVM_GETCOLUMNWIDTH
'1. paramètre: index qui Spalte
'2. paramètre: muss 0 son !
$H commctrl.ph
CLS
declare grid&
grid& = Créer("gridbox",%HWnd,"eins;0;50;zwei;1;75;drei;2;100",0,5,50,400,200)
addstring(grid&,"11|22|33")
tandis que 1
waitinput
locate 0,0
imprimer "1. Spalte: "+Str$(SendMessage(grid&,~LVM_GETCOLUMNWIDTH,0,0))+" Pixel "
imprimer "2. Spalte: "+Str$(SendMessage(grid&,~LVM_GETCOLUMNWIDTH,1,0))+" Pixel "
imprimer "3. Spalte: "+Str$(SendMessage(grid&,~LVM_GETCOLUMNWIDTH,2,0))+" Pixel "
endwhile
waitinput
salut |
|
| |
| |
| |
|
|
Joerg | allô Georg,
c'est prima, vielen Dank! Sollte mich peut-être aussi la fois avec den Headerdateien beschäftigen... peux Vous verständliche introduction dans cela Thema empfehlen? dans qui XProfan Aider wird cela oui seulement kurz beschrieben...
Nochmals merci!
Salut Jörg |
|
| |
| |
| |
|
|
Georg
Teles | de rien --- Einführungstechnisch serait je Dir Listview.DLL de Frank empfehlen, malheureusement finde je qui DLL im Forum justement pas, weiss également pas quelle Version qui dernier ist, habe vous nie genutzt, habe vous mais dans mon Archiv irgendwo, muss la fois après chercher ...
sonst gibt es ici qui En-tête Dossier [...]  ou bien Du arbeitest toi direct ici par [...]
Grüße |
|
| |
| |
| |
|
|
RGH | là qui Messages oui pas partie einer Programmiersprache sommes, mais partie qui Windows-API, findet on viele Informationen chez Microsoft selber, allerdings meist dans Englisch.
Mir hat beim Entwickeln de XProfan folgendes allemand livre très geholfen:
Richard J. Simon, Windows 95/Windows NT API Bible, ruban 2: Steuerelemente & Nouvelles, SAMS 1996
cela 1088 Seiten starke Werk hat autrefois 129 DM (ca. 66€) gekostet et ist avec quelque chose Glück encore gebraucht disponible. Es hat un très übersichtliches table des matières et un très gutes Register. Alle Messages volonté ausführlichst, teils avec Beispielen dans C, beschrieben. trop chacun Gruppe de Steuerelementen gibt es zunächst une introduction et Vue d'ensemble.
(ruban 1 ist aussi empfehlenswert: Win 32 Programmation.)
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 | 29.06.2016 ▲ |
|
| |
|
|
Joerg | ...herzlichen Dank pour Eure Tipps! c'est reichlich Stoff! Frank bietet qui DLL zum Télécharger sur seiner Webseite à. cela angesprochene livre habe je réellement encore trouvé. cela leiste je mir comme léger verdauliche Urlaubslektüre 
Viele Grüße!
Jörg |
|
| |
| |
| |
|
|
H.Brill | Ab XProfanX2 brauchst du eigentlich gar aucun
Include ou bien .ph pour qui Listview.dll. au maximum
pour qui paire selbst definierten Funktionen dans qui
.inc. Ab X2 ist ImportDll() dein Feund.
Beispiel :
Déclarer Handle dll, grid, btn1, btn2, btn3
Déclarer String TArray[], fichier, sp1, sp2, sp3, eintrag
Déclarer Int ende, offset
Déclarer Memory bereich
Déclarer dll&
Faible bereich, 12' pour 3 Stringadressen
dll = ImportDll($PROGDIR + "Listview.dll", »)
Utilisateur Messages $10
sp1 = "Name"
sp2 = "Ort"
sp3 = "Telefon"
ende = 0
fichier = $PROGDIR + "\Adressen.csv"
Titre de la fenêtre "Adressen"
Fenêtre 600, 400
btn1 = @Créer("Button", %HWnd, "Lade", 10, 10, 60, 25)
btn2 = @Créer("Button", %HWnd, "Speichere", 80, 10, 80, 25)
btn3 = @Créer("Button", %HWnd, "Clear", 170, 10, 80, 25)
grid = CreateListview(%HWnd, %HInstance, 0, $ffffff, -1, $31)
IColumn(grid, sp1, 100, 0)
IColumn(grid, sp2, 320, 0)
IColumn(grid, sp3, 100, 2)
InitMessages(%HWnd)
EnableEdits(grid, 1 + 8)
InsertItems()
ShowListview(grid, 10, 80, 530, 200)
WhileNot ende
WaitInput
Si @Clicked(btn1)
Lade()
ElseIf @Clicked(btn2)
Speichere()
ElseIf @Clicked(btn3)
ClearList grid
EndIf
Si %UMessage = $10
ende = 1
EndIf
Endwhile
FreeDll dll
Dispose bereich
Fin
Proc Lade
Déclarer Int bytes1, bytes2
Déclarer String En-tête
Si FileExists(fichier)
ClearList 0
Move("FileToList", fichier)
En-tête = GetString$(0, 0)' ici la hâte du qui Headerzeile
DeleteString(0, 0)
ClearList grid
Move("ListToHandle", grid)
D'autre
Speichere()
EndIf
ENDPROC
Proc Speichere
Déclarer Memory bereich1
Faible bereich1, 256
Déclarer Int bytes1, bytes2, anzahlColumns
Déclarer String En-tête
anzahlColumns = GetColumns(grid)
WhileLoop 0, anzahlColumns - 1
Claire bereich1
GetColumnName(grid, bereich1, &LOOP)
Si &LOOP < (anzahlColumns - 1)
En-tête = En-tête + String$(bereich1, 0) + »
ElseIf &LOOP = (anzahlColumns - 1)
En-tête = En-tête + String$(bereich1, 0)
EndIf
Endwhile
ClearList 0
AddStrings(0, En-tête)
Move("HandleToList", grid)
Move("ListToFile", fichier)
Messagebox(fichier + " gespeichert", "Info", 0)
Dispose bereich1
ENDPROC
Proc InsertItems
Claire bereich
Move("StringAdressenToMem", "Maier,Hamburg,4711", », bereich)
SItem(grid, bereich, 3)
Claire bereich
Move("StringAdressenToMem", "Schmidt,Köln,4712", », bereich)
SItem(grid, bereich, 3)
Claire bereich
Move("StringAdressenToMem", "Klein,Frankfurt,4713", », bereich)
SItem(grid, bereich, 3)
Claire bereich
Move("StringAdressenToMem", "Müller,Berlin,4714", », bereich)
SItem(grid, bereich, 3)
Move("StringAdressenToMem", "Blaubär,Düsseldorf,4715", », bereich)
SItem(grid, bereich, 3)
ENDPROC
SUBPROC Move.StringAdressenToMem
Paramètres String s, String d, Memory B
Déclarer Long anzahl
Faible$ 0
ClearList 0
Claire B, TArray[]
anzahl = Move("StrToList", s, d)
anzahl = Move("ListToArr", TArray[])
Var Int z = 0
WhileLoop 0, anzahl - 1
Long B, z = Addr(TArray[&LOOP])
Inc z, 4
Endwhile
Retour anzahl
ENDPROC
|
|
| |
| 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. | 30.06.2016 ▲ |
|
| |
|
(812)
Deutsch
English
Français
Español
Italia