XProfan

Kompilieren Markieren Separieren

- Page 1 -

Also bei diesem Source:

cls
DECLARE F&
DECLARE TEXT100&, TEXT101&, TEXT102&, TEXT103&, Text104&, TEXT105&, TEXT106&, TEXT107&
DECLARE TEXT108&, TEXT109&, TEXT110&, TEXT111&, TEXT112&, TEXT113&, TEXT114&, TEXT115&
DECLARE TEXT116&, TEXT117&, TEXT118&, TEXT119&, TEXT120&
DECLARE EDIT100&, EDIT101&, EDIT102&, EDIT103&, EDIT104&, EDIT105&, EDIT106&, EDIT107&
DECLARE EDIT200&, EDIT201&, EDIT202&, EDIT203&, EDIT204&, EDIT205&, EDIT206&, EDIT207&
DECLARE EDIT300&, EDIT301&, EDIT302&, EDIT303&, EDIT304&, EDIT305&, EDIT306&, EDIT307&
DECLARE EDIT400&, EDIT401&, EDIT402&, EDIT403&, EDIT404&, EDIT405&, EDIT406&, EDIT407&
DECLARE EDIT500&, EDIT501&, EDIT502&, EDIT503&, EDIT504&, EDIT505&, EDIT506&, EDIT507&
DECLARE EDIT600&, EDIT601&, EDIT602&, EDIT603&, EDIT604&, EDIT605&, EDIT606&, EDIT607&
DECLARE EDIT700&, EDIT701&, EDIT702&, EDIT703&, EDIT704&, EDIT705&, EDIT706&, EDIT707&
DECLARE EDIT800&, EDIT801&, EDIT802&, EDIT803&, EDIT804&, EDIT805&, EDIT806&, EDIT807&
DECLARE EDIT900&, EDIT901&, EDIT902&, EDIT903&, EDIT904&, EDIT905&, EDIT906&, EDIT907&
DECLARE BUTTON100& , BUTTON101&
F& = @Create(Dialog,%Hwnd,Eingabe,0,220,%maxX,500)
Startpaint F&
UseBrush 1,@RGB(150,200,250)
Rectangle 0095,0100-0194,0130
Rectangle 0195,0100-0294,0130
Rectangle 0295,0100-0394,0130
Rectangle 0395,0100-0494,0130
Rectangle 0495,0100-0594,0130
Rectangle 0595,0100-0694,0130
Rectangle 0695,0100-0724,0130
TextColor @RGB (0,0,0),-1
USEFONT MS Sans Serif,13,0,0,0,0
DRAWTEXT 0100,0108, Zeit: von    -   bis
DRAWTEXT 0205,0108, Gerätefahrer
DRAWTEXT 0305,0108, Personalkosten
DRAWTEXT 0402,0108, Arbeitsauftrag
DRAWTEXT 0505,0108, Arbeitsort
DRAWTEXT 0605,0108, Zielkosten
DRAWTEXT 0702,0108, Art
EndPaint
SETDIALOGFONT 1
TEXT104& = CREATE(TEXT,F&,Spätschicht am:,0020,0135,0200,0019)
TEXT105& = CREATE(TEXT,F&,Nachtschicht am:,0020,0220,0200,0019)
TEXT106& = CREATE(TEXT,F&,Frühschicht am:,0020,0305,0200,0019)
TEXT107& = CREATE(TEXT,F&,Hier wird geplant was das Zeug hält ...!!!,0020,0020,0200,0019)
TEXT108& = CREATE(TEXT,F&,Und zwar per das Fahrzeug:,0095,0050,0130,0019)
TEXT100& = CREATE(TEXT,F&,Merc 1,0250,0050,0070,0019)
TEXT109& = CREATE(TEXT,F&,mit dem pol. Kennzeichen:,0095,0075,0130,0019)
TEXT101& = CREATE(TEXT,F&,CB - AT 714,0250,0075,0070,0019)
TEXT110& = CREATE(TEXT,F&,und der Equipment-Nr.:,0330,0075,0110,0019)
TEXT102& = CREATE(TEXT,F&,52 15 03 11,0450,0075,0060,0019)
TEXT111& = CREATE(TEXT,F&,Funk-Nr:,0530,0075,0040,0019)
TEXT103& = CREATE(TEXT,F&,K 417,0580,0075,0030,0019)
TEXT112& = CREATE(TEXT,F&,Auftrag 1,0020,0155,0050,0019)
TEXT113& = CREATE(TEXT,F&,Auftrag 2,0020,0175,0050,0019)
TEXT114& = CREATE(TEXT,F&,Auftrag 3,0020,0195,0050,0019)
TEXT115& = CREATE(TEXT,F&,Auftrag 1,0020,0240,0050,0019)
TEXT116& = CREATE(TEXT,F&,Auftrag 2,0020,0260,0050,0019)
TEXT117& = CREATE(TEXT,F&,Auftrag 3,0020,0280,0050,0019)
TEXT118& = CREATE(TEXT,F&,Auftrag 1,0020,0325,0050,0019)
TEXT119& = CREATE(TEXT,F&,Auftrag 2,0020,0345,0050,0019)
TEXT120& = CREATE(TEXT,F&,Auftrag 3,0020,0365,0050,0019)
EDIT100& = CREATE(EDIT,F&,13:15,0095,0155,0049,0019)
EDIT101& = CREATE(EDIT,F&,14:45,0145,0155,0049,0019)
EDIT102& = CREATE(EDIT,F&,Hilprecht, A.,0195,0155,0099,0019)
EDIT103& = CREATE(EDIT,F&,15313125,0295,0155,0099,0019)
EDIT104& = CREATE(EDIT,F&,Ablösung,0395,0155,0099,0019)
EDIT105& = CREATE(EDIT,F&,F60 HAE,0495,0155,0099,0019)
EDIT106& = CREATE(EDIT,F&,15311311,0595,0155,0099,0019)
EDIT107& = CREATE(EDIT,F&,01,0695,0155,0029,0019)
EDIT200& = CREATE(EDIT,F&,14:45,0095,0175,0049,0019)
EDIT201& = CREATE(EDIT,F&,15:45,0145,0175,0049,0019)
EDIT202& = CREATE(EDIT,F&,Hilprecht, A.,0195,0175,0099,0019)
EDIT203& = CREATE(EDIT,F&,15313125,0295,0175,0099,0019)
EDIT204& = CREATE(EDIT,F&,Gleisbau,0395,0175,0099,0019)
EDIT205& = CREATE(EDIT,F&,F60 HAE,0495,0175,0099,0019)
EDIT206& = CREATE(EDIT,F&,15311321,0595,0175,0099,0019)
EDIT207& = CREATE(EDIT,F&,01,0695,0175,0029,0019)
EDIT300& = CREATE(EDIT,F&,,0095,0195,0049,0019)
EDIT301& = CREATE(EDIT,F&,,0145,0195,0049,0019)
EDIT302& = CREATE(EDIT,F&,,0195,0195,0099,0019)
EDIT303& = CREATE(EDIT,F&,,0295,0195,0099,0019)
EDIT304& = CREATE(EDIT,F&,,0395,0195,0099,0019)
EDIT305& = CREATE(EDIT,F&,,0495,0195,0099,0019)
EDIT306& = CREATE(EDIT,F&,,0595,0195,0099,0019)
EDIT307& = CREATE(EDIT,F&,,0695,0195,0029,0019)
EDIT400& = CREATE(EDIT,F&,,0095,0240,0049,0019)
EDIT401& = CREATE(EDIT,F&,,0145,0240,0049,0019)
EDIT402& = CREATE(EDIT,F&,,0195,0240,0099,0019)
EDIT403& = CREATE(EDIT,F&,,0295,0240,0099,0019)
EDIT404& = CREATE(EDIT,F&,,0395,0240,0099,0019)
EDIT405& = CREATE(EDIT,F&,,0495,0240,0099,0019)
EDIT406& = CREATE(EDIT,F&,,0595,0240,0099,0019)
EDIT407& = CREATE(EDIT,F&,,0695,0240,0029,0019)
EDIT500& = CREATE(EDIT,F&,,0095,0260,0049,0019)
EDIT501& = CREATE(EDIT,F&,,0145,0260,0049,0019)
EDIT502& = CREATE(EDIT,F&,,0195,0260,0099,0019)
EDIT503& = CREATE(EDIT,F&,,0295,0260,0099,0019)
EDIT504& = CREATE(EDIT,F&,,0395,0260,0099,0019)
EDIT505& = CREATE(EDIT,F&,,0495,0260,0099,0019)
EDIT506& = CREATE(EDIT,F&,,0595,0260,0099,0019)
EDIT507& = CREATE(EDIT,F&,,0695,0260,0029,0019)
EDIT600& = CREATE(EDIT,F&,,0095,0280,0049,0019)
EDIT601& = CREATE(EDIT,F&,,0145,0280,0049,0019)
EDIT602& = CREATE(EDIT,F&,,0195,0280,0099,0019)
EDIT603& = CREATE(EDIT,F&,,0295,0280,0099,0019)
EDIT604& = CREATE(EDIT,F&,,0395,0280,0099,0019)
EDIT605& = CREATE(EDIT,F&,,0495,0280,0099,0019)
EDIT606& = CREATE(EDIT,F&,,0595,0280,0099,0019)
EDIT607& = CREATE(EDIT,F&,,0695,0280,0029,0019)
EDIT700& = CREATE(EDIT,F&,,0095,0325,0049,0019)
EDIT701& = CREATE(EDIT,F&,,0145,0325,0049,0019)
EDIT702& = CREATE(EDIT,F&,,0195,0325,0099,0019)
EDIT703& = CREATE(EDIT,F&,,0295,0325,0099,0019)
EDIT704& = CREATE(EDIT,F&,,0395,0325,0099,0019)
EDIT705& = CREATE(EDIT,F&,,0495,0325,0099,0019)
EDIT706& = CREATE(EDIT,F&,,0595,0325,0099,0019)
EDIT707& = CREATE(EDIT,F&,,0695,0325,0029,0019)
EDIT800& = CREATE(EDIT,F&,,0095,0345,0049,0019)
EDIT801& = CREATE(EDIT,F&,,0145,0345,0049,0019)
EDIT802& = CREATE(EDIT,F&,,0195,0345,0099,0019)
EDIT803& = CREATE(EDIT,F&,,0295,0345,0099,0019)
EDIT804& = CREATE(EDIT,F&,,0395,0345,0099,0019)
EDIT805& = CREATE(EDIT,F&,,0495,0345,0099,0019)
EDIT806& = CREATE(EDIT,F&,,0595,0345,0099,0019)
EDIT807& = CREATE(EDIT,F&,,0695,0345,0029,0019)
EDIT900& = CREATE(EDIT,F&,,0095,0365,0049,0019)
EDIT901& = CREATE(EDIT,F&,,0145,0365,0049,0019)
EDIT902& = CREATE(EDIT,F&,,0195,0365,0099,0019)
EDIT903& = CREATE(EDIT,F&,,0295,0365,0099,0019)
EDIT904& = CREATE(EDIT,F&,,0395,0365,0099,0019)
EDIT905& = CREATE(EDIT,F&,,0495,0365,0099,0019)
EDIT906& = CREATE(EDIT,F&,,0595,0365,0099,0019)
EDIT907& = CREATE(EDIT,F&,,0695,0365,0029,0019)
BUTTON100& = CREATE(BUTTON,F&,Übernahme der Planung in die Anzeigemappe,0120,0400,0250,0030)
BUTTON101& = CREATE(BUTTON,F&,Abbrechen - Schließen ohne Speichern,0400,0400,0250,0030)
@SetFocus(F&)
waitinput
end

