[gdi] Cambiar DrawFocusRectangle

[Kimero]

aprobado

compacto y no afecta la velocidad en absoluto, con eso me alcanza.

Seguro que hay alguna opción para que windows no dibuje el rectángulo del foco, pero...

pasé incontables horas entre hoy y ayer para encontrar algo en el api, ni te gastes, no vale la pena, la inversión alcanza y es una sola línea


EDIT: al margen, ya habia probado enviar dos DrawFocusRectangle, pero ya ni me acuerdo como tenia el codigo exactamente, no funcionaba como lo tenia yo.

EDIT2:

¡Lo que se hubiera ahorrado de haberlo sabido!

por eso estoy guardando todo lo q aprendo en un foro con un amigo, muchos pasamos por los mismos problemas... si tuvieramos la solución antes de q aparezca el problema mismo....

y no me gusta tirarle mis problemas a los demas apenas aparecen, me molesto yo mismo horas [dias en este caso ] antes de salir a preguntar

[dec]

Hola,

Empezado por Kimero

EDIT: al margen, ya habia probado enviar dos DrawFocusRectangle, pero ya ni me acuerdo como tenia el codigo exactamente, no funcionaba como lo tenia yo.

Yo sí me acuerdo: fue lo primero que se me vino a la cabeza tras leer que la función "DrawFocusRect" se anulaba a sí misma: simplemente puse dos llamadas a la función, una detrás de la otra. Obviamente, no funcionaba de ese modo, porque faltaba la condición: que el elemento estuviera "enfocado".

Empezado por Kimero

por eso estoy guardando todo lo q aprendo en un foro con un amigo, muchos pasamos por los mismos problemas... si tuvieramos la solución antes de q aparezca el problema mismo....

Bueno. El ClubDelphi almacena más de 100.000 mensajes en más de 30.000 temas. Y esto que tratamos aquí acabo de agregarlo al apartado de Trucos, con el permiso de Seoane. Por eso, precisamente, porque seguro que puede servirle a alguien.

Empezado por Kimero

y no me gusta tirarle mis problemas a los demas apenas aparecen, me molesto yo mismo horas [dias en este caso ] antes de salir a preguntar

Bueno. No soy quien para contradecirte, a mí me pasa algo parecido. Aunque, estarás conmigo en que esta vez al menos te hubieras ahorrado no poco tiempo y esfuerzo. Demos las gracias a Seoane, pues, que se lo ha merecido.

[Kimero]

Vuelvo a molestar

Sigo encontrando delirios, el simple hecho de cambiar la fuente a otro color q no sea black hace q se anule 'la inversión'

*se sienta a pensar.

[[seoane]]

Empezado por Kimero

Sigo encontrando delirios, el simple hecho de cambiar la fuente a otro color q no sea black hace q se anule 'la inversión'

La instrucción DrawFocusRect debe ser la ultima:

Código Delphi [-]
  with Control as TListBox do
  begin
    Canvas.Brush.Style := bsSolid;
    Canvas.Brush.Color:= clGray;
    Canvas.Pen.Style := psSolid;
    Canvas.Pen.Color := clRed;
    Canvas.Pen.Width := 1;

    if odSelected in State then
      Canvas.Rectangle(Rect)
    else
      Canvas.FillRect(Rect);

    Canvas.Font.Color := clRed;
    Canvas.TextOut(Rect.Left + 1, Rect.Top + 1, Items[Index]);
    // Esto al final
    if odFocused in State then
      Canvas.DrawFocusRect(Rect);
  end;

[Kimero]

Empezado por seoane

La instrucción DrawFocusRect debe ser la ultima:

Listo ahora si, para sacarme la duda puse odSelected tambien al final y se rompe todo también , o sea tiene sus caprichos de orden, en fin...

MIL GRACIAS, te debo una.

[pd: por q funcionaria el black entonces... ]

[roman]

Empezado por dec

Bueno. El ClubDelphi almacena más de 100.000 mensajes en más de 30.000 temas.

Y alguno de ellos trata este tema

// Saludos

[dec]

Hola,

Empezado por Román

Y alguno de ellos trata este tema

Y se trata de la misma solución... vamos a tener que ir llamando a Iker Jiménez...

[[seoane]]

Empezado por roman

Y alguno de ellos trata este tema

// Saludos

Pues no la había visto, pero eso demuestra que los genios pensamos igual

[roman]

Je, je. La verdad creo que estaba difícil encontrar ese hilo pues el título no ayuda. Sin embargo Kimero ya sabía de la función DrawFocusRect, así que esas seis horas de Google se hubieran reducido buscando en estos foros

// Saludos

[Kimero]

Empezado por roman

Je, je. La verdad creo que estaba difícil encontrar ese hilo pues el título no ayuda. Sin embargo Kimero ya sabía de la función DrawFocusRect, así que esas seis horas de Google se hubieran reducido buscando en estos foros

// Saludos

Es que me imagine q iba a pasar por el api directamente la solucion [me imaginé rodeado de Tmessages ], por eso pase mucho tiempo mirando msdn

Y no encontre ese hilo por el titulo, como bien decis [pregunta por el foco a la mitad del hilo].

Apenas vi q era un Xor le mandé un Draw.. pero la clave como dijo dec estaba en mandarlo solo cuando esta odFocused.

Pero bueno todo solucionado, gracias.

[[seoane]]

Empezado por Kimero

y no me gusta tirarle mis problemas a los demas apenas aparecen, me molesto yo mismo horas [dias en este caso ] antes de salir a preguntar

A veces solo es cuestión de que "multitud" de ojos ven mas que dos, y lo que en un momento determinado a ti te parece complicado otro lo ve claro. No esta mal cuando alguien se molesto en intentar una cosa, y no sabe que mas probar, en pedirle a los demás que le echen un vistazo. Incluso a veces una cuestión tan simple como esta se agradece mas que un código de 50 lineas.

Empezado por dec

PD. A ver si vamos a ser almas gemelas o algo de eso tú...

Si me dices que tu también eres un ingeniero industrial de 27 años en paro, me caigo de la silla ...

[Kimero]

Lo unico q se me ocurre, es q el textout genera un rectangulo tambien, y éste interfiere con la doble llamada al focusrec, inviertiendo lo q habias invertido.

edit: experimentando con TextRect

[dec]

Hola,

Empezado por Seoane

Si me dices que tu también eres un ingeniero industrial de 27 años en paro, me caigo de la silla ...

Esto,... pues va a ser que no. Tengo algunos meses más (je, je, je) y, aunque no trabajo actualmente para nadie, lo cierto es que no sé qué será estar parado... bueno, sí lo sé, es el antónimo de no ganar dinero. Cosas del idioma. Yo no te veo muy parado Seoane, pero, en todo caso, deseo que lo que te propongas salga adelante.