Witam fachowców z 4programmers i prosze o pomoc w troche dziwnej sprawie. :-}
Otóż jest sobie procedura obsługi zdarzenia OnClick standartowego przycisku uzupełniona następująco :
procedure TForm1.B640Click(Sender: TObject);
begin
resMen.ExecuteChange(640,480);
end;
W takiej postaci nie działa to według moich oczekiwań (rozdzielczość się nie zmienia). Oczywista odpowiedź brzmi Metoda Execute Change komponentu jest źle zapisana ale... jezeli uzupełnie rocedure np w taki sposób :
procedure TForm1.B640Click(Sender: TObject);
begin
ShowMessage('A');
resMen.ExecuteChange(640,480);
end;
wtedy wszystko działa ok. (gdyby coś było nie tak z w/w metoda to nie powinna działać w zadnej z 2 w/w procedur)
I o co tu biega ?
Proszę o pomoc siedze juz pare ładnych godzin i jakos nie mam koncepcji na ten dziwaczny problem [???]
tak na wszelki wypadek przytocze jeszcze treść metody execute Change jest ona przeciążona do 3 postaci ale w najprostrzej z nich wygląda tak :
function TResMen.ExecuteChange(NewWidth, NewHeight, NewBPi, NewFreq: Cardinal):LongInt;
var Mode:TDeviceMode;
begin
With Mode do
Begin
dmBitsPerPel :=NewBpi;
dmPelsWidth :=NewWidth;
dmPelsHeight :=NewHeight;
dmDisplayFrequency:=NewFreq;
dmFields :=TflagsToFlags(FFlags);
End;
Result:=ChangeDisplaySettings(Mode,TChangeModeToMode(FChangeMode));
end;