Moin Leute!
Ich habe mir eine neue Komponente gebastelt. Das Teil ist von TCheckBox abgeleitet. Jetzt möchte ich das Standardteil von Windows übermalen. So wie ich das im Schnipsel getan habe, funktioniert es nicht. Voll seltsam. Wenn das Programm startet, hört man den Ton. Verdecke ich das Fenster und mache es dann wieder frei, tönt es erneut. Schön und gut. Wenn ich den Haken (Kreuz) setzte oder entferne, ist nichts zu hören. Das sieht schon so aus, als ob der Haken von sonstwoher neu gezeichnet wird. Wie muß ich nun den Haken entsprechend übermalen? Kann mir da jemand Helfen? Ich habe schon ein paar Stunden im Forum gesucht aber nichts gefunden. Das Tutorial zur Komponentenentwicklung wurde leider nicht zu ende geführt, das habe ich auch schon gelesen.
Delphi-Quellcode:
procedure TDeCheckBoxControlPanel.WMPaint(
var Message: TWMPaint);
var
DC : HDC;
oldpen : HPen;
loc : TRect;
begin
inherited;
if (Style = csTriangle)
then
begin
MessageBeep(MB_ICONHAND);
DC := GetDC(
Handle);
oldpen := SelectObject(
dc,CreatePen( PS_SOLID,1,ColorToRGB(clBlack)));
SendMessage(
Handle, EM_GETRECT, 0, LongInt(@Loc));
MovetoEx(
dc,loc.left,loc.Top,
nil);
LineTo(
dc,loc.right,loc.Top + height);
DeleteObject(selectobject(
dc,oldpen));
ReleaseDC(
Handle,
DC);
end;
end;