Ver Mensaje Individual
  #2  
Antiguo 01-03-2024
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.264
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Código Delphi [-]
ComboBox1.Style := csCenter;



Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  s: string;
  x, y: Integer;
begin
  if Column.Field.DataType = ftCurrency then
  begin
    s := '$' + Column.Field.AsString;
    x := Rect.Right - Canvas.TextWidth(s) - 2;
    y := Rect.Top + 2;
    DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, '$');
    DBGrid1.Canvas.TextRect(Rect, x, y, s);
  end
  else
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Responder Con Cita