XProfan

Hrm, Minimalbeispiel

Michael
Wodrich

es direkt en el Hilfedatei el Ejemplo:
Kompilieren Marca Separación

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--------------------------------------------------------------------
End

Schöne Grüße
Michael Wodrich

P.S.:
In el Sig stand gerade: XProfan braucht no Beispiele.
Das kommt manchmal bastante schön ironisch con el Automatik

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

Volltreffer......
Como mußte lo doch qué geben.

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 sería Yo sagen...

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

Seit Microsoft en el .NET-Tripp es puede ser como wirklich nichts mehr encontrar. Weder el MSDN- todavía el Technical-Bulletin Búsqueda haben algo brauchbares Zutage gefördert - el es wirklich traurig.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Richtig - como stimme Yo Usted mitheulend vollkommen a!

Michael
Wodrich

Der Vollständigkeit halber reiche Yo que aquí veces después de:
Kompilieren Marca Separación

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--------------------------------------------------------------------
End

Schöne Grüße
Michael Wodrich

P.S.: Lo wäre natürlich schön, si XProfan 11 el Setzen de Datum y Tiempo y el Setzen des Formatstrings con anbieten sería.

Programmieren, das spannendste Detektivspiel der Welt.

ByteAttack

Yo me extra el MSDN (3,3GB) runtergeldaden y bin así schlau como je zuvor....
Tja. In MEINER HLP XProfan 10 Yo el Ver código fuente No se ha encontrado! Como muss Yo vieleicht una vez más schauen ???
Trotzdem Gracias.

Website: [...]

Facebook: [...]

ByteAttack

Das Ejemplo es Gut. Keine Cuestión- Como bekomme Yo ahora aber así una 24h Stunden anzeige hin (Geht sólo a 12)
(Yo weiß - Yo nerve)

Website: [...]

Facebook: [...]

ByteAttack

OK! Selbst algo rausgefunden (Dank el gutel alten PRFellow - WFDTPICK.INC)

Einfach el hh:mm en HH:mm umschreiben

Website: [...]

Facebook: [...]

Michael
Wodrich

Richtig, oder en el neuen DotNet-Características abschauen y austesten qué damals con el alten API ya alles posible war.

Ejemplo:
Value
- Description

d
- The one- or two-digit day.

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

ddd
- The three-character weekday abbreviation.

dddd
- The full weekday name.

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

hh
- The two-digit hour en 12-hour format. Single-digit values are preceded by a zero.

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

HH
- The two-digit hour en 24-hour format. Single-digit values are preceded by a zero.

m
- The one- or two-digit minute.

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

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

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

MMM
- The three-character month abbreviation.

MMMM
- The full month name.

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 the other valid format characters, and queries the owner to fill en the X portion. Therefore, the owner must be prepared to handle the DTN_WMKEYDOWN, DTN_FORMAT, and DTN_FORMATQUERY messages. Multiple X characters can be used en series to signify unique callback fields.

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

yy
- The last two digits of the year; that is, 1996 would be displayed as 96.

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

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Kompilieren Marca Separación

p.specht

Das todo con Alemán Erläuterungen:

Windowtitle "Zeitformat-Ein/Edición en XProfan-10 y -11 einstellen"
'Orig.(2 Programas): Michael Wodrich v. 17.12.2007
'Auf Alemán traducido y kombiniert by p.Pájaro carpintero 2018-12-16
Windowstyle 24:font 2':CLS
Eingabe:
Declarar hWin&, hButton&, Ende&, hTime&
hWin& = @Crear("Dialog", %hWnd, "Test", 100, 100, 200, 200)
hButton& = @Crear("Button", hWin&, "Ende", 10, 10, 180, 24)
hTime& = @Crear("TimeEdit", hWin&,"", 10, 50, 100, 24)
Claro Ende&

proc setTimeFormat

    parámetros control&,formatString$
    declarar daten#:dim daten#,(len(formatString$)+1)
    String daten#,0=formatString$
    SendMessage(control&,4101,0,daten#):disponer daten#
    '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 - Der una- oder zweistellige Tag.
'dd - Der zweistellige Tag. Einstellige Tageswerte voluntad con uno Null vorangestellt.
'ddd - Das dreistellige Wochentagskürzel.
'dddd - Der vollständige Wochentagsname.
'h - El una- oder zweistellige Stunde en el 12-Stunden-Formato.
'hh - El zweistellige Stunde en el 12-Stunden-Formato. Einstellige Werte voluntad por una Null eingeleitet.
'H - El una- oder zweistellige Stunde en el 24-Stunden-Formato.
'HH - El zweistellige Stunde en el 24-Stunden-Formato. Einstellige Werte voluntad por una Null eingeleitet.
'm - El una- oder zweistellige Minute.
'mm - El zweistellige Minute. Einstellige Werte voluntad por una Null eingeleitet.
'
'M - El una- oder zweistellige Monatsnummer.
'MM - El zweistellige Monatsnummer. Einstellige Werte voluntad por una Null eingeleitet.
'MMM - Das dreistellige Monatskürzel.
'MMMM - Der vollständige Monatsname.
'
't - El einbuchstabige Abkürzung AM/PM, d.h. AM se como A adecuado.
'tt - El zweistellige AM/PM-Kürzel, d.h. AM se como AM adecuado.
'
'X - Ein Rückruffeld. Das Steuerelement verwendet weiterhin el otro gültigen Formatzeichen
'y fordert el Eigentümer en, el X-Teil auszufüllen. Daher muss el Eigentümer darauf
'vorbereitet ser, el Noticias DTN_WMKEYDOWN, DTN_FORMAT y DTN_FORMATQUERY a verarbeiten.
'Mehrere X-Signo puede en Reihe verwendet voluntad, en eindeutige Rückruffelder a kennzeichnen.
'
'y - Das Jahr se como el letzten beiden Ziffern adecuado, sin führende Null para Jahre bajo 10.
'yyy - El letzten beiden Ziffern des Jahres, d.h. 1996 se como 96 adecuado.
'yyyy - Das todo Jahr, d.h. 1996 sería como 1996 adecuado.

Sinestar encargado Ende&

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

EndWhile

' Falls PC-Uhr tatsächlich verstellt voluntad se:

proc setTime :parámetros control&,stunden&,minuten&,sekunden&

    declarar 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#):disponer daten#

ENDPROC

Edición:
@MessageBox(@GetText $(hTime&),"Zeit", 0)
FIN
' Ejemplo de https://msdn.microsoft.com/en-us/windows/desktop/bb761759 :
' Windows desktop applications Develop Desktop technologies Desktop App UI Windows Controls
' ...Control Library Date and Time Picker Date and Time Picker Control Reference
' ...Date and Time Picker Messages DTM_GETMCCOLOR
'DTM_GETMCCOLOR mensaje
'Ruft el Farbe para una cierto Teil des Monatskalenders innerhalb uno Datums- y Zeitpickers (DTP) de.
'Sie puede esta Nachricht explizit senden oder el Makro DateTime_GetMonthCalthCalColor uso.
'
'Parámetro
'wParam
'Ein Valor vom Typ int, el angibt, welche Monatskalenderfarbe abgerufen voluntad se.
'Dieser Valor kann uno el folgenden ser:
'Valor Bedeutung
'MCSC_BACKGROUND - Ruft el Color de fondo de, el zwischen el Monaten adecuado se.
'MCSC_MONTHBK - Liefert el Color de fondo, el innerhalb des Monats adecuado se.
'MCSC_TEXT - Liefert el Farbe, con el Texto innerhalb uno Monats adecuado se.
'MCSC_TITLEBK - Ruft el Color de fondo de, el en el Titel des Kalenders adecuado se.
'MCSC_TITLETEXT - Ruft el Farbe de, el para el Anzeige de Texto en el Titel des Kalenders verwendet se.
'MCSC_TRAILINGTEXT - Ruft el Farbe de, el para el Anzeige de Kopftags- y Nachtagstext verwendet se.
'' ...    Kopf- y Nachlauftage son el Tage des vorhergehenden y nachfolgenden Monats.
'el en el aktuellen Monatskalender erscheinen.
'
'lParam muss Null ser.
'
'Función son una COLORREF-Valor zurück, el el Farbeinstellung para el angegebenen Abschnitt darstellt.
'des Monatskalenders en Erfolg. El Meldung son -1 zurück, si ellos no erfolgreich war.
''
'Minimaler unterstützter Client: Windows Vista (sólo Desktop-Anwendungen)
'Minimaler unterstützter Server: Windows Server 2003 (sólo 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 ▲