mirror of
https://git.vladimir.cc/vladimir/ewsdr.git
synced 2026-08-25 20:37:33 +00:00
ew8bak
004c363df8
Replace OpenGLContextEx with OpenGLContext in MainForm, SpectrumViewOpengl, WaterfallViewOpengl, and WidebandView. Switch the Lazarus project/program dependencies from LazOpenGLContextEx to LazOpenGLContext in ewsdr.lpi and ewsdr.lpr. PixelScale was introduced in 092a202; restore the previous viewport/texture path: glViewport(0, 0, W, H), EnsureTexture(W, H), and UploadCurrentRow(W).
34 lines
733 B
ObjectPascal
34 lines
733 B
ObjectPascal
program ewsdr;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE Delphi}
|
|
{$ENDIF}
|
|
|
|
// Без этого на Windows запускается консольное окно
|
|
{$IFDEF WINDOWS}
|
|
{$APPTYPE GUI}
|
|
{$ENDIF}
|
|
|
|
uses
|
|
{$IFDEF UNIX}
|
|
cthreads,
|
|
{$ENDIF}
|
|
Interfaces, // LCL platform
|
|
WindowsDPI,
|
|
Forms, LazOpenGLContext,
|
|
MainForm, AudioOutput, DeviceForm, FlatButton, FreqDisplay, VfoOverlay,
|
|
WDSP, WDSPEngine, WebPageHtml, WebServer, WebUtils, WinFirewall, WsClient,
|
|
Settings, RadioController;
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
EnableProcessDpiAwareness;
|
|
RequireDerivedFormResource := True;
|
|
Application.Title:='EWSDR';
|
|
Application.Scaled:=True;
|
|
Application.Initialize;
|
|
Application.CreateForm(TMainForm, MainForm.MainForm);
|
|
Application.Run;
|
|
end.
|