Exception extraña..

[roman]

También recomiendo que actives la opción Project|Options|Compiler|Use debug DCUs y hagas un Build del proyecto. Esto para que el debugger incluya las unidades de la vcl. Aunque seguramente el error no se genera ahí, posiblemente sí sea ahí, en la vcl, donde se muestra y eso te puede dar una idea del tipo de operación realizada para saber dónde buscar.

// Saludos

[lag_0]

Empezado por roman

También recomiendo que actives la opción Project|Options|Compiler|Use debug DCUs y hagas un Build del proyecto. Esto para que el debugger incluya las unidades de la vcl. Aunque seguramente el error no se genera ahí, posiblemente sí sea ahí, en la vcl, donde se muestra y eso te puede dar una idea del tipo de operación realizada para saber dónde buscar.

// Saludos

SIIIIIIIIIIIIIIIIIIIIIII señor XDDDDDDDDDDDDDd

Código Delphi [-]
procedure TWinControl.PaintControls(DC: HDC; First: TControl);
var
  I, Count, SaveIndex: Integer;
  FrameBrush: HBRUSH;
begin
  if DockSite and UseDockManager and (DockManager <> nil) then
    DockManager.PaintSite(DC);
  if FControls <> nil then
  begin
    I := 0;
    if First <> nil then
    begin
      I := FControls.IndexOf(First);
      if I < 0 then I := 0;
    end;
    Count := FControls.Count;
    while I < Count do
    begin
      with TControl(FControls[i]) do
        if (Visible or (csDesigning in ComponentState) and
          not (csNoDesignVisible in ControlStyle)) and
          RectVisible(DC, Rect(Left, Top, Left + Width, Top + Height)) then
        begin
          if csPaintCopy in Self.ControlState then
            Include(FControlState, csPaintCopy);
          SaveIndex := SaveDC(DC);
          MoveWindowOrg(DC, Left, Top);
          IntersectClipRect(DC, 0, 0, Width, Height);
          Perform(WM_PAINT, DC, 0);
          RestoreDC(DC, SaveIndex);
          Exclude(FControlState, csPaintCopy);
        end;
      Inc(I);
    end;
  end;
  if FWinControls <> nil then
    for I := 0 to FWinControls.Count - 1 do
      with TWinControl(FWinControls[i]) do
        if FCtl3D and (csFramed in ControlStyle) and
          (Visible or (csDesigning in ComponentState) and
          not (csNoDesignVisible in ControlStyle)) then
        begin
          FrameBrush := CreateSolidBrush(ColorToRGB(clBtnShadow));
          FrameRect(DC, Rect(Left - 1, Top - 1, Left + Width, Top + Height),
            FrameBrush);
          DeleteObject(FrameBrush);
          FrameBrush := CreateSolidBrush(ColorToRGB(clBtnHighlight));
          FrameRect(DC, Rect(Left, Top, Left + Width + 1, Top + Height + 1),
            FrameBrush);
          DeleteObject(FrameBrush);
        end;
end;

RestoreDC(DC, SaveIndex);

EN CONTROLS.DCU, gracias roman, por que puede seeeeeeeeeeeeer

[lag_0]

pd: me pasa en mientras se ejecuta un while y muevo las forms o paso el mouse por encima de las labels o... mil cosas, pasa nosé por que, ni como xDD a ver si alguien tiene una idea, dioooooooooooz ke alivio

[roman]

¿Todas tus componentes son estándar o usas alguna de terceros?

// Saludos

[lag_0]

solo uso las flatbox, y fixee el bug de delphi 6 de oscilación en las TImage, puede ser por eso?

[roman]

¡Válgame! ¿Qué #$%& es eso de fixear? Por favor, ¡utilicemos correctamente el castellano!

En fin, no conozco las FlatBox, y no sé a qué problema de oscilación te refieres pero ciertamente ambas cosas pueden estar influyendo.

Un método como PaintControls veo muy difícil que falle debido a programación que hagamos nosotros, a menos, claro está, que estemos programando cuestiones que involucren dibujado de elementos en el formulario. Vamos, que estamos hablando de métodos a bajo nivel por lo que no es frecuente que un error así esté en nuestro código.

Entonces mi principal sospechoso es alguna componente de terceros mal programada, y por el nombre, flatbox, sí suena a que sean componentes que se meten con la forma de dibujar las cosas.

Pero eso que mencionas de la oscilación también puede afectar. Si tiene que ver con un TImage es por que tiene que ver también con dibujado, y quiza el arreglo no sea del todo correcto.

¿Qué son las flatbox? ¿Te son imprescindibles? ¿Puedes reemplazarlas por componentes estándar y ver si siguen los problemas?

// Saludos

[lag_0]

Hola!!
Ante todo muchas gracias por tu ayuda, antes estaba desesperado, al menos ya tengo una linea en la que descargar mi furia.

A ver.. las flatbox son paneles, botones y demás que tienen borde de 1px.. no me son imprescindibles pero nunca dieron problemas...
Respecto a lo de la oscilación.. repuse las backup de los TImage de delphi y sigue dando lo mismo, de todos modos, no creo que sea por culpa de las flatbox, me explico:
Antes no podia identificar el error, pero ahora me di cuenta que que se produce al mover las ventanas y dejar presionado el raton durante unos segundos, o bien, al maximizar otra y minimizarla, vamos, cuando vuelve a ser la ventana focus me tirar el error, no puede dibujarla, peroooo, atencion: Esto solo pasa cuando el bucle está en proceso y lleva más de 1000 numeros calculados, hasta entonces no hay problema, y si lo dejas calculando sin probocar que nada se tenga que dibujar tampoco tiene problemas...

Total, no sé que hacer.
Se os ocurre algo muchas gracias de nuevo.

Un saludo,
lag, lag_0.

[Casimiro Noteví]

Si son las mismas "flatbox" que usé hace años... te digo lo que hice yo debido a los constantes errores que producían... ¡¡¡ las eliminé !!! y adiós problemas

Son unos componentes para poner controles típicos como botones, groupbox, etc... "planos", sin relieve.

Mi experiencia con ellos fue un desastre, aunque hace años.