krlox31416
19-02-2009, 04:38:46
Hola programadores!!!
Tengo un problema con un componente listbox, me gustaría saber si este componente tiene alguna propiedad para alinear los ítems agregados al listbox como ejemplo esta el memo en el cual se especifica el tipo de alineación ya sea alinear a la derecha, izquierda o centrado. type TAlignment = (taLeftJustify, taRightJustify, taCenter);
Eje:
procedure TForm1.Alienear_a_la_derechaClick(Sender: TObject);
begin
Memo1.Alignment:=taRightJustify;
end;
procedure TForm1.Alienear_a_la_izquierdaClick(Sender: TObject);
begin
Memo1.Alignment:=taLeftJustify;
end;
procedure TForm1.CentrarClick(Sender: TObject);
begin
Memo1.Alignment:=taCenter;
end;
el problema es que después de hacer una consulta cargo en el listbox los siguientes datos de mi tabla artículos con los atributos: Descripción y Precio
while not datamodule2.Table2.Eof do
begin
ListBox1.Items.Add(Datamodule2.Table2.FieldByName('Descripción').AsString
+' $ '+DataModule2.Table2.FieldByName('Precio').AsString+' PESOS');
Edit2.Text:=DataModule2.Table2.Fieldbyname('Precio').AsString;
cobros:= cobros + StrToFloat(Edit2.Text);
Edit2.Text:=FloatToStr(cobros);
Edit1.Text:='$ '+Edit2.Text +' pesos';
i:=1;
Edit9.Text:=CantidadEnLetra(StrToFloat(Edit2.Text) ,i);
ComboBox1.Text:='';
ComboBox1.SetFocus;
Exit;
end;
como podrán ver concateno el precio a la descripción y dejo espacios en blanco para que el precio no este muy junto a la descripción.
Así es como me queda en el listbox con el código anterior:
COCA COLA DE 600 ML $ 6.00 PESOS
CERVEZA CORONA MEDIA $ 8.00 PESOS
CIGARROS MALVORO $19.00 PESOS
TEQUILA CAZADORES 1 L $ 185.00 PESOS
Me gustaría que cada que realizo la consulta el precio siempre este justificado alineado a la derecha para que el usuario visualice mejor la lista de los precios y por cuestiones de estética.
Eje:
COCA COLA DE 600 ML $ 6.00 PESOS
CERVEZA CORONA MEDIA $ 8.00 PESOS
CIGARROS MALVORO $19.00 PESOS
TEQUILA CAZADORES 1 L $ 185.00 PESOS
Además el listbox es perfecto debido a sus características y se adecua al sistema que estoy haciendo por eso no utilizo el memo porque no me permite seleccionar su contenido e ir haciendo todo un recorrido como el listbox en sus ítems.
Esto fue lo primero que se me ocurrió:
ListBox1.Items.Text:=' '+ListBox1.Items[0];
Pero lo que note fue que tendría que ir incrementando la posición
Cual será la solución???
Utilizo delphi 5 y 6…
Por adelantado 1000 gracias si alguien puede ayudarme!!!
Estoy a sus ordenes!!!
Tengo un problema con un componente listbox, me gustaría saber si este componente tiene alguna propiedad para alinear los ítems agregados al listbox como ejemplo esta el memo en el cual se especifica el tipo de alineación ya sea alinear a la derecha, izquierda o centrado. type TAlignment = (taLeftJustify, taRightJustify, taCenter);
Eje:
procedure TForm1.Alienear_a_la_derechaClick(Sender: TObject);
begin
Memo1.Alignment:=taRightJustify;
end;
procedure TForm1.Alienear_a_la_izquierdaClick(Sender: TObject);
begin
Memo1.Alignment:=taLeftJustify;
end;
procedure TForm1.CentrarClick(Sender: TObject);
begin
Memo1.Alignment:=taCenter;
end;
el problema es que después de hacer una consulta cargo en el listbox los siguientes datos de mi tabla artículos con los atributos: Descripción y Precio
while not datamodule2.Table2.Eof do
begin
ListBox1.Items.Add(Datamodule2.Table2.FieldByName('Descripción').AsString
+' $ '+DataModule2.Table2.FieldByName('Precio').AsString+' PESOS');
Edit2.Text:=DataModule2.Table2.Fieldbyname('Precio').AsString;
cobros:= cobros + StrToFloat(Edit2.Text);
Edit2.Text:=FloatToStr(cobros);
Edit1.Text:='$ '+Edit2.Text +' pesos';
i:=1;
Edit9.Text:=CantidadEnLetra(StrToFloat(Edit2.Text) ,i);
ComboBox1.Text:='';
ComboBox1.SetFocus;
Exit;
end;
como podrán ver concateno el precio a la descripción y dejo espacios en blanco para que el precio no este muy junto a la descripción.
Así es como me queda en el listbox con el código anterior:
COCA COLA DE 600 ML $ 6.00 PESOS
CERVEZA CORONA MEDIA $ 8.00 PESOS
CIGARROS MALVORO $19.00 PESOS
TEQUILA CAZADORES 1 L $ 185.00 PESOS
Me gustaría que cada que realizo la consulta el precio siempre este justificado alineado a la derecha para que el usuario visualice mejor la lista de los precios y por cuestiones de estética.
Eje:
COCA COLA DE 600 ML $ 6.00 PESOS
CERVEZA CORONA MEDIA $ 8.00 PESOS
CIGARROS MALVORO $19.00 PESOS
TEQUILA CAZADORES 1 L $ 185.00 PESOS
Además el listbox es perfecto debido a sus características y se adecua al sistema que estoy haciendo por eso no utilizo el memo porque no me permite seleccionar su contenido e ir haciendo todo un recorrido como el listbox en sus ítems.
Esto fue lo primero que se me ocurrió:
ListBox1.Items.Text:=' '+ListBox1.Items[0];
Pero lo que note fue que tendría que ir incrementando la posición
Cual será la solución???
Utilizo delphi 5 y 6…
Por adelantado 1000 gracias si alguien puede ayudarme!!!
Estoy a sus ordenes!!!