| |
| |
|
Wilfried
Friebe |
KompilierenMarcaSeparación-Begin------------------------------------------------------------------
Declare Anzahl%, i%, Name$, Browse$, länge%
Cls
TextColor @RGB(255, 0, 100), -1
Set(CharSet, 0)
UseFont ARIAL, 15, 10, 1, 0, 0
@db(Open, #1,Musik.DBF)
@db(Use, #1)
Print db-Struktur von Musik.DBF
Print Datensätze: ;&dbRecCount
Print Felder: ;%dbFCount
Print Satzgröße: ;%dbRecSize; Byte
Print Headergröße: ;%dbHeader; Byte
Print Letzte Änderung: ;$dbLUpdate
Anzahl% = %dbFCount
i% = 1
WhileNot i% > Anzahl%
@db(GetField, i%)
Print $dbFName,$dbFType,%dbFLen,%dbFDecs
Print
Print
Inc i%
EndWhile
@db(Close, #1)
Waitinput
Name$ = @LoadFile$(Welche Datei,*.DBF)
print Name$
@db(Open, #1,Name$)
@db(Use, #1)
Anzahl% = %dbFCount
i% = 1
WhileNot i% > Anzahl%
@db(GetField, i%)
länge%=%dbFLen
länge%= länge%*5
@set(Decimals,0)
Browse$=Browse$+$dbFName+;+$dbFName+;+str$(länge%)+;
Inc i%
EndWhile
@db(Browse, 10,10,ADRESS-TABELLE,10, Browse$ ,3)
print &dbRecCount
@db(AppendBlank)
@dbPack()
@dbClose(#1)
/../funzione-riferimenti/XProfan/end/'>End
Yo habe X Profano y Windows XP
Bildschirmauflösung 1280-1024 y getestet auch con 1024-768
en beiden Auflösungen es el gleiche Fehler aufgetreten
me fehlen unten en Toolbar unos pocos Pixel (siehe anhängendes Bild)
el gleiche Programa en una Notebook con Windows ME con uno
Auflösung de 1024-768 einwandfrei
wer kann me como helfen |
 |
| |
| Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit
Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit
Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins" | 22.04.2007 ▲ |
|
| |
|
|
 | Usted puede con el DRUCK-Taste Deiner Tastatur el aktuelle Bildschirmbild en el Zwischenablage ablegen. Z.B. con IRFAN-View [...]  anschliessend speichern. Ganz sin Kamera! Und Fuente Por favor, siempre con
KompilierenMarcaSeparación umschliessen. |
|
| |
| |
| |
|
|
| Zum Problema incluso: El FensterTitelzeile es en el Normallfall z.B. bajo XP höher como bajo Win98.
Vlt. auch de diesem Grund ha Roland una %cycaption Konstante erschaffen. Diese debería él en seinen Dialogen incluso nutzen. 
[offtopic]Bitte no Hinweise el el DLG eventuell por RES angehangen es.[/offtopic] |
|
| |
| |
| |
|
|
Rolf
Koch | Mist If war más rápido 
@ Wilfried: Hab el con el Code ya hecho.
¿Por qué erstellst Usted porque no direkt el Ventana unos pocos Pixel mehr?
Yo gehe su de, el Usted el Programa bajo uno älteren Windowsversion entwickelt hast? Und nun de XP zeigt se dieser Effekt.
Dies es bastante simplemente, porque hay son el Rahmen y Co algo ausgeprägter y Usted fehlen esta Pixel en el Arbeitsbereich la ventana.
Como IF ya sagte: Drucktaste drücken y una Grafikprogramm abierto (hier reicht incluso MSPAINT , es sí ya en el Sistema disponible). Dann simplemente Einfügen wählen (evtl. bearbeiten) y Guardar (al besten bajo *.png) y ya brauchste no Kamera mehr (*lol* Kamera el nenn Yo veces ne Hardcopy ) |
|
| |
| |
| |
|
|
 | Wilfried
Das liegt a el Grafik-Wut de MicroSoft - En ....XP Es el bunte Titelzeile breiter.
Yo habe me siempre con dieser Krücke geholfen:
KompilierenMarcaSeparación
Winversion 5.1 es Windows-XP |
|
| |
| |
| |
|
|
| Horst Horn
Wilfried Das liegt a el Grafik-Wut de MicroSoft - En ....XP Es el bunte Titelzeile breiter. Yo habe me siempre con dieser Krücke geholfen: KompilierenMarcaSeparaciónWinversion 5.1 es Windows-XP
Pero esto es wirklich sólo una Krücke! Tomar %cycaption |
|
| |
| |
| |
|
|
|
Pero esto es wirklich sólo una Krücke!
Aber lo klappt !  |
|
| |
| |
| |
|
|
| Horst Horn
Horst HornPero esto es wirklich sólo una Krücke! Aber lo klappt !
Aber sólo sólo en el Film.  Wenn Styles bajo XP abgestellt son Será mejor que te va ya otra vez Käse - ebenso si la Schritart grösser - o Titelzeile höher eingestellt es!  |
|
| |
| |
| |
|
|
Wilfried
Friebe | Erst una vez danke para rápido hilfe
voluntad mich heute abend ausgiebig con el Prog
beschäftigen
gez
Wilfried F |
|
| |
| Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit
Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit
Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins" | 22.04.2007 ▲ |
|
| |
|
|
Sebastian
Sprenger | IF
Vlt. auch de diesem Grund ha Roland una %cycaption Konstante erschaffen. Diese debería él en seinen Dialogen incluso nutzen.
Ach el hay inzwischen? Laut Ayuda aber sólo de XProfan 9...
¡Hola Wilfried,
si du todavía kein XProfan 9 hast, pero sólo XProfan 8 (así genau hast Si es usted el por desgracia, no angegeben), entonces kannst du auch folgenden Code benutzen...
KompilierenMarcaSeparaciónLo son sicher elegantere Lösungen (z.B. en API GetSystemMetrics), funktioniert aber ya seit Profano 7 wunderbar. So puede ser auch sichergehen, dass el Zeichenfläche la ventana en cada Sistema exakt así breit y hoch es como gewünscht.
Saludo, Sebastian |
|
| |
|  Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32 Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM Windows Me, 1.8 Ghz, 256 MB RAM | 22.04.2007 ▲ |
|
| |
|
|
| Hm Su Setwindowpos es aber syntaktisch así no IO - wegen el Minus mi Yo.
Yo habe como ya oft que aquí Nuevo:
KompilierenMarcaSeparación |
|
| |
| |
| |
|
|
Sebastian
Sprenger | Hola si,
nun sí, es no necesariamente schön, aber syntaktisch scheint lo durchaus korrekt a ser. Zumindest ha Profano solche Zeilen en me todavía cada vez toleriert. 
Saludo, Sebastian |
|
| |
| Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32 Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM Windows Me, 1.8 Ghz, 256 MB RAM | 22.04.2007 ▲ |
|
| |
|
(1.794)
Deutsch
English
Français
Español
Italia