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

Odpowiedz Nowy wątek
2011-07-13 10:13
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.

edytowany 1x, ostatnio: penol, 2011-07-13 10:32

Pozostało 580 znaków

2011-07-13 10:34
0

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


- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij

Pozostało 580 znaków

2011-07-13 10:49
0

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

edytowany 1x, ostatnio: Azarien, 2011-07-13 10:49

Pozostało 580 znaków

2011-07-13 13:30
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ę.

edytowany 1x, ostatnio: penol, 2011-07-13 13:31
Tych Paneli to masz ... 50 ? 100 ? 1000 ? - Opi 2011-07-13 13:48

Pozostało 580 znaków

2011-07-13 18:21
sdf
0

A co z manifestem?

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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