Delphi 7 forme, non ancore lavorare in Vista

Question

Il software è costruito su Delphi 7.

Sulla mia macchina XP, il modulo viene ridimensionato come mi aspetto. Tuttavia, su due macchine Vista, ho componenti con ancore impostate su [akLeft, akTop, akRight, akBottom], ma quando ridimensiono il modulo, i componenti non si allungano con il modulo, lasciando spazi vuoti sul margine destro e inferiore . Sulla macchina XP, i componenti si allungano correttamente con il modulo.

Quindi, sembra che la macchina Vista stia ignorando la proprietà di ancoraggio. Qualche idea su cosa sta causando questo e come risolverlo?

Importante aggiornamento (François):
abbiamo avuto lo stesso problema con il nostro D2007 applicazione e su tutte le finestre x64.
La risposta di Andreas era davvero la soluzione. Quindi non è collegato a D7 né a Vista.

Answer 1

Forse è correlato al problema "Overflow dello stack di Windows Kernel" che si verifica se il controllo ha molti genitori. E se lo si esegue su un sistema a 64 bit, l'overflow dello stack del kernel avviene molto più velocemente. (Di più su questo qui: http://news.jrsoftware.org/news/toolbar2000/msg07779.html)

Su CodeCentral di Embarcadero è una soluzione per questo bug (che è anche copiato quasi 1: 1 in Delphi 2009 VCL): http://cc.embarcadero.com/Item/25646

Answer 2

Provare a eseguire il programma in modalità di compatibilità XP su Vista. I programmi compilati da Delphi 7 potrebbero non supportare completamente la modalità nativa di Vista (non c'è da stupirsi, davvero).

Answer 3

Potrebbe essere a causa della cornice trasparente mostrata da Vista. (Al fine di dare diverse finestre stesso aspetto trasparente.

Prova a usare "Allinea" (alClient) al posto di ancoraggi. Dal momento che si sta utilizzando tutte le ancore, che ha più senso.

Answer 4

Prima ancore sono state introdotte in Delphi 4 , abbiamo ridimensionato i componenti in modo dinamico per ottenere lo stesso effetto. si può facilmente spostare/regolare i componenti nel caso del form onresize.

impostazione di proprietà della maschera doublebuffered per true può ridurre lo sfarfallio, tamponando il metodo paint. ricordo che abbiamo usato doverlo implementare anche noi!

Answer 5

In alternativa al ridimensionamento I dinamica suggerito, basandomi sul suggerimento di Hemant, ho schiaffeggiato un codice funzionante (sotto). Basta creare un'applicazione per moduli VCL, rilasciare un tpanel che non tocchi alcun lato del modulo (per impostazione predefinita, Align = alNone) e sostituire l'Unità1 con il codice riportato di seguito. Quando lo esegui, vedrai 4 pannelli gialli attorno a quello inizialmente aggiunto, e il pannello centrale verrà ridimensionato con il modulo (come se tutti gli ancoraggi fossero true).

unit Unit1; 

interface 

uses 
    Windows, Classes, Controls, Forms, ExtCtrls, Graphics; 

type 
    TPanelPos = (ppLeft, ppRight, ppTop, ppBottom); 
    TForm1 = class(TForm) 
    Panel1: TPanel; 
    procedure FormCreate(Sender: TObject); 
    procedure FormDestroy(Sender: TObject); 
    private 
    { Private declarations } 
    Panels : array[TPanelPos] of tpanel; 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
var 
    PanelPos : TPanelPos; 
begin 
    for PanelPos := ppLeft to ppBottom do 
    begin 
    Panels[PanelPos] := tpanel.Create(Form1); 
    Panels[PanelPos].Parent := Form1; 
    Panels[PanelPos].Color := clYellow; 
    case PanelPos of 
    ppLeft : 
     begin 
     Panels[PanelPos].Align := alLeft; 
     Panels[PanelPos].Width := Panel1.Left - 1; 
     end; 
    ppRight : 
     begin 
     Panels[PanelPos].Align := alRight; 
     Panels[PanelPos].Width := Form1.Width - Panel1.Left - Panel1.Width; 
     end; 
    ppTop : 
     begin 
     Panels[PanelPos].Align := alTop; 
     Panels[PanelPos].Height := Panel1.Top - 1; 
     end; 
    ppBottom : 
     begin 
     Panels[PanelPos].Align := alBottom; 
     Panels[PanelPos].Height := Form1.Height - Panel1.Top - Panel1.Height; 
     end; 
    end; 
    Panel1.Align := alClient; 
    end; 
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
var 
    PanelPos : TPanelPos; 
begin 
    for PanelPos := ppLeft to ppBottom do 
    Panels[PanelPos].Free; 
end; 

end. 

Answer 6

E sembra questo è abbastanza vecchia questione, in ogni caso ecco la sola soluzione per questo problema nell'Universo: Utilizzare il metodo di programmazione di ridimensionamento di Windows vecchio stile utilizzando API intrappolando WM_SIZE e WM_SIZING, questa è l'unica infalible e funzionerà in ogni Windows lo saprai.

Ovviamente ciò significa che è necessario utilizzare principalmente GetClientRect() per determinare witdhs e heights e quindi ridimensionare i controlli in base a tali valori, certo che potrebbe sembrare di provare a innescare un'astronave ma è il migliore.

In caso contrario si potrebbe fare qualcosa di più pratico e rapido in una procedura di ridimensionamento come:

Control1.Left := Control2.Left + (buttonControl.Width div 2) - (buttonControl3.Width div 2); 
//for example widths 
Control4.Width := (Control.Width * 4) + (Control.Left * 8) + 54 ; 

faccio quel tipo di codifica e funzioni in un solo tutti i Windows versione non importa wich che sarebbe stato.

Hai solo bisogno di alcuni valori sulla risoluzione dello schermo di riferimento a fare qualcosa di simile:

iCXSCREEN := GetSystemMetrics(SM_CXSCREEN); 
iCYSCREEN := GetSystemMetrics(SM_CYSCREEN); 

    if ((iCXSCREEN = 1280) and (iCYSCREEN = 720)) or ((iCXSCREEN = 1280) and (iCYSCREEN = 700)) or ((iCXSCREEN = 1280) and (iCYSCREEN = 600)) then begin 

// blah blah 

end; 

speranza aiuta a qualcun altro!

Cheers!