| |
| |
|
Wilfried
Friebe |
KompilierenMarqueSéparation-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/'>Fin
j'ai X Profan et Windows XP
Bildschirmauflösung 1280-1024 et getestet aussi avec 1024-768
chez beiden Auflösungen ist qui gleiche faute aufgetreten
mir manquer unten chez qui Toolbar un paire Pixel (siehe anhängendes Bild)
cela gleiche Programme sur einem Notebook avec Windows ME avec einer
Auflösung de 1024-768 einwandfrei
qui peux mir là aider |
 |
| |
| 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 ▲ |
|
| |
|
|
 | tu peux avec qui DRUCK-bouton Deiner clavier cela aktuelle Bildschirmbild dans qui Zwischenablage enlever. Z.B. avec IRFAN-View [...]  anschliessend Sauver. entier sans caméra! et Source s'il te plaît toujours avec
KompilierenMarqueSéparation umschliessen. |
|
| |
| |
| |
|
|
| Zum Problem selbst: qui FensterTitelzeile ist im Normallfall z.B. sous XP höher comme sous Win98.
Vlt. aussi aus diesem Grund hat Roland une %cycaption Konstante erschaffen. cet sollte il dans seinen Dialogen selbst nutzen. 
[offtopic]s'il te plaît aucun Hinweise cela qui DLG eventuell per RES angehangen ist.[/offtopic] |
|
| |
| |
| |
|
|
Rolf
Koch | Mist Si était plus rapide 
@ Wilfried: Hab cela avec dem Code déjà erledigt.
pourquoi erstellst Du car pas direct cela la fenêtre un paire Pixel plus?
je vais en aus, cela Du cela Programme sous einer älteren Version Windows entwickelt la hâte? et eh bien ab XP zeigt sich cette effet.
ca ist entier simple, car là sommes qui cadre et Co quelque chose ausgeprägter et Dir manquer cet Pixel im Arbeitsbereich des Fensters.
comment iF bereits sagte: Drucktaste drücken et un Grafikprogramm ouvrir (ici reicht sogar MSPAINT , ist oui bereits sur dem System vorhanden). ensuite simple insérer choisir (peut-être. Travailler) et Sauver (am besten sous *.png) et déjà brauchste aucun caméra plus (*lol* caméra cela nenn je la fois ne Hardcopy ) |
|
| |
| |
| |
|
|
 | Wilfried
cela liegt à qui Grafik-Wut de MicroSoft - chez ....XP ist qui bunte Titelzeile plus large.
j'ai mir toujours avec cette Krücke geholfen:
KompilierenMarqueSéparation
Winversion 5.1 ist Windows-XP |
|
| |
| |
| |
|
|
| Horst Horn
Wilfried cela liegt à qui Grafik-Wut de MicroSoft - chez ....XP ist qui bunte Titelzeile plus large. j'ai mir toujours avec cette Krücke geholfen: KompilierenMarqueSéparationWinversion 5.1 ist Windows-XP
c'est mais wirklich seulement une Krücke! prends %cycaption |
|
| |
| |
| |
|
|
|
c'est mais wirklich seulement une Krücke!
mais es klappt !  |
|
| |
| |
| |
|
|
| Horst Horn
Horst Hornc'est mais wirklich seulement une Krücke! mais es klappt !
mais arrêt seulement im film.  si Styles sous XP abgestellt sommes wirds encore fromage - ebenso si le Schritart grösser - ou bien qui Titelzeile höher eingestellt ist!  |
|
| |
| |
| |
|
|
Wilfried
Friebe | seulement einmal merci pour qui schnelle hilfe
werde mich ce soir ausgiebig avec dem 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. aussi aus diesem Grund hat Roland une %cycaption Konstante erschaffen. cet sollte il dans seinen Dialogen selbst nutzen.
ah cela gibt es inzwischen? le son Aider mais seulement ab XProfan 9...
allô Wilfried,
si du encore ne...aucune XProfan 9 la hâte, mais seulement XProfan 8 (so oui c'est ca la hâte du cela malheureusement pas angegeben), ensuite peux du aussi folgenden Code benutzen...
KompilierenMarqueSéparationil y a sûrement elegantere Lösungen (z.B. sur qui API GetSystemMetrics), funktioniert mais déjà depuis Profan 7 wunderbar. So peux on aussi sichergehen, dass qui Zeichenfläche des Fensters sur chaque System exakt so breit et hoch ist comment gewünscht.
Salut, 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 Dein Setwindowpos ist mais syntaktisch so pas IO - à cause de dem Minus mon je.
j'ai là déjà souvent que voici posté:
KompilierenMarqueSéparation |
|
| |
| |
| |
|
|
Sebastian
Sprenger | allô iF,
eh bien, c'est pas absolument joli, mais syntaktisch scheint es durchaus korrekt trop son. Zumindest hat Profan solche Zeilen chez mir encore chaque la fois toleriert. 
Salut, 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 ▲ |
|
| |
|
(491)
Deutsch
English
Français
Español
Italia