Avatar billede f2f4 Novice
21. marts 2006 - 15:47 Der er 8 kommentarer og
1 løsning

Design; GroupBox - win2000 kontra XP

Hej

Benytter Delphi 7.
Vi er lige skiftet fra win200 til XP, og ja programmerne man kompilere bliver noget pænere under XP!

Men en mindre træls ting. Vi har en design standard der siger at der skal være 8 pixel mellem 2 GroupBoxé, dette opnås vha. at aligne et panel mellem de to GroupBoxé. Da vi kompilerede i et Win2000 miljø fungerede dette fint både når programmet blev afviklet under Win2000 og XP.

Men nu (med kompilering i XP) bliver afstanden mindre når programmet afvikles under XP, men ser ud som det skal når programmet afvikles under Win2000! Det skal siges at jeg ingen caption har på GroupBox´en, og jeg formoder derfor at XP korrigerer for dette mens Win2000 ikke gør.

Ved bare at øge panelhøjden fra 8 til 12 (mellem de 2 GroupBoxé) ... vil det komme til at se rigtig ud ved afvikling under XP, men afstanden bliver for stor ved afvikling under win2000!

Nogle idéer!? Nej et panel (frem for en GroupBox) kan ikke bruges ... hjørnerne er skarpe og ikke runde!

Tak for evt. svar.

Mvh. Morten
Avatar billede kroning Nybegynder
21. marts 2006 - 15:55 #1
Et enkelt mellemrum i caption, vil det kunne accepteres?
Avatar billede f2f4 Novice
21. marts 2006 - 16:03 #2
> kroning
Nej jeg tvivler. Designmæssigt ser dette jo ikke så smart ud! :-)
Avatar billede psycosoft-funware Nybegynder
21. marts 2006 - 16:53 #3
kan du ikke lave en lille funktion der tjekker ved opstart om det er win2k eller xp det bliver afviklet på, og derefter betemme om der skal være 8 eller 12 pixel afstand?

/FunteX! :-)
Avatar billede psycosoft-funware Nybegynder
21. marts 2006 - 16:53 #4
evt ved check af kernel version....
Avatar billede f2f4 Novice
22. marts 2006 - 10:27 #5
> psycosoft-funware
Bestemt en løsning (tak), bare lidt skod at det er nødvendigt!
Avatar billede psycosoft-funware Nybegynder
22. marts 2006 - 15:16 #6
jow, flækker lige en funktion sammen, der klare dette..... :-)

/FunteX! :-)
Avatar billede psycosoft-funware Nybegynder
22. marts 2006 - 16:18 #7
uses Registry;

function GetKernelVersion: string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKeyReadOnly('Software');
  Reg.OpenKeyReadOnly('Microsoft');
  Reg.OpenKeyReadOnly('Windows NT');
  if Reg.OpenKeyReadOnly('CurrentVersion') then
      begin
        Result := Reg.ReadString('CurrentVersion');
      end;
  Reg.Free;
end;


case GetKernelVersion of
  5.0: begi
        //Kode for win2k
        end;
  5.1: begin
        //Kode for WinXP
      end;


/FunteX! :-)
Avatar billede f2f4 Novice
22. marts 2006 - 16:39 #8
> psycosoft-funware
Yep. Tak, kom med et svar
Avatar billede psycosoft-funware Nybegynder
22. marts 2006 - 17:02 #9
:o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester