| |
| |
|
Wilfried
Friebe |
KompilierenMarkierenSeparieren-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)
End
Ich habe X Profan und Windows XP
Bildschirmauflösung 1280-1024 und getestet auch mit 1024-768
bei beiden Auflösungen ist der gleiche Fehler aufgetreten
mir fehlen unten bei der Toolbar ein paar Pixel (siehe anhängendes Bild)
das gleiche Programm auf einem Notebook mit Windows ME mit einer
Auflösung von 1024-768 einwandfrei
wer kann mir da 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 ▲ |
|
| |
|
|
 | Du kannst mit der DRUCK-Taste Deiner Tastatur das aktuelle Bildschirmbild in die Zwischenablage ablegen. Z.B. mit IRFAN-View [...]  anschliessend speichern. Ganz ohne Kamera! Und Quelltexte bitte immer mit
KompilierenMarkierenSeparieren umschliessen. |
|
| |
| |
| |
|
|
| Zum Problem selbst: Die FensterTitelzeile ist im Normallfall z.B. unter XP höher als unter Win98.
Vlt. auch aus diesem Grund hat Roland eine %cycaption Konstante erschaffen. Diese sollte er in seinen Dialogen selbst nutzen. 
[offtopic]Bitte keine Hinweise das der DLG eventuell per RES angehangen ist.[/offtopic] |
|
| |
| |
| |
|
|
Rolf
Koch | Mist If war schneller 
@ Wilfried: Hab das mit dem Code schon erledigt.
Warum erstellst Du denn nicht direkt das Fenster ein paar Pixel mehr?
Ich gehe davon aus, das Du das Programm unter einer älteren Windowsversion entwickelt hast? Und nun ab XP zeigt sich dieser Effekt.
Dies ist ganz einfach, denn dort sind die Rahmen und Co etwas ausgeprägter und Dir fehlen diese Pixel im Arbeitsbereich des Fensters.
Wie iF bereits sagte: Drucktaste drücken und ein Grafikprogramm öffnen (hier reicht sogar MSPAINT , ist ja bereits auf dem System vorhanden). Dann einfach Einfügen wählen (evtl. bearbeiten) und Speichern (am besten unter *.png) und schon brauchste keine Kamera mehr (*lol* Kamera das nenn ich mal ne Hardcopy ) |
|
| |
| |
| |
|
|
 | Wilfried
Das liegt an der Grafik-Wut von MicroSoft - Bei ....XP ist die bunte Titelzeile breiter.
Ich habe mir immer mit dieser Krücke geholfen:
KompilierenMarkierenSeparieren
Winversion 5.1 ist Windows-XP |
|
| |
| |
| |
|
|
| Horst Horn
Wilfried Das liegt an der Grafik-Wut von MicroSoft - Bei ....XP ist die bunte Titelzeile breiter. Ich habe mir immer mit dieser Krücke geholfen: KompilierenMarkierenSeparierenWinversion 5.1 ist Windows-XP
Das ist aber wirklich nur eine Krücke! Nimm %cycaption |
|
| |
| |
| |
|
|
|
Das ist aber wirklich nur eine Krücke!
Aber es klappt !  |
|
| |
| |
| |
|
|
| Horst Horn
Horst HornDas ist aber wirklich nur eine Krücke! Aber es klappt !
Aber halt nur im Film.  Wenn Styles unter XP abgestellt sind wirds schon wieder Käse - ebenso wenn die Schritart grösser - oder die Titelzeile höher eingestellt ist!  |
|
| |
| |
| |
|
|
Wilfried
Friebe | Erst einmal danke für die schnelle hilfe
werde mich heute abend ausgiebig mit 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. auch aus diesem Grund hat Roland eine %cycaption Konstante erschaffen. Diese sollte er in seinen Dialogen selbst nutzen.
Ach das gibt es inzwischen? Laut Hilfe aber erst ab XProfan 9...
Hallo Wilfried,
wenn du noch kein XProfan 9 hast, sondern erst XProfan 8 (so genau hast du das leider nicht angegeben), dann kannst du auch folgenden Code benutzen...
KompilierenMarkierenSeparierenEs gibt sicher elegantere Lösungen (z.B. über die API GetSystemMetrics), funktioniert aber schon seit Profan 7 wunderbar. So kann man auch sichergehen, dass die Zeichenfläche des Fensters auf jedem System exakt so breit und hoch ist wie gewünscht.
Gruß, 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 aber syntaktisch so nicht IO - wegen dem Minus meine ich.
Ich habe da schon oft das hier gepostet:
KompilierenMarkierenSeparieren |
|
| |
| |
| |
|
|
Sebastian
Sprenger | Hallo iF,
nun ja, es ist nicht unbedingt schön, aber syntaktisch scheint es durchaus korrekt zu sein. Zumindest hat Profan solche Zeilen bei mir noch jedes Mal toleriert. 
Gruß, 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 ▲ |
|
| |
|
(835)
Deutsch
English
Français
Español
Italia