Schönen sonnigen Tag euch. :)
Ich würde gerne folgende Erweiterung bewerkstelligen:
Vorher:
Habe ein Label mit u.a. dem Parameter "SS_BITMAP", welcher per Kombination
von einer Bildressource und der SendMessage-Funktion, zu einem funktionierenden
"Speedbutton" umfungiert wurde. Jegliche Routinen und Nachrichteninteraktionen
klappen auch zufriedenstellend.
Delphi-Quellcode:
(*******************************************)
(* Hier ein Stückchen Beispielcode. *)
(* Soweit klappt der Quellcode einwandfrei,*)
(* ich habe keine Probleme. *)
(*******************************************)
const
IDC_Beispiel_Label = 123;
var
Beispiel_Label : DWord;
Bitmap_handle : HBITMAP;
[...]
(* Erstellung eines Labels, mit einem Bildparameter. *)
Beispiel_Label := CreateWindowEx ( 0,
'
STATIC',
'
',
WS_VISIBLE
or WS_CHILD
or SS_BITMAP
or SS_REALSIZEIMAGE,
0,
0,
200,
200,
FormMain.hWnd,
IDC_Beispiel_Label,
hInstance,
nil
);
(* Das Handle (hier: Bitmap_handle) hat nun das Ressourcebild am Anker. *)
Bitmap_handle := LoadBitmap( hInstance, MAKEINTRESOURCE(180));
(* Dem Label wird per Handle das Bild zugewiesen. *)
SendMessage(Beispiel_Label,STM_SETIMAGE,IMAGE_BITMAP,Bitmap_handle);
[...]
Mein neuer Ansatz/mein Problem:
Ich würde gerne diesem Button, nicht direkt das
Ressourcebild zuweisen, sondern eine Variable von tBitmap.
Sinn dieser Idee:
Ich bastele mir ein schwarzes Rechteck (0,0,100,100) und setze dort
mein Ressourcebild(width=50,height=50) an der Stelle "left := 25" und
"top := 25" ein. Danach wird die tBitmap-Variable an meinen Button
gesendet. Ich habe jetzt schon einiges versucht und mir ewiges Zeugs
in Google durchgelesen. Weitergekommen bin ich leider nicht. :-|
Cii jaa©$me
graphicar