FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Color de fuente en Edit !!!
Hola Foro !!!
Es posible mostrar el color de la fuente de un Edit estando la propiedad enabled := false? Las gracias anticipadas, Víctor.- |
#2
|
||||
|
||||
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
||||
|
||||
No, ponlo sobre un tpanel, lo reduces para que no se note que está sobre dicho componente y luego pones el tpanel disponible a falso, y así el Edit mantendrá el color de fuente que tenga y además parecerá que está no disponible.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#4
|
||||
|
||||
Aunque sigo estando de acuerdo con lo que dije en el hilo que menciona dca, aquí va una manera de presentar el texto de un Edit con la fuente que tenga asignada, es decir, tal como se ve cuando está habilitado:
Código:
interface type // Esta declaración debe ir antes de el formulario TEdit = class(StdCtrls.TEdit) private procedure WMPaint(var Msg: TWMPaint); message WM_PAINT; end; TForm1 = class(TForm) end; implementation procedure TEdit.WMPaint(var Msg: TWMPaint); var ps: PaintStruct; dc: hdc; obj: HGdiObj; begin if Enabled then inherited else begin dc := BeginPaint(Handle, ps); obj := SelectObject(dc, Font.Handle); SetTextColor(dc, Font.Color); TextOut(dc, 1, 0, PChar(Text), Length(Text)); SelectObject(dc, obj); EndPaint(Handle, ps); Msg.Result := 0; end; end; // Saludos Última edición por roman fecha: 04-12-2003 a las 17:19:56. |
#5
|
||||
|
||||
Gracias marcoszorrilla, es fenomenal la alternativa que presentas...
Aunque no he probado la alternativa de roman, trataré de ver si me funciona. Gracias a todos, Víctor.- |
|
|
|