CORBATIN
25-05-2003, 20:02:54
Saludos a todos, por recomendación de un miembro del foro, me he bajado un componente llamado Scheme, dicho componente consiste en asignar archivos .bmp para dibujar las distintas partes de un form, para asi poder variar de los form clásicos.
Hasta aquí todo correcto, pero el problema surge cuando cargo el ejemplo que viene con dicho componente en Delphi y al ejecutarlo me funciona todo menos el botón minimizar. He revisado el código y creo que viene bien, también lo he comprobado paso a paso para comprobar que pasa por el lugar correcto y lo hace bien.
A continuación os paso el procedimiento del componente donde hace dicha acción y agradecería mucho cualquier ayuda o consejo sobre este tema, gracias.
procedure TepSchemeForm.DoMin(Sender: TObject);
begin
if (Owner is TForm) then
if Application.MainForm = Owner then
if (Owner as TForm).WindowState <> wsMinimized then
Application.Minimize
else
Application.Restore
else
if (Owner as TForm).WindowState <> wsMinimized then
(Owner as TForm).WindowState := wsMinimized
else
(Owner as TForm).WindowState := wsNormal;
end;
procedure TepSchemeForm.DoMax(Sender: TObject);
begin
if (Owner is TForm) then
if (Owner as TForm).WindowState <> wsMaximized then
(Owner as TForm).WindowState := wsMaximized
else
(Owner as TForm).WindowState := wsNormal;
end;
NOTA: La opción maximizar funciona perfectamente pero en cambio la de minimizar no lo hace.
Hasta aquí todo correcto, pero el problema surge cuando cargo el ejemplo que viene con dicho componente en Delphi y al ejecutarlo me funciona todo menos el botón minimizar. He revisado el código y creo que viene bien, también lo he comprobado paso a paso para comprobar que pasa por el lugar correcto y lo hace bien.
A continuación os paso el procedimiento del componente donde hace dicha acción y agradecería mucho cualquier ayuda o consejo sobre este tema, gracias.
procedure TepSchemeForm.DoMin(Sender: TObject);
begin
if (Owner is TForm) then
if Application.MainForm = Owner then
if (Owner as TForm).WindowState <> wsMinimized then
Application.Minimize
else
Application.Restore
else
if (Owner as TForm).WindowState <> wsMinimized then
(Owner as TForm).WindowState := wsMinimized
else
(Owner as TForm).WindowState := wsNormal;
end;
procedure TepSchemeForm.DoMax(Sender: TObject);
begin
if (Owner is TForm) then
if (Owner as TForm).WindowState <> wsMaximized then
(Owner as TForm).WindowState := wsMaximized
else
(Owner as TForm).WindowState := wsNormal;
end;
NOTA: La opción maximizar funciona perfectamente pero en cambio la de minimizar no lo hace.