| |
| |
|
Rainer
Hoefs | ¡Hola zusammen,
brauche veces otra vez Eure Ayuda, como Yo no mehr más weiß.
In una Programa posición 2 DateEdits nebeneinander. Nach Auswahl des Datums en DateEdit1 se el gleiche Datum (später 1 Tag plus) eingestellt voluntad.
Aunque reagiert el IF CLICKED DateEdit1% no en el entsprechenden Befehl auszuführen.
Keine Sepa por qué.
Für jede Ayuda dankbar.
Hier el Code:
Declarar dateedit1%, dateedit2%
Def GetStockObject(1) !"GDI32","GetStockObject"
Def GetSysColor(1) !"USER32","GetSysColor"
Def GetParent(1) !"USER32","GetParent"
Def &COLOR_BTNFACE $F
Def &DEFAULT_GUI_FONT $11
Proc CreateElements
Ventana de Estilo 26 | 512 | 2048
Título de la ventana "Arbeitsfenster"
Ventana 280, 0 - 318, 188
Cls GetSysColor(&COLOR_BTNFACE)
SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
dateedit1% = Crear("DateEdit", %hwnd, Date$(0), 24, 32, 120, 24)
dateedit2% = Crear("DateEdit", %hwnd, Date$(0), 160, 32, 120, 24)
ENDPROC
Proc MainLoop
Mensajes del usuario 16
ShowWindow(%hwnd, 1)
Mientras que 1
WaitInput
Case %umessage = 16 : BREAK
If Clicked(dateedit1%)'#window
SetText dateedit2%,GetText $(dateedit1%)
ElseIf Clicked(dateedit2%)'#window
Imprimir GetText $(dateedit2%)+ "Von DateEdit1% übernommen!"
EndIf
EndWhile
ENDPROC
Proc Main
CreateElements
MainLoop
ENDPROC
Main
End
|
|
| |
| |
| |
|
|
H.Brill | Es el problema con el zusammengesetzten
Controls, como etwa el SpinEdit auch.
Tal vez hilft dir que aquí más :
$H Windows.ph
$H Messages.ph
$H commctrl.ph
Declarar OldTest&,ende%
Struct POINT = \
x&, \
y&
Struct SYSTEMTIME = \
wYear%, \
wMonth%, \
wDayOfWeek%, \
wDay%, \
wHour%, \
wMinute%, \
wSecond%, \
wMilliseconds%
Struct MCHITTESTINFO = \
cbSize&, \
pt!POINT, \
uHit&, \
st!SYSTEMTIME
Proc Get_MonthCalHit
Declarar DATA#, HIT%
Dim DATA#,MCHITTESTINFO
DATA#.cbSize& = SizeOf(DATA#)
DATA#.pt!x& = %MouseX - 500
DATA#.pt!y& = %MouseY - 150
Var QT% = SendMessage(KAL1&,$100E,0,DATA#)' $100E = $1000 + 14 = HITTEST
Var TEXT$ = str$(DATA#.st!wDay%)+"."+str$(DATA#.st!wMonth%)+"."+str$(DATA#.st!wYear%)
Messagebox(TEXT$,"HITFLAG "+Str$(QT%),$40000)
Disponer DATA#
RETORNO QT%
ENDPROC
WINDOW 0,0 - 800,600
Var KAL1& = Control("SysMonthCal32", "Kalender", 1342177280, 500, 150, 180, 406, %HWND, 0, %hInstance, 0)
Sinestar encargado Ende%
Waitinput
If %Key = 2
Ende% = 1
Más
Get_MonthCalHit
EndIf
EndWhile
|
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 14.06.2016 ▲ |
|
| |
|
|
Rainer
Hoefs | ¡Hola H. Brill,
vielen Dank para deine Ayuda.
Leider es para una con Crear("DateEdit",.....) control no el Solución.
Natürlich reagiert dieses Ejemplo ebenso en una DateEdit, aber desafortunadamente se el Control weder a Datumsauswahl aufgeklappt, todavía se (logischerweise) una Datum transferencia, porque uno gar keines auswählen kann. Beim Anklicken kommt inmediatamente el Messagebox y vorbei es.
Für una así großen Kalender, bastante aufgeklappter Monat oder 2 como en Deinem Ejemplo, es en el Diálogo kein Platz.
Trotzdem dankeschön.
Rainer |
|
| |
| |
| |
|
(1.605)
Deutsch
English
Français
Español
Italia