XProfan

Hrm, Minimalbeispiel

Michael
Wodrich

steht direct dans qui Hilfedatei cela Beispiel:
Kompilieren Marque Séparation

proc setTime

    parameters control&,stunden&,minuten&,sekunden&
    declare daten#
    dim daten#,20
    SendMessage(control&,4097,0,daten#)
    Word Daten#,8=stunden&
    Word Daten#,10=minuten&
    Word Daten#,12=sekunden&
    SendMessage(control&,4098,0,daten#)
    dispose daten#

endproc

-Begin------------------------------------------------------------------
Declare hWin&, hButton&, Ende&, hTime&
hWin& = @Create(Dialog, %hWnd, Test, 100, 100, 200, 200)
hButton& = @Create(Button, hWin&, Ende, 10, 10, 180, 24)
hTime& = @Create(TimeEdit, hWin&, , 10, 50, 100, 24)
Clear Ende&

WhileNot Ende&

    WaitInput

    If @GetFocus(hButton&)

        Ende& = 1

    EndIf

EndWhile

@MessageBox(@GetText$(hTime&), Zeit, 0)
-End--------------------------------------------------------------------
Fin

belle Grüße
Michael Wodrich

P.S.:
dans qui Sig stand justement: XProfan braucht aucun Beispiele.
cela venez quelquefois entier joli ironisch avec qui Automatik

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

Volltreffer......
là mußte es doch quoi donner.

DTM_FIRST = { $1000 | 4096 }
DTM_GETMCCOLOR = { $1007 | 4103 }
DTM_GETMCFONT = { $100A | 4106 }
DTM_GETMONTHCAL = { $1008 | 4104 }
DTM_GETRANGE = { $1003 | 4099 }
DTM_GETSYSTEMTIME = { $1001 | 4097 }
DTM_SETFORMAT = { $1005 | 4101 }
DTM_SETFORMATA = { $1005 | 4101 }
DTM_SETFORMATW = { $1032 | 4146 }
DTM_SETMCCOLOR = { $1006 | 4102 }
DTM_SETMCFONT = { $1009 | 4105 }
DTM_SETRANGE = { $1004 | 4100 }
DTM_SETSYSTEMTIME = { $1002 | 4098 }

SetFormat serait je dire...

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

depuis Microsoft sur dem .NET-Tripp ist peux on là wirklich rien plus trouver. Weder qui MSDN- encore qui Technical-Bulletin cherche avons quelque chose brauchbares Zutage gefördert - c'est wirklich traurig.

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Richtig - là stimme je Dir mitheulend vollkommen trop!

Michael
Wodrich

qui Vollständigkeit halber reiche je que voici la fois pour:
Kompilieren Marque Séparation

proc setTime

    parameters control&,stunden&,minuten&,sekunden&
    declare daten#
    dim daten#,20
    SendMessage(control&,4097,0,daten#)
    Word Daten#,8=stunden&
    Word Daten#,10=minuten&
    Word Daten#,12=sekunden&
    SendMessage(control&,4098,0,daten#)
    dispose daten#

endproc

proc setTimeFormat

    parameters control&,formatString$
    declare daten#
    dim daten#,(len(formatString$)+1)
    String daten#,0 = formatString$
    SendMessage(control&,4101,0,daten#)
    dispose daten#

endproc

-Begin------------------------------------------------------------------
Declare hWin&, hButton&, Ende&, hTime&
hWin& = @Create(Dialog, %hWnd, Test, 100, 100, 200, 200)
hButton& = @Create(Button, hWin&, Ende, 10, 10, 180, 24)
hTime& = @Create(TimeEdit, hWin&, , 10, 50, 100, 24)
Clear Ende&
setTimeFormat(hTime&,hh:mm)

WhileNot Ende&

    WaitInput

    If @GetFocus(hButton&)

        Ende& = 1

    EndIf

EndWhile

@MessageBox(@GetText$(hTime&), Zeit, 0)
-End--------------------------------------------------------------------
Fin

belle Grüße
Michael Wodrich

P.S.: Es wäre naturellement joli, si XProfan 11 cela mettons de date et Zeit et cela mettons des Formatstrings avec anbieten serait.

Programmieren, das spannendste Detektivspiel der Welt.

ByteAttack

j'ai mir extra qui MSDN (3,3GB) runtergeldaden et suis so malain comment je zuvor....
Tja. dans MEINER HLP XProfan 10 habe Je l' Voir le texte source pas trouvé! là muss je vieleicht encore la fois regarder ???
quand même merci.

Website: [...]

Facebook: [...]

ByteAttack

cela Beispiel ist bien. aucun Frage- comment bekomme je maintenant mais avec cela une 24h Stunden anzeige hin (allez seulement jusqu'à 12)
(je sais - je nerve)

Website: [...]

Facebook: [...]

ByteAttack

OK! Selbst la fois quoi rausgefunden (Dank dem gutel alten PRFellow - WFDTPICK.INC)

simple cela hh:mm dans HH:mm paraphraser

Website: [...]

Facebook: [...]

Michael
Wodrich

Richtig, ou bien chez den neuen DotNet-Funktionen abschauen et austesten quoi autrefois avec qui alten API déjà alles possible était.

Beispiel:
Value
- Description

d
- The one- or two-digit day.

dd
- The two-digit day. Single-digit day values sont preceded by a zero.

ddd
- The three-character weekday abbreviation.

dddd
- The full weekday nom.

h
- The one- or two-digit hour dans 12-hour format.

hh
- The two-digit hour dans 12-hour format. Single-digit values sont preceded by a zero.

H
- The one- or two-digit hour dans 24-hour format.

HH
- The two-digit hour dans 24-hour format. Single-digit values sont preceded by a zero.

m
- The one- or two-digit minute.

mm
- The two-digit minute. Single-digit values sont preceded by a zero.

M
- The one- or two-digit month number.

MM
- The two-digit month number. Single-digit values sont preceded by a zero.

MMM
- The three-character month abbreviation.

MMMM
- The full month nom.

t
- The one-letter AM/PM abbreviation; that is, AM is displayed as A.

tt
- The two-letter AM/PM abbreviation; that is, AM is displayed as AM.

X
- A callback field. The control still uses le other valid format characters, and queries le owner to fill dans le X portion. Therefore, le owner must être prepared to handle le DTN_WMKEYDOWN, DTN_FORMAT, and DTN_FORMATQUERY messages. Multiple X characters can être used dans series to signify unique callback fields.

y
- The year is displayed as le charge two digits, but with no leading zero for years less than 10.

yy
- The charge two digits of le year; that is, 1996 would être displayed as 96.

yyyy
- The full year; that is, 1996 would être displayed as 1996.

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Kompilieren Marque Séparation

p.specht

cela ganze avec deutschen Erläuterungen:

Windowtitle "Zeitformat-un/Ausgabe dans XProfan-10 et -11 einstellen"
'Orig.(2 Programme): Michael Wodrich v. 17.12.2007
'sur allemande traduit et kombiniert by p.Specht 2018-12-16
Windowstyle 24:font 2':CLS
Eingabe:
Déclarer hWin&, hButton&, Ende&, hTime&
hWin& = @Créer("Dialog", %hWnd, "Test", 100, 100, 200, 200)
hButton& = @Créer("Button", hWin&, "Ende", 10, 10, 180, 24)
hTime& = @Créer("TimeEdit", hWin&,», 10, 50, 100, 24)
Claire Ende&

proc setTimeFormat

    parameters control&,formatString$
    declare données#:dim données#,(len(formatString$)+1)
    String données#,0=formatString$
    SendMessage(control&,4101,0,données#):dispose données#
    'Steuerziffer 4101:= DTM_SETFORMATA
    'DTM_FIRST = { $1000 | 4096 }
    'DTM_GETMCCOLOR = { $1007 | 4103 }
    'DTM_GETMCFONT = { $100A | 4106 }
    'DTM_GETMONTHCAL = { $1008 | 4104 }
    'DTM_GETRANGE = { $1003 | 4099 }
    'DTM_GETSYSTEMTIME = { $1001 | 4097 }
    'DTM_SETFORMAT = { $1005 | 4101 }
    'DTM_SETFORMATA = { $1005 | 4101 }
    'DTM_SETFORMATW = { $1032 | 4146 }
    'DTM_SETMCCOLOR = { $1006 | 4102 }
    'DTM_SETMCFONT = { $1009 | 4105 }
    'DTM_SETRANGE = { $1004 | 4100 }
    'DTM_SETSYSTEMTIME = { $1002 | 4098 }

endproc

setTimeFormat(hTime&,"HH:mm:ss")
'd - qui un- ou bien zweistellige journée.
'dd - qui zweistellige journée. Einstellige Tageswerte volonté avec einer zéro vorangestellt.
'ddd - cela dreistellige Wochentagskürzel.
'dddd - qui vollständige Wochentagsname.
'h - qui un- ou bien zweistellige heure im 12-Stunden-Format.
'hh - qui zweistellige heure im 12-Stunden-Format. Einstellige Werte volonté par une zéro eingeleitet.
'H - qui un- ou bien zweistellige heure im 24-Stunden-Format.
'HH - qui zweistellige heure im 24-Stunden-Format. Einstellige Werte volonté par une zéro eingeleitet.
'm - qui un- ou bien zweistellige minute.
'mm - qui zweistellige minute. Einstellige Werte volonté par une zéro eingeleitet.
'
'M - qui un- ou bien zweistellige Monatsnummer.
'MM - qui zweistellige Monatsnummer. Einstellige Werte volonté par une zéro eingeleitet.
'MMM - cela dreistellige Monatskürzel.
'MMMM - qui vollständige Monatsname.
'
't - qui einbuchstabige abréviation AM/PM, d.h. AM wird comme A angezeigt.
'tt - qui zweistellige AM/PM-Kürzel, d.h. AM wird comme AM angezeigt.
'
'X - un Rückruffeld. cela Steuerelement verwendet weiterhin qui anderen gültigen Formatzeichen
'et fordert den propriétaire sur, den X-partie auszufüllen. Daher muss qui propriétaire puis
'vorbereitet son, qui Nouvelles DTN_WMKEYDOWN, DTN_FORMAT et DTN_FORMATQUERY trop verarbeiten.
'plusieurs X-marque peut dans Reihe verwendet volonté, um eindeutige Rückruffelder trop kennzeichnen.
'
'y - cela l'an wird comme qui letzten beiden Les chiffres angezeigt, sans führende zéro pour Jahre sous 10.
'yyy - qui letzten beiden Les chiffres des Jahres, d.h. 1996 wird comme 96 angezeigt.
'yyyy - cela ganze l'an, d.h. 1996 serait comme 1996 angezeigt.

WhileNot Ende&

    WaitInput
    cas @GetFocus(hButton&):Ende& = 1

Endwhile

' si PC-montre réellement verstellt volonté soll:

proc setTime :parameters control&,stunden&,minuten&,sekunden&

    declare données#:dim données#,20:SendMessage(control&,4097,0,données#)
    Word données#,8=stunden&:Word données#,10=minuten&:Word données#,12=sekunden&
    SendMessage(control&,4098,0,données#):dispose données#

endproc

Ausgabe:
@MessageBox(@GetText $(hTime&),"Zeit", 0)
FIN
' Beispiel de https://msdn.microsoft.com/en-us/windows/desktop/bb761759 :
' Windows desktop applications Develop Desktop technologies Desktop App L'assurance-chômage Windows Controls
' ...Contrôle Library Date and Time Picker Date and Time Picker Contrôle Reference
' ...Date and Time Picker Messages DTM_GETMCCOLOR
'DTM_GETMCCOLOR message
'appelez qui la couleur pour une certain partie des Monatskalenders dedans eines Datums- et Zeitpickers (DTP) ab.
'vous pouvez cet nouvelle explizit senden ou bien cela Makro DateTime_GetMonthCalthCalColor verwenden.
'
'paramètre
'wParam
'un Wert vom Typ int, qui angibt, quelle Monatskalenderfarbe abgerufen volonté soll.
'cette Wert peux einer qui folgenden son:
'Wert signification
'MCSC_BACKGROUND - appelez qui Hintergrundfarbe ab, qui entre den Monaten angezeigt wird.
'MCSC_MONTHBK - Liefert qui Hintergrundfarbe, qui dedans des Monats angezeigt wird.
'MCSC_TEXT - Liefert qui la couleur, avec qui Text dedans eines Monats angezeigt wird.
'MCSC_TITLEBK - appelez qui Hintergrundfarbe ab, qui im Titel des Kalenders angezeigt wird.
'MCSC_TITLETEXT - appelez qui la couleur ab, qui pour qui Anzeige de Text im Titel des Kalenders verwendet wird.
'MCSC_TRAILINGTEXT - appelez qui la couleur ab, qui pour qui Anzeige de Kopftags- et Nachtagstext verwendet wird.
'' ...    tête- et Nachlauftage sommes qui Tage des vorhergehenden et nachfolgenden Monats.
'qui im aktuellen Monatskalender erscheinen.
'
'lParam muss zéro son.
'
'Funktion gibt une COLORREF-Wert zurück, qui qui Farbeinstellung pour den angegebenen paragraphe darstellt.
'des Monatskalenders chez Erfolg. qui annonce gibt -1 zurück, si vous pas erfolgreich était.
''
'Minimaler unterstützter Client: Windows Vue (seulement Desktop-Anwendungen)
'Minimaler unterstützter Server: Windows Server 2003 (seulement Desktop-Anwendungen)
'Headerfile: Commctrl.h

XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

16.12.2018 ▲