werden alle Controls bei mir erstellt - keine Spur von einem Problem.

RGH

Mal eine Zwischenbemerkung:

Wäre es nicht sinnvoller, längere Listings zunächst immer eingeklappt (also so wie nach dem Klick auf das entsprechende Icon) anzuzeigen? Das würde die Ladezeit mancher Seiten erheblich verkürzen. Und wer es komplett sehen will, kann es immer noch ausklappen.

Saluto
Roland
(dem ansonsten keine Einschränkungen bei Edit-Feldern in aktuellen XProfan- und Windowsversionen bekannt sind)

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

Frank
Abbing

Wäre es nicht sinnvoller, längere Listings zunächst immer eingeklappt (also so wie nach dem Klick auf das entsprechende Icon) anzuzeigen? Das würde die Ladezeit mancher Seiten erheblich verkürzen. Und wer es komplett sehen will, kann es immer noch ausklappen.

Das macht doch sowieso jeder, ausklappen meine ich. Fände ich nicht gut, wenn alle Quellcodes zugeklappt wären. Dauert dann im Endeffekt doch länger als wie es jetzt ist.

Andre
Hilprecht

Hi IF,
wie schon gesagt, solange ich das im Interpretermodus von XProfan 9 laufen lasse, ist alles Bestens, compiliere ich und erzeuge eine Exe - da waren es von 72 nur noch 30 Edit´s

