Problema de espacio entre TToolBar y TImage en Form Principal

[[nlsgarcia]]

mRoman,

Empezado por mRoman

...Tengo un form principal en el cual tengo un TMainMenu, TToolBar, y luego tengo un TImage...en tiempo de diseño, el espacio entre el ToolBar y el TImage no me aparece, pero lo ejecuto y aparece...¿Como le puedo hacer para que este espacio no aparezca?...

Pregunto :

1- ¿Que versión de Windows y de cuantos bits (32/64) utiliza la aplicación?.

2- ¿Que versión de Delphi utiliza la aplicación?.

3- ¿Haz probado borrar y crear nuevamente el componente TImage?.

4- ¿Haz verificado que no se modifique la propiedad Height del componente TToolBar en tiempo de ejecución?.

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, ToolWin, Menus, ImgList;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Opcion11: TMenuItem;
    Opcion21: TMenuItem;
    Opcion31: TMenuItem;
    ToolBar1: TToolBar;
    btn1: TToolButton;
    btn2: TToolButton;
    btn3: TToolButton;
    Image1: TImage;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Image1.Align := alClient;
   Image1.Center := True;
   Image1.Stretch := True;
end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Implementa un formulario con los componentes TMainMenu, TToolBar, TImage y TStatusBar sin espacio entre el TToolBar y el TImage, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.

[mRoman]

Gracias por contestar....

Asi es Nelson....ese es el efecto que quiero, pero no lo he logrado....

Empezado por nlsgarcia

mRoman,




Pregunto :

1- ¿Que versión de Windows y de cuantos bits (32/64) utiliza la aplicación?.

2- ¿Que versión de Delphi utiliza la aplicación?.

3- ¿Haz probado borrar y crear nuevamente el componente TImage?.

4- ¿Haz verificado que no se modifique la propiedad Height del componente TToolBar en tiempo de ejecución?.

Respuestas:

1.- Windows 7 Profesional de 64 bits
2.- Delphi 6
3.- Borrar y crear el componente TImage....mmmmm....te refieres a en tiempo de ejecución?
4.- Si, lo he verificado, en tiempo de diseño es 46 y en ejecucion es los mismo.

En cuanto a la version del S.O., he trabado con delphi6 en Windows XP y desde entonces me hace lo mismo.....

Una cosa Nelson, los botones de que clase son?....yo use TSpeedButton....no use la opcion "New Button" del ToolBar....talvez aqui este el problema.

GRacias por tu tiempo Nelson.

[mRoman]

El efecto se quita si en el Align del ToolBar, la cambio a "alCustom".....esto podría resolverlo, pero creo que no sería ésta la solución mas óptima.

Nelson, el ToolBar lo tienes en su Align igual a "alTop" ?

[mRoman]

Bueno....creo que ya lo solucioné:

En mi form le agregue un ScrollBox y dentro de él le puse el ToolBar y con su propiedad Align=alTop y un Timage con su align="alClient"....y esto al perecer quito el especio que nos ocupa de este hilo.

Los demas foreros asi tienen sus aplicaciones en su form principal donde se enceuntra el TMainMenu ???....o es diferente ???

[[nlsgarcia]]

mRoman,

Empezado por mRoman

...Borrar y crear el componente TImage....mmmmm....¿te refieres a en tiempo de ejecución?...

No , me refiero a borrarlo y crearlo nuevamente en tiempo de diseño a efectos de prueba, lo mismo se puede aplicar al TToolBar.

Empezado por mRoman

...los botones de que clase son?....yo use TSpeedButton....no use la opcion "New Button" del ToolBar....talvez aqui este el problema...

Son del tipo TToolButton como se muestra en el código del Msg #4 y fueron creados con la opción New Button del TToolBar.

Empezado por mRoman

...¿El ToolBar lo tienes en su Align igual a "alTop" ?...

Es correcto , la propiedad Align esta establecida a alTop (Valor por Default).

Empezado por mRoman

...creo que ya lo solucioné...En mi form le agregue un TScrollBox y dentro de le puse el TToolBar con su propiedad Align=alTop y un Timage con su align="alClient"...¿Los demás foreros así tienen sus aplicaciones?...

Te sugiero probar el código del Msg #4 y ver su comportamiento en relación al problema planteado, quizás te sirva para acotar el problema.

Espero sea útil

Nelson.

[mRoman]

Ok....gracias...probaré tu código.

[mRoman]

Efectivamente con tu código no muestra el espacio en cuestión.....la solución que publique pues no fue solución, presenta un comportamiento extraño al momento de mandar llamar otros formularios.....

Hice una aplicación tomando como ejemplo tu código, y efectivamente hace lo que yo quiero.....veré como le puedo aplicar a mis aplicaciones.

Gracias Nelson