FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
el texto a la derecha
Holas
Gracias por sus respuestas anteriores son mas que una ayuda, gracias. Quizas sea una tonteria lo que intento hacer pero lo he intentado de muchas maneras y no me sale. Quiero que el texto de un edit o un mascedit este alineado a la derecha. Eje. Se alinean asi /1212121__/ y yo quiero que sea asi /__1212121/ Gracias por su ayuda
__________________
Y recueda que no hay preguntas tontas, si no, tontos que no preguntan. Sr. Genny Cris Morillo Santos Estudiante ING. Sistemas Santo Domingo D.N. |
#2
|
|||
|
|||
Hola cmgenny, revisa el truco 167 de trucomania el link es:
http://www.q3.nu/trucomania/ Espero te sirva Saludos |
#3
|
||||
|
||||
Holas
El truco es de como crear un componente de tipo Tedit y darle esta propiedad, eso esta bien. Y si ya tengo mis edit's creados lo unico que necesito es darele estas propiedades. se puede? Ejem porfa. Muchisimas gracias
__________________
Y recueda que no hay preguntas tontas, si no, tontos que no preguntan. Sr. Genny Cris Morillo Santos Estudiante ING. Sistemas Santo Domingo D.N. |
#4
|
||||
|
||||
Prueba con este truco venido de la Galia.
Código:
procedure TForm1.Button2Click(Sender: TObject); begin SysLocale.MiddleEast := True; Edit1.BiDiMode := bdRightToLeft; end; |
#5
|
|||
|
|||
Hola Marcos, la puntuación de tu respuesta es 'bestial', que sencillo!!, han puesto la componente escrita en arabe (de derecha a izquierda) y la propiedad BiDiMode remata la solución.
Muy bueno por tí mostrarnos este truco galo debían publicarlo en la sección de trucos del club. Saludos |
#6
|
||||
|
||||
Una simple observación:
Pese a lo que me suponía, lo he probado y funciona (no es que desconfíe de ustedes ). Siempre supuse que como en el medio oriente se escribe de derecha a izquierda, lo que esté en un edit bdLeftToRight como "texto1" sería en bdRightToLeft "1otxet"... ¿Me explico? Como verdaderamente es, los programas guardan el sus archivos / base de datos, los datos de derecha a izquierda, contrariamente a como se escribe en el resto del mundo, debe ser bastante engorroso compatibilizar los datos entre varios países. De todos modos, me quedo con la solución anterior... me parece un poco mas "controlada" Código:
TMiEdit = class(TCustomEdit) ... private procedure SetAlignment(const Value: TAlignment); published ... property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify; end; ... procedure TMiEdit.CreateParams(var Params: TCreateParams); const Alignments: array[TAlignment] of DWord = (ES_LEFT, ES_RIGHT, ES_CENTER); begin inherited CreateParams(Params); Params.Style := Params.Style or Alignments[FAlignment]; end; ... procedure TMiEdit.SetAlignment(const Value: TAlignment); begin if FAlignment <> Value then begin FAlignment := Value; RecreateWnd ; end; end;
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. Última edición por delphi.com.ar fecha: 10-06-2003 a las 03:13:47. |
#7
|
|||
|
|||
aclaracion y pregunta
Yo usaba el siguiente codigo para la alineacion pero no me andava, hasta que me di cuenta que lo tenia que poner en la creacion del Formulario
SysLocale.MiddleEast := true; Edit1.BiDiMode := bdRightToLeft Ahora que efectos colaterales me puede traer, si yo lo utilizo para un formulario en particular y luego lo cierro, ninguno no? |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|