Holas,
Los moderadores igual pueden hacer algo... pero, nada que no puedas hacer tú mismo. Es decir, nada te impide editar tu mensaje, hasta que quede como tiene que quedar. Para eso puedes hacer "vistas previas", formatear el código fuente hasta que todo quede "bien", en fin, no dejar la tarea a los moderadores del foro. ¿No te parece?
Comprendo que cuando edites tu mensaje y veas el pifostio que hay montado dirás, ¡madre mía! Esto que lo arregle otro. Pero, igual que yo comprendo eso, ahora ponte tú en mi posición y dime si no te parecerá igual pifostio o peor aún, porque además nosotros no contamoso con el código fuente "original", así que no nos quedaría más remedio que formatear el pifostio disponible.
Disculpa si te mi respuesta te parece odiosa, pero, no es mi intención sino recalcar el hecho de que tú puedes editar tus mensajes (como todos los usuarios de los foros pueden editar sus propios mensajes) y además te será más fácil arreglar el problema a ti que no a los moderadores, que no disponemos del código fuente original. Por otro lado, si lo haces, tal vez hasta evitemos decenas de mensajes pidiéndote que envíes a una dirección de correo el código fuente que ahora mismo es ilegible.
¿Qué te parece? En todo caso, estoy dispuesto a comerme mis palabras si el siguiente código fuente no se muestra correctamente "formateado":
Código PHP:
function __autoload($className){
global $gbClassDirs;
if(empty($gbClassDirs)){
$gbClassDirs = GbClassDirs();
}
$class = strtolower($className).
GB_CLASS_SCRIPT_EXTENSION;
$const = strtolower($className).
GB_CLASS_CONSTS_EXTENSION;
foreach($gbClassDirs as $dir){
if(is_readable($dir.$class)){
require($dir.$class);
if(is_readable($dir.$const)){
require($dir.$const);
}
break;
}
}
}
Código Delphi
[-]
procedure TCCDZoomPanel.ZoomTimer(sender: TObject);
var
cnv: TCanvas;
hDesktop: Hwnd;
cursorPos: TPoint;
iTmpX, iTmpY: Real;
sRect, dRect: TRect;
sWidth, sHeight, iWidth, iHeight, DmX, DmY: integer;
begin
iWidth := self.Width;
iHeight := self.Height;
GetCursorPos(cursorPos);
hDesktop:= GetDesktopWindow();
dRect := Rect(0, 0, iWidth, iHeight);
iTmpX := iWidth / (FZoomLevel * 4);
iTmpY := iHeight / (FZoomLevel * 4);
sRect := Rect(cursorPos.x, cursorPos.y, cursorPos.x, cursorPos.y);
sWidth := GetSysTemMetrics(SM_CXSCREEN);
sHeight := GetSysTemMetrics(SM_CYSCREEN);
InflateRect(sRect, Round(iTmpX), Round(iTmpY));
if (sRect.Left < 0) then OffsetRect(sRect, -Srect.Left, 0);
if (sRect.Top < 0) then OffsetRect(sRect, 0, -Srect.Top);
if (sRect.Right > sWidth) then
OffsetRect(sRect, -(sRect.Right-sWidth), 0);
if (sRect.Bottom > sHeight) then
OffsetRect(sRect, 0, -(sRect.Bottom-sHeight));
cnv := TCanvas.Create();
try
cnv.Handle := GetDC(hDesktop);
self.Canvas.CopyRect(dRect,cnv,sRect);
finally
ReleaseDC(hDesktop, cnv.Handle);
cnv.Free();
end;
if FShowCrosshair then begin
with self.Canvas do begin
Pen.Width := FCrosshairWidth;
Pen.Color := FCrosshairColor;
DmX:= (FZoomLevel * 2) * (cursorPos.X-Srect.Left);
DmY:= (FZoomLevel * 2) * (cursorPos.Y-Srect.Top);
MoveTo(DmX - (iWidth div 10), DmY); LineTo(DmX + (iWidth div 10), DmY); MoveTo(DmX,DmY - (iHeight div 10)); LineTo(DmX,DmY + (iHeight div 10)); end;
end;
end;
¿Cómo se ve? En todo caso, no tomes esta respuesta (ya demasiado larga, me temo) como algo personal. ¿Eh? No se trata de eso, te lo aseguro. De todas formas, he editado tu mensaje para añadir las etiquetas "DELPHI", que, aunque tú añadiste, por algún motivo se perdieron. Como tú tienes el código fuente original (y supongo que formateado), si quieres, cópialo de nuevo en tu mensaje y prueba a ver qué tal "sale".