Citat:
Ervin:
Napravio sam program sa bazom podataka, ali ne znam kako da resim rezoluciju.
Zeleo bi da program sam prepoznaje rezoluciju i da se automatski podesi. Kako ovo da resim?
Za pocetak ce ti trebati ova funkcija koja menja rezoluciju u zeljenu ...
Code:
function TfrmMain.SetScreenResolution(Width, Height: integer): Longint;
var
DeviceMode: TDeviceMode;
begin
with DeviceMode do begin
dmSize := SizeOf(TDeviceMode);
dmPelsWidth := Width;
dmPelsHeight := Height;
dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
end;
Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;
Zatim u form-in OnCreate stavis :
Code:
OldWidth := GetSystemMetrics(SM_CXSCREEN);
OldHeight := GetSystemMetrics(SM_CYSCREEN);
// snimamo trenutnu rezoluciju u neke promenljive (integer)
SetScreenResolution(800, 600);
//predpostavicu da zelis da postavis rezoluciju od 800x600
I po izlasku iz programa znaci u form-in OnClose stavis:
Code:
SetScreenResolution(OldWidth, OldHeight);
Sve vreme sam pricao o glavnoj (main) formi tvoje aplikacije.
Sve sto je besmislenije, utoliko je bolje.