Hi Roland,
wie bringe ich das denn eingeklappt zu Papier, äh Bildschirm?
Hast Du einen anderen Editor per diese Beiträge? Ich kann doch nur meinen
Code zwischen (code) und (/code) setzen und dann ... wie einklappen jetzt?
In anderen Programmier-Foren, da gibt es eine Bildschirmvorschau, da kann man vor dem Abschicken seine Untaten sehen.
Ist vielleicht mal eine Anregung.

Saluto André

Frank
Abbing

wie schon gesagt, solange ich das im Interpretermodus von XProfan 9 laufen lasse, ist alles Bestens, compiliere ich und erzeuge eine Exe - da waren es von 72 nur noch 30 Edit´s

Benutzt du GOTO in deinem Programm oder springst du sonstwie aus einer While/Whileloop-Schleife? Überkreuzen sich solche Schleifen?
Compiliere deinen Code mal mit XPSE oder untersuche deinen Code mit Sebastian Königs Tool.
Vielleicht leidet dein System auch an Speichermangel. Alles ist possibile.
Welchen Wert melden denn die Handle der nicht dargestellten Controls? Null?

Die Vorschau kommt auch wieder! Wegen der Bauarbeiten und der Umstellung von BBCode auf iFBBCode

temporär ausser Betrüp.

