MAXIUM
13-01-2009, 00:11:36
Hola tengo un problema de incompatibilidad de software (el que estoy desarrollando :D) entre Windows XP y el 98SE (no me hagan testearlo en Vista :rolleyes:).
El asunto es que en XP funciona perfectamente pero no así en 98SE, me arroja el error "El parámetro no es correcto" en tiempo de ejecución, justo sobre la línea Image1.Canvas.Draw(Horizontal*510, Vertical*500, MapaBMP);
Alguna idea o ayuda que no logro ver el error :confused:
Nota: Mapa[Vertical, Horizontal] es un arreglo de String que contiene el nombre del archivo a cargar. Por ejemplo Mapa[1,1,] = 'Parte_01.bmp'. Estoy usando Delphi 7, con actualizaciones y todo.
procedure TForm1.Button4Click(Sender: TObject);
Var
MapaBMP: TBitmap;
Horizontal, Vertical: Integer;
begin
MapaBMP:= TBitmap.Create;
// Mapea el plano cargando las imágenes.
Try
For Vertical:= 0 To 5 do
For Horizontal:= 0 To 9 Do
Begin
MapaBMP.LoadFromFile(Directorio + 'plano\'+ Mapa[Vertical, Horizontal]);
Image1.Canvas.Draw(Horizontal*510, Vertical*500, MapaBMP);
End;
Finally
MapaBMP.Free;
End;
end;
El asunto es que en XP funciona perfectamente pero no así en 98SE, me arroja el error "El parámetro no es correcto" en tiempo de ejecución, justo sobre la línea Image1.Canvas.Draw(Horizontal*510, Vertical*500, MapaBMP);
Alguna idea o ayuda que no logro ver el error :confused:
Nota: Mapa[Vertical, Horizontal] es un arreglo de String que contiene el nombre del archivo a cargar. Por ejemplo Mapa[1,1,] = 'Parte_01.bmp'. Estoy usando Delphi 7, con actualizaciones y todo.
procedure TForm1.Button4Click(Sender: TObject);
Var
MapaBMP: TBitmap;
Horizontal, Vertical: Integer;
begin
MapaBMP:= TBitmap.Create;
// Mapea el plano cargando las imágenes.
Try
For Vertical:= 0 To 5 do
For Horizontal:= 0 To 9 Do
Begin
MapaBMP.LoadFromFile(Directorio + 'plano\'+ Mapa[Vertical, Horizontal]);
Image1.Canvas.Draw(Horizontal*510, Vertical*500, MapaBMP);
End;
Finally
MapaBMP.Free;
End;
end;