vierer Button integrieren

[Andy Nightingale]

TImageList hat eine Masked-Property...

Auch interessant zum Thema "transparent"
https://wiki.freepascal.org/TImageList
Das Code-Beispiel für HiDPI enthält wie man ein TBitmap transparent macht, BEVOR man es zur ImageList hinzufügt

Danke Zvoni, tolle Idee. Grüße

[Andy Nightingale]

Lade doch mal Deine PNG hoch. Dann könnte man konkretere Hilfe anbieten...

Hallo kirchfritz,

ich habe deinen Kommentar nicht gesehen.-ging irgendwie unter....vielleicht hast du ja auch eine Idee. Im Anhang ein Beispiel in PNG. Grüße

Button_gruen.png (10.11 KiB) 374 mal betrachtet

[paweld]

@Andy Nightingale - Das hängt davon ab, welchen Effekt du erzielen möchtest, aber entweder TSpeedButton mit aktivierter Eigenschaft Flat oder TBCImageButton aus dem Paket BGRAControls – siehe die beigefügte Animation.

[Andy Nightingale]

@Andy Nightingale - Das hängt davon ab, welchen Effekt du erzielen möchtest, aber entweder TSpeedButton mit aktivierter Eigenschaft Flat oder TBCImageButton aus dem Paket BGRAControls – siehe die beigefügte Animation.

Hallo Paweld,
das ist ja einfach mit dem BGRA...wow herzlichen Dank für den tollen Tipp und deine Animation echt cool.

[fliegermichl]

Wie bekommt man denn das Bild in den TBCImageButton?
BitmapFile := 'Meinbild.png' tut's jedenfalls nicht und eine Property Picture oder Image habe ich nicht finden können.

[Andy Nightingale]

Wie bekommt man denn das Bild in den TBCImageButton?
BitmapFile := 'Meinbild.png' tut's jedenfalls nicht und eine Property Picture oder Image habe ich nicht finden können.

Hallo Fliegermichl...ich mach das so (da ich 6 bis jetzt habe):

Code: Alles auswählen

   // BCM Buttons:

 begin
  for i := 1 to 6 do
  begin
    Button := TBCImageButton(FindComponent('BCImageButton' + IntToStr(i)));

    if Assigned(Button) then
    begin
      // Bitmap aus dem Unterordner "Buttons" laden
      Button.BitmapFile := Application.Location + 'ButtonL' + PathDelim + Button.BitmapFile;
      Button.LoadFromBitmapFile;

      // Text ausblenden
      Button.TextVisible := False;
    end;
  end;
end;     

[paweld]

Du hast zwei Möglichkeiten:
1. Aus den Ressourcen: Menü > Projekt > Projektoptionen > Ressourcen > Ressource hinzufügen. Nachdem du die Ressource hinzugefügt hast, merk dir den Namen und füge im OnCreate-Ereignis des Formulars Folgendes ein:

Code: Alles auswählen

BCImageButton1.LoadFromResource('resource_name');

2. Aus einer Datei – im OnCreate-Ereignis des Formulars:

Code: Alles auswählen

BCImageButton1.LoadFromBitmap('path/my_button_bitmap.png');

[fliegermichl]

Du hast zwei Möglichkeiten:
1. Aus den Ressourcen: Menü > Projekt > Projektoptionen > Ressourcen > Ressource hinzufügen. Nachdem du die Ressource hinzugefügt hast, merk dir den Namen und füge im OnCreate-Ereignis des Formulars Folgendes ein:

Code: Alles auswählen

BCImageButton1.LoadFromResource('resource_name');

2. Aus einer Datei – im OnCreate-Ereignis des Formulars:

Code: Alles auswählen

BCImageButton1.LoadFromBitmap('path/my_button_bitmap.png');

Danke. Das widerspricht zwar etwas dem RAD Gedanken hinter Lazarus aber es funktioniert.
Es muß übrigens BCImageButton1.LoadFromBitmapResource heissen.

[paweld]

Es muß übrigens BCImageButton1.LoadFromBitmapResource heissen.

Entschuldigung – ich habe das aus dem Gedächtnis geschrieben, während einer Pause auf der Reise.