Aplikacja pisana w Delphi 7 na Vista 32-Bit działa a na na Win7 64-Bit nienormalnie

0

Witam,

Aplikację pisaną w Delphi 7 rozwijam od 4 lat. Zaczynałem ją na Win XP, potem przeszedłem na Vista 32 bit i cały czas wszystko było OK. Zarówno jeśli chodzi o kompilowanie programów w D7 jak i ich wykonywanie. Aktualnie jednak zmieniam kompa i teraz standardem jest Win7 64bit. No i właśnie tutaj pojawia się problem już na etapie uruchamiania programu.
Otóż nie wiedzieć dlaczego nie działają niektóre prcedury i parametry. Na przykład nie działa dynamiczna zmiana parametrów visible albo height. W konsekwencji program ogólnie się uruchamia, ale pewne aspekty wizualne nie działają. Czy ktoś się domyśla, z czego może wynikać ów problem?

Będę wdzięczny za pomoc.

0

daj kawałek kodu, który się nie wykonuje.
BTW u siebie nie zauważyłem podobnych problemów

0

najlepiej pokaż zrzutkę jak wygląda (a jak powinno). to nie miejsce na pseudonaukowy bełkot o "pewnych aspektach wizualnych".

0

zrobiłem tak: zainstalowałem Delphi7 na Win7 64-Bit. Przekompilowałem program w tym nowym systemie i jest już wszystko OK. Zarówno pod Win7 64bit jak pod Vista 32Bit.

Fragment kodu, który nie działał prawidłowo wygląda następująco:

 procedure TForm1.Panel47MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
drag:=True;
  Panel47.Tag:=Panel43.Height;
  pozy:=Mouse.CursorPos.y;
end;

procedure TForm1.Panel47MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if drag then
begin
Panel43.Height:=Panel47.Tag + (Mouse.CursorPos.y-pozy);
end;
end;

procedure TForm1.Panel47MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
drag:=FALSE;
end;

A problem wyglądał tak:
W momencie kiedy myszką zmieniałem Panel43.Height, w znajdującym się bezpośrednio pod nim panelu Panel47 nie zmieniał się parametr Panel47.Top. Pomimo, że zarówno Panel43 jak i Panel43 mają align ustawione na Top.

Nie wrzuciłem od razu kodu po stary komp z Delphim mi padł a na nowym z Win7 jeszcze nie miałem go zainstalowanego. Uruchamiałem tylko aplikację.

0

A co z manifestem?

1 użytkowników online, w tym zalogowanych: 0, gości: 1