Hola compañeros, recurro a ustedes para que me ayuden a aclarar una duda que tengo. Es con respecto a las evaluaciones del tipo "
if num1 in [num2 .. num3]" específicamente evaluaciones de rangos. Resulta que ayer estaba escribiendo este algoritmo:
Código Delphi
[-]/ Calcula si el punto donde será dibujado TextToDraw será bajo el puntero del Ratón.
function MouseOverTextCanvas(const CanvasHandle: HDC;
const TextToDraw: String;
const ControlOrigin: TPoint;
const MainRectTopLeft: TRect;
const ExtraDrawingRect: TRect): boolean;
var
CalcRect: TRect;
TextRect: TRect;
begin
TextRect := Rect((ControlOrigin.X + MainRectTopLeft.Left + ExtraDrawingRect.Left),
(ControlOrigin.Y + MainRectTopLeft.Top + ExtraDrawingRect.Top),
0, 0);
CalcRect := Rect(0, 0, 0, 0);
DrawText(CanvasHandle,
PChar(TextToDraw),
Length(TextToDraw),
CalcRect, DT_CALCRECT);
TextRect.Right := TextRect.Left + CalcRect.Right;
TextRect.Bottom := TextRect.Top + CalcRect.Bottom;
Result := ((Mouse.CursorPos.X in [TextRect.Left .. TextRect.Right]) and
(Mouse.CursorPos.Y in [TextRect.Top .. TextRect.Bottom]));
end;
El anterior algoritmo es para probar si un texto dibujado está sobre cierta región del Canvas, para dibujar el texto con estilo "Underline" por ejemplo, al estilo Web.
El problema no es con el algoritmo en si, sino es con la evaluación. Ya que luego de quebrarme la cabeza por gran rato modifiqué la anterior evaluación y me quedé con el mismo algoritmo, pero con una evaluación más de principiante
:
Código Delphi
[-]function MouseOverTextCanvas(const CanvasHandle: HDC;
const TextToDraw: String;
const ControlOrigin: TPoint;
const MainRectTopLeft: TRect;
const ExtraDrawingRect: TRect): boolean;
var
CalcRect: TRect;
TextRect: TRect;
X, L, R, Y, T, B: Integer;
begin
TextRect := Rect((ControlOrigin.X + MainRectTopLeft.Left + ExtraDrawingRect.Left),
(ControlOrigin.Y + MainRectTopLeft.Top + ExtraDrawingRect.Top),
0, 0);
CalcRect := Rect(0, 0, 0, 0);
DrawText(CanvasHandle,
PChar(TextToDraw),
Length(TextToDraw),
CalcRect, DT_CALCRECT);
TextRect.Right := TextRect.Left + CalcRect.Right;
TextRect.Bottom := TextRect.Top + CalcRect.Bottom;
X := Mouse.CursorPos.X;
Y := Mouse.CursorPos.Y;
L := TextRect.Left;
R := TextRect.Right;
T := TextRect.Top;
B := TextRect.Bottom;
Result := (((x >= l) and (x <= r)) and ((Y >= T) and (Y <= B)));
end;
Un dato curioso también, la existencia de las variables
X, Y, L, R, T y B se debe a que la anterior evaluación hecha directamente con las variables
Mouse.CursorPos y
TextRect no funcionaba tampoco.
No sé si es que estoy equivocado sobre la función de
in o es que realmente mi suposición de que es un problema de
Delphi 2009 es correcta.
Quisiera saber sus opiniones al respecto.
Saludos,
Chris