Hallo zusammen,
ich versuche seit geraumer Zeit den Style-Hook für den TDateTimePicker vom
VCL Styles Utils Project am laufen zu kriegen (
https://code.google.com/p/vcl-styles...imePickers.pas).
Obwohl der Rodrigo einen verdammt guten Job macht, ist sein Style-Hook schon immer nicht ganz fehlerfrei gewesen.
Es wird zwar nach dem Registrieren des Styles im initialization-Teil fast alles gestylt, aber man hat keine Selektionsfarbe im internen Edit-Feld für den gerade aktiven Teil (Tag, Monat, Stunde,...).
Inzwischen konnte ich im
TDateTimePickerStyleHookFix.WMPaint
zwar den gesamten Text des aktiven DateTimePickers fokussiert zeichnen (siehe Projekt im Anhang), aber ich weiß nicht so richtig, wie ich nur den gerade aktiven Textteil des gesamten Strings einfärbe.
Oder besser gesagt, wie erhalte den gerade aktiven Teil des DateTimePickers, den man mit den Pfeiltasten oder den internen TUpDown verändern kann?
Ich habe es mit folgenden Code versucht, aber das
Handle des Edit-Feldes bleibt Null (das
Handle des Updowns wiederum hat einen Wert ungleich null).
Vielleicht hat jemand eine Idee oder einen anderen Ansatz?
Anbei ein XE3-Testprojekt mit allen notwendigen Dateien.
Es gibt im Hauptformular vier DateTimePicker.
Je zwei gestylt und ungestylt.
Delphi-Quellcode:
uses
Winapi.CommCtrl;
function GetSelectionBegin(ADateTimePicker : TDateTimePicker) : Integer;
var
SelectionBegin : Integer;
pdtpi: TDateTimePickerInfo;
Size : TSize;
begin
FillChar(pdtpi, SizeOf(pdtpi), 0);
pdtpi.cbSize := SizeOf(pdtpi);
Winapi.CommCtrl.DateTime_GetDateTimePickerInfo(ADateTimePicker.Handle, pdtpi);
// AAAAAh, warum geht das nicht?
if pdtpi.hwndEdit <> 0
then
begin
SelectionBegin := 0;
SendMessage(pdtpi.hwndEdit, EM_GETSEL, WPARAM(@SelectionBegin), 0);
OutputDebugString(PWideChar(IntToStr(SelectionBegin)));
Result := SelectionBegin;
end;
end;