Ver Mensaje Individual
  #3  
Antiguo 07-08-2008
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Reputación: 21
MaMu Va por buen camino
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;
Responder Con Cita