Zurdo Soft es:
Jorge E. Ferreyra
Periodistas Argentinos 234 - (5900)Villa María
Tel.: 0353 453 8034 - 0353 155 66 7350
Córdoba - Argentina

Tabular ListBox

Buscando como tabular una lista hallé esta solución:

procedure CargaLista;
var ArrayOfTabs: array[0..0] of integer;
begin
  Lista.TabWidth:=1
//Ancho del tabulador, Importante
  ArrayOfTabs[0] := 70// Ubicación a la derecha 
  // Hace que LisBox acepte los tabs
  Lista.Perform(LB_SETTABSTOPS, 1, LongInt(@ArrayOfTabs));  
  with Orden do
    with Lista.Items do begin
      Clear;
      Append(Format('Mano de Obra:%s%m',[#9, ManoObra])); // #9 es el caracter del tabulador
      Append(Format('Repuestos:%s%m',[#9, Repuestos]));
      Append(Format('Total:%s%m',[#9, Total]));
    end;
end;

 

Inicio [Internet] [Electrónica] [Programacion]

www.000webhost.com