| |
| |
|
Joerg | ¡Hola liebe XProfan,
dejar el Spaltenbreiten uno Gridbox auslesen? Yo möchte esta gerne beim Verlassen des Programms sichern...
Gracias y viele Grüße!!
Jörg
(XProfan X3.1/Win10 x64) |
|
| |
| |
| |
|
|
Georg
Teles | Nabend
Hmm SendMessage Todavía nie así verwendet, aber así funktionierts en cada Fall
'~LVM_GETCOLUMNWIDTH
'1. Parámetro: Index el Spalte
'2. Parámetro: muss 0 ser !
$H commctrl.ph
CLS
declarar grid&
grid& = Crear("gridbox",%HWnd,"eins;0;50;zwei;1;75;drei;2;100",0,5,50,400,200)
addstring(grid&,"11|22|33")
mientras que 1
waitinput
locate 0,0
imprimir "1. Spalte: "+Str$(SendMessage(grid&,~LVM_GETCOLUMNWIDTH,0,0))+" Pixel "
imprimir "2. Spalte: "+Str$(SendMessage(grid&,~LVM_GETCOLUMNWIDTH,1,0))+" Pixel "
imprimir "3. Spalte: "+Str$(SendMessage(grid&,~LVM_GETCOLUMNWIDTH,2,0))+" Pixel "
endwhile
waitinput
Servus |
|
| |
| |
| |
|
|
Joerg | ¡Hola Georg,
el es prima, vielen Dank! Sollte mich tal vez auch veces con el Encabezamiento beschäftigen... ¿Puede Es usted un verständliche Einführung en el Thema empfehlen? In el XProfan Ayuda se el sí sólo kurz beschrieben...
Nochmals danke!
Saludo Jörg |
|
| |
| |
| |
|
|
Georg
Teles | Gern geschehen --- Einführungstechnisch sería Yo Usted Listview.DLL de Franco empfehlen, desafortunadamente finde Yo el DLL en el Foro gerade no, blanco ebenfalls no welche Versión el letzte es, habe ellos nie genutzt, habe ellos aber en mi Archiv irgendwo, muss veces danach suchen ...
sonst hay hier el Encabezamiento Expediente [...]  oder Usted arbeitest Usted direkt hier por [...]
Grüße |
|
| |
| |
| |
|
|
RGH | Como el Messages sí no Teil un lenguaje de programación son, pero Teil el Windows-API, findet uno viele Informationen en Microsoft selber, allerdings meist en Inglés.
Mir ha beim Entwickeln de XProfan folgendes Alemán Buch muy geholfen:
Richard J. Simon, Windows 95/Windows NT API Bible, Band 2: Steuerelemente & Noticias, SAMS 1996
Das 1088 Páginas starke Werk ha damals 129 DM (ca. 66€) gekostet y es con algo Glück todavía gebraucht erhältlich. Lo ha una muy übersichtliches Inhaltsverzeichnis y una muy gutes Register. Alle Messages voluntad ausführlichst, teils con Beispielen en C, beschrieben. Zu cada Gruppe de Steuerelementen hay primero una Einführung y Información general.
(Band 1 es auch empfehlenswert: Win 32 Programación.)
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 | 29.06.2016 ▲ |
|
| |
|
|
Joerg | ...herzlichen Dank para Eure Tipps! Es reichlich Stoff! Franco bietet el DLL para Descargar en su Webseite a. Das angesprochene Buch Yo tatsächlich todavía gefunden. Das leiste Yo como ligeramente verdauliche Urlaubslektüre 
Viele Grüße!
Jörg |
|
| |
| |
| |
|
|
H.Brill | Ab XProfanX2 necesidad du eigentlich gar no
Incluir oder .ph para el Listview.dll. Höchstens
para el pocos incluso definierten Características en el
.inc. Ab X2 es ImportDll() dein Feund.
Ejemplo :
Declarar Handle dll, grid, btn1, btn2, btn3
Declarar String TArray[], datei, sp1, sp2, sp3, eintrag
Declarar Int ende, offset
Declarar Memory bereich
Declarar dll&
Dim bereich, 12' para 3 Stringadressen
dll = ImportDll($PROGDIR + "Listview.dll", "")
Mensajes del usuario $10
sp1 = "Name"
sp2 = "Ort"
sp3 = "Telefon"
ende = 0
datei = $PROGDIR + "\Adressen.csv"
Título de la ventana "Adressen"
Ventana 600, 400
btn1 = @Crear("Button", %HWnd, "Lade", 10, 10, 60, 25)
btn2 = @Crear("Button", %HWnd, "Speichere", 80, 10, 80, 25)
btn3 = @Crear("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)
Sinestar encargado ende
WaitInput
If @Clicked(btn1)
Lade()
ElseIf @Clicked(btn2)
Speichere()
ElseIf @Clicked(btn3)
ClearList grid
EndIf
If %UMessage = $10
ende = 1
EndIf
EndWhile
FreeDll dll
Disponer bereich
End
Proc Lade
Declarar Int bytes1, bytes2
Declarar String Encabezamiento
If FileExists(datei)
ClearList 0
Move("FileToList", datei)
Encabezamiento = GetString$(0, 0)' Hier hast du el Headerzeile
DeleteString(0, 0)
ClearList grid
Move("ListToHandle", grid)
Más
Speichere()
EndIf
ENDPROC
Proc Speichere
Declarar Memory bereich1
Dim bereich1, 256
Declarar Int bytes1, bytes2, anzahlColumns
Declarar String Encabezamiento
anzahlColumns = GetColumns(grid)
WhileLoop 0, anzahlColumns - 1
Claro bereich1
GetColumnName(grid, bereich1, &LOOP)
If &LOOP < (anzahlColumns - 1)
Encabezamiento = Encabezamiento + String$(bereich1, 0) + ","
ElseIf &LOOP = (anzahlColumns - 1)
Encabezamiento = Encabezamiento + String$(bereich1, 0)
EndIf
EndWhile
ClearList 0
AddStrings(0, Encabezamiento)
Move("HandleToList", grid)
Move("ListToFile", datei)
Messagebox(datei + " gespeichert", "Info", 0)
Disponer bereich1
ENDPROC
Proc InsertItems
Claro bereich
Move("StringAdressenToMem", "Maier,Hamburg,4711", ",", bereich)
SItem(grid, bereich, 3)
Claro bereich
Move("StringAdressenToMem", "Schmidt,Köln,4712", ",", bereich)
SItem(grid, bereich, 3)
Claro bereich
Move("StringAdressenToMem", "Klein,Frankfurt,4713", ",", bereich)
SItem(grid, bereich, 3)
Claro 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
Parámetros String s, String d, Memory B
Declarar Largo anzahl
Dim$ 0
ClearList 0
Claro B, TArray[]
anzahl = Move("StrToList", s, d)
anzahl = Move("ListToArr", TArray[])
Var Int z = 0
WhileLoop 0, anzahl - 1
Largo B, z = Addr(TArray[&LOOP])
Inc z, 4
EndWhile
Volver 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 ▲ |
|
| |
|
(2.129)
Deutsch
English
Français
Español
Italia