src/corelib/gdi/gfx_utils_impl.inc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

{%mainunit gfx_utils.pas}

uses
  Registry, Shellapi;
  
// GDI specific implementations of encoding functions

function fpgToOSEncoding(aString: TfpgString): string;
begin
  Result := Utf8ToAnsi(aString);
end;

function fpgFromOSEncoding(aString: string): TfpgString;
begin
  Result := AnsiToUtf8(aString);
end;

procedure fpgOpenURL(const aURL: TfpgString);
begin
  try
    ShellExecute(0, 'open', PChar(aURL), nil, nil, 0) ;
  except
    // do nothing
  end;
end;