XProfan

Hrm, Minimalbeispiel

Michael
Wodrich

standing directly in the Helpfile the example:
Compile Mark Separation

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

Best wishes
Michael Wodrich

P.s.:
in the Sig stood straight: XProfan need no Examples.
the comes sometimes integrally beautiful ironical with the automatic transmission

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

Volltreffer......
there had to it still what give.

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 would I say...

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

since Microsoft on the .NET-Tripp is can there really nothing more find. Weder The MSDN- yet The Technical-Bulletin Search having something brauchbares Zutage gefördert - this is really sorry.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

correctly. - there voice I you mitheulend completely To!

Michael
Wodrich

The Vollständigkeit halber wealthy I that here time to:
Compile Mark Separation

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

Best wishes
Michael Wodrich

P.s.: it would naturally beautiful, if XProfan 11 the settle of Date and Time and the settle the Formatstrings with offer would.

Programmieren, das spannendste Detektivspiel der Welt.

ByteAttack

I have me extra The MSDN (3,3GB) runtergeldaden and be so schlau How apiece before....
Tja. In MEINER HLP XProfan 10 have I the View source not found! there must I Maybe once more look ???
nevertheless thanks.

Website: [...]

Facebook: [...]

ByteAttack

the example is well. No question- How do I get now but so a 24h hours display there (goes only To 12)
(i know - I nerve)

Website: [...]

Facebook: [...]

ByteAttack

OK! self something rausgefunden (Thanks the gutel middle-aged PRFellow - WFDTPICK.INC)

simply the hh:mm in HH:mm paraphrase

Website: [...]

Facebook: [...]

Michael
Wodrich

correctly., or with whom new DotNet-functions abschauen and debug what then with the middle-aged API already everything possible was.

example:
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 in 12-hour stature.

hh
- The two-digit hour in 12-hour stature. Single-digit values are preceded by a zero.

H
- The one- or two-digit hour in 24-hour stature.

HH
- The two-digit hour in 24-hour stature. 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 stature characters, and queries the owner to fill in the X portion. Therefore, the owner must be prepared to lever the DTN_WMKEYDOWN, DTN_FORMAT, and DTN_FORMATQUERY messages. Multiple X characters can be used in 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.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

p.specht

the whole with german Erläuterungen:

Compile Mark Separation

Windowtitle "Zeitformat-One/spending in XProfan-10 and -11 einstellen"
'Orig.(2 programs): Michael Wodrich v. 17.12.2007
'On german Translated and combined by p.woodpecker 2018-12-16
Windowstyle 24:font 2':CLS
input:
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&

proc setTimeFormat

    parameters control&,formatString$
    declare data#:dim data#,(len(formatString$)+1)
    String data#,0=formatString$
    SendMessage(control&,4101,0,data#):dispose data#
    '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 - The one- or zweistellige day.
'dd - The zweistellige day. Einstellige Tageswerte go with of/ one zero vorangestellt.
'ddd - the dreistellige Wochentagskürzel.
'dddd - The complete Wochentagsname.
'h - The one- or zweistellige hour in the 12-hours-stature.
'hh - The zweistellige hour in the 12-hours-stature. Einstellige values go by a zero eingeleitet.
'H - The one- or zweistellige hour in the 24-hours-stature.
'HH - The zweistellige hour in the 24-hours-stature. Einstellige values go by a zero eingeleitet.
'm - The one- or zweistellige Minute.
'mm - The zweistellige Minute. Einstellige values go by a zero eingeleitet.
'
'M - The one- or zweistellige Monatsnummer.
'MM - The zweistellige Monatsnummer. Einstellige values go by a zero eingeleitet.
'MMM - the dreistellige Monatskürzel.
'MMMM - The complete Monatsname.
'
't - The einbuchstabige short cut AM/PM, d.h. AM becomes as A displayed.
'tt - The zweistellige AM/PM-macro, d.h. AM becomes as AM displayed.
'
'X - One Rückruffeld. the Steuerelement uses furthermore The others valid Formatzeichen
'and claims whom proprietor on, whom X-part auszufüllen. therefore must the proprietor hereon
'prepared his, The Messages DTN_WMKEYDOWN, DTN_FORMAT and DTN_FORMATQUERY To process.
'several X-characters can in row uses go, circa eindeutige Rückruffelder To mark.
'
'y - the year becomes as The last both Digits displayed, without führende zero for years under 10.
'yyy - The last both Digits the year, d.h. 1996 becomes as 96 displayed.
'yyyy - the whole year, d.h. 1996 would as 1996 displayed.

WhileNot Ende&

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

EndWhile

' if PC-watch objectively verstellt go should:

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

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

endproc

spending:
@MessageBox(@GetText$(hTime&),"Zeit", 0)
END
' Example of 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 message
'calls The colour for a designed part the Monatskalenders within one Datums- and Zeitpickers (DTP) ex.
'you can these Message explizit Send or the macro DateTime_GetMonthCalthCalColor use.
'
'Parameter
'wParam
'One worth of type int, the angibt, which Monatskalenderfarbe abgerufen go should.
'this worth can of/ one the subesquent his:
'worth weight
'MCSC_BACKGROUND - calls The Backgroundcolor ex, The between whom Monaten displayed becomes.
'MCSC_MONTHBK - supply The Backgroundcolor, The inside the month's displayed becomes.
'MCSC_TEXT - supply The colour, with the Text within one month's displayed becomes.
'MCSC_TITLEBK - calls The Backgroundcolor ex, The in the cover the Kalenders displayed becomes.
'MCSC_TITLETEXT - calls The colour ex, The for display of Text in the cover the Kalenders is used.
'MCSC_TRAILINGTEXT - calls The colour ex, The for display of Kopftags- and Nachtagstext is used.
'' ...    head- and Nachlauftage are The days the previous and nachfolgenden month's.
'The in the actually Monatskalender attend.
'
'lParam must zero his.
'
'function gives a COLORREF-worth back, the The Farbeinstellung for angegebenen cut offed darstellt.
'the Monatskalenders with success. The Message gives -1 back, as they not successful was.
''
'Minimaler unterstützter Client: windows Vista (only Desktop-Applications)
'Minimaler unterstützter Server: windows Server 2003 (only Desktop-Applications)
'Headerfile: Commctrl.h

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

12/16/18 ▲