hola a todos alguien que use devexpress y haya utilizado el listbox para ponerle imagenes ?
Código Delphi
[-]
var
Bitmap: TBitmap;
Offset: Integer;
begin
Bitmap := TBitmap.Create;
with (Control as TListBox).Canvas do
begin
FillRect(Rect);
Offset := 2;
Bitmap := TBitmap((Control as TListBox).Items.Objects[Index]);
if Bitmap <> nil then
begin
BrushCopy(
Bounds(Rect.Left + Offset, Rect.Top, Bitmap.Width, Bitmap.Height),
Bitmap,
Bounds(0, 0, Bitmap.Width, Bitmap.Height),
clRed);
Offset := Bitmap.width + 6;
end;
TextOut(Rect.Left + Offset, Rect.Top, (Control as TListBox).Items[Index])
end;
end;
este codigo normalmente es para un listbox normal pero en el listbox de las devexpress no existe textout y brushcopy
espero alguien las haya utilizado y me pueda ayudar gracias