Glyph bei Buttons ist TBitmap, ich brauche TPicture

[Orbmu2k]

Zitat:

-> Scheint also nicht ganz so einfach zu sein.

Hab das Mal auf die einfachste Art versucht umzusetzen ....

Ist zwar unschön aber funktioniert grundsätzlich was die Hauptsache ist ...

[MaBuSE]

Zitat:

Zitat von Robert Marquardt

Ich glaube bei der JediVCL sind auch Buttons mit TPicture Glyph dabei.

Ich habe mir nun die JCL und die JVCL in einer VMWare installiert.
-> Ich habe mich durch die >300 Komponenten durchgewühlt, aber kein Button mit TPicture vorhanden.
(Sind zwar fast 20 Buttons, aber das Glyph ist immer TBitmap oder der Button arbeitet mit einer TImageList, die aber wiederum dur TBitmaps beinhalten darf :-( )

[Karbrüggen]

Ich möchte mich hier nicht als Voll-Noob präsentieren, aber ich hab da glaube ich nen Ansatz:

- TPanels als Buttons einsetzen:
- Eigenschaften:
-- Alignment: taLeftJustify
-- Color: indiv./ clBtnFace
-- Caption := [n Spaces] + Caption
- Diese Funktionen deklarieren:

Delphi-Quellcode:

procedure BtnUp(Panel: TPanel);
begin
  Panel.BevelOuter := bvLowered;
  Panel.BevelInner := bvRaised;
end;

procedure BtnDown(Panel: TPanel);
begin
  Panel.BevelOuter := bvRaised;
  Panel.BevelInner := bvLowered;
end;

- dazu passend MouseDown- und MouseUp-Prozeduren deklarieren
- letztendlich ein TImage auf das Panel ziehen, und zur Laufzeit dort die Bilder hineinladen.

Wenn ich jetzt noch wüsste, wie man (ich) Komponenten erstellen kann wär die Welt perfekt *fg*

mfg

[Orbmu2k]

Der Wunsch ging eindeutig in richtung "mit XP Style" ...

Habe das Problem ist auch schon gelöst ... bei Interesse PN an mich!