Y sabrias como pintar imagenes en un TxLookUpEdit? (estilo TComboLookUp)
En un TComboBox, lo hago en OnDrawItem, pero estos que te menciono no tienen este evento.
(ejemplo para un TComboBox)
Código Delphi
[-]procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
bTemp: TBitmap;
begin
bTemp := TBitmap.Create;
if Index < ImageList1.Count then
ImageList1.GetBitmap(Index,bTemp);
with (Control as TComboBox) do
begin
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left + ImageList1.Height + 2, Rect.Top, Items[Index]);
Canvas.Draw(Rect.Left, Rect.Top, bTemp);
end;
bTemp.Free;
end;
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;