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
27
28
29
30
31
32
33
34
35
36
37
38
39

{%mainunit gfx_utils.pas}

// GDI specific implementations of RTL wrapper functions

function fpgFindFirst(const Path: TfpgString; Attr: Longint; out
  Rslt: TSearchRec): Longint;
begin
  Result := FindFirst(Utf8ToAnsi(Path), Attr, Rslt);
  Rslt.Name := AnsiToUtf8(Rslt.Name);
end;

function fpgFindNext(var Rslt: TSearchRec): Longint;
begin
  Result := FindNext(Rslt);
  Rslt.Name := AnsiToUtf8(Rslt.Name);
end;

function fpgGetCurrentDir: TfpgString;
begin
  Result := AnsiToUtf8(GetCurrentDir);
end;

function fpgSetCurrentDir(const NewDir: TfpgString): Boolean;
begin
  Result := SetCurrentDir(Utf8ToAnsi(NewDir));
end;

function fpgExpandFileName(const FileName: TfpgString): TfpgString;
begin
  Result := AnsiToUtf8(ExpandFileName(Utf8ToAnsi(FileName)));
end;

function fpgFileExists(const FileName: TfpgString): Boolean;
begin
  Result := FileExists(Utf8ToAnsi(FileName));
end;