[XP-Manifest] Rahmen eines Buttons

[Alaitoc]

Äh hm naja im Endeffekt brauche ich ja nur die Rahmenfarbe der Combobox,
da ich ja nicht direkt ne Combobox habe sondern eher ein Panel wo nen
Button und nen Eingabefeld draufliegen...

Werd mir das aber mal anschauen mit den Themes, vll krieg ich die Informationen da raus

[MarcoWarm]

Zitat von Alaitoc:

Äh hm naja im Endeffekt brauche ich ja nur die Rahmenfarbe der Combobox

Es ist ja nicht eben nur EINE Farbe. Je nach Theme kann das auch ein Verlauf ... halbtransparent ... irgendwas sein

Gruß
Marco

[Alaitoc]

Hmhm, wenn ich das richtig verstehe muss ich aber nu dann alle Controls selbst erstellen?
Also nen eigenen Combobox-Button mit den Themes z.b.?

[MarcoWarm]

Also wenn es nicht ganz "original" aussehen muss, kannst du den Button auch so drin lassen, wie bisher und den Rahmen um das Control mittels dem teEditTextNormal Element zeichnen.

Gruß Marco

[Alaitoc]

Klappt soweit wunderbar, zumindest mit dem Rahmen...jedoch habe ich nun das Problem, dass der Button
sich immer über den Rahmen legt...mal schauen was ich da mache ^_°

Btw sagt Edith schonmal vielen Danke

[MarcoWarm]

Zitat von Alaitoc:

Klappt soweit wunderbar, zumindest mit dem Rahmen...jedoch habe ich nun das Problem, dass der Button
sich immer über den Rahmen legt...mal schauen was ich da mache ^_°

Btw sagt Edith schonmal vielen Danke

den button einfach alignwithmargins setzen

Off topic:
wer ist Edith???

Gruß
Marco

[Alaitoc]

Hab mir grad überlegt den Button auch selbst zu zeichnen, da er sonst auch bei den unterschiedlichen Themes merkwürdig aussieht ^_^


Offtopic:

Edith = Edit

Also hatte den Beitrag editiert

[Alaitoc]

So habs jetzt einfach mal so gemacht:

Delphi-Quellcode:

{ TThemesSpeedButton }

//******************************************************************************
//* Paint
//******************************************************************************

procedure TThemesSpeedButton.Paint;
var
  coDetails: TThemedElementDetails;
  coThemeStyle: TThemedComboBox;
begin
  if ( ThemeServices.ThemesEnabled ) and not (csDesigning in ComponentState) then
  begin
    if Enabled then
    begin
      if (Down) or (FState = bsDown) then
      begin
        coThemeStyle := tcDropDownButtonPressed;
      end
      else
      begin
        if MouseInControl then
          coThemeStyle :=  tcDropDownButtonHot
        else
          coThemeStyle :=  tcDropDownButtonNormal;
      end;
    end
    else
    begin
      coThemeStyle := tcDropDownButtonDisabled;
    end;
    coDetails := ThemeServices.GetElementDetails(coThemeStyle);
    ThemeServices.DrawElement(Canvas.Handle, coDetails, ClientRect);
  end
  else
  begin
    inherited;
  end;
end;