Einklappen kann nur der Besucher mittels den Pfeilknöpfen rechts oben an jeder CodeBox - das kannst Du also nicht circa ein Tag bestimmen.

Andre
Hilprecht

Hi Frank,

kein GOTO
keine überkreuzten Schleifen
bestimmt kein Speichermangel

und zu den Handles .... wie ... keine Ahnung.

Saluto André

Naja, Control 31 was nicht dargestellt wird - dessen Handle speicherst Du ja in una variabile. print

e mal diese Variable vorm Waitinput aus und schau was Dir angezeigt wird. Sozusagen die einfachste Form des Debuggings.

- Page 2 -

Rolf
Koch

Hallo Andre, besorg Dir mal Winspy dort kannste untersuchen ob die Dinger wirklich nicht erstellt wurden oder einfach nur die Koordianten verrückt spielen.
[...]

Mit Handles Mostra ist einfach gemeint:
z,B,;
Print edit100& und wenn da nun 0 steht wurde es aus irgendwelchen Stabilire nicht erzeugt.

Andre
Hilprecht

Ich hoffe, ich hab das richtig gemacht:

Print Edit406&

da kommen Nullen, aber auch wenn ich ein angezeigtes Edit Printe

Andre
Hilprecht

Schreibe ich ein Waitinput in die Proc selbst rein und davor Print Edit 406& dann kommt eine 7-stellige Zahl