summaryrefslogtreecommitdiff
path: root/examples/apps/ide/src/ideconst.pas
blob: 03c43ec4475645337b99abcb5a6cbb58574b8209 (plain)
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
unit ideconst;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

const
  cProjectExt     = '.project';

  // Project Options
  cProjectOptions  = 'ProjectOptions';
  cOpenedUnits     = 'OpenedUnits';
  cUnits           = 'Units';

  // INI Environment
  cEnvironment    = 'Environment';
  cEditor         = 'Editor';
  cShortcuts      = 'Shortcuts';
  cINIMakeOption  = 'MakeOption';
  cINIMakeOptionGrid = 'MakeOptionEnabled';
  cINIUnitDir     = 'UnitDir';
  cINIUnitDirGrid = 'UnitDirEnabled';


  // Predefined Macros
  cMacroPrefix          = '${';
  cMacroSuffix          = '}';
  cMacro_FPCSrcDir      = '${FPCSRCDIR}';
  cMacro_FPGuiDir       = '${FPGUIDIR}';
  cMacro_FPGuiLibDir    = '${FPGUILIBDIR}';
  cMacro_SyntaxDefDir   = '${SYNTAXDEFDIR}';
  cMacro_TemplateDir    = '${TEMPLATEDIR}';
  cMacro_Compiler       = '${COMPILER}';
  cMacro_Debugger       = '${DEBUGGER}';
  cMacro_ExeExt         = '${EXEEXT}';
  cMacro_Target         = '${TARGET}';
  cMacro_ProjectDir     = '${PROJDIR}';


  OSTarget: String    = {$I %FPCTARGETOS%};
  CPUTarget: String   = {$I %FPCTARGETCPU%};
  FPCVersion: String  = {$I %FPCVERSION%};
  FPCDate: String     = {$I %FPCDATE%};


  // Unicode character used as grid check mark
  cMultiplicationX = #$E2#$9C#$95;
  cNormCheck = #$E2#$9C#$93;
  cHeavyCheck = #$E2#$9C#$94;
  cHeavyX = #$E2#$9C#$96;
  cMedCircle = #$E2#$9A#$AB;
  cCheck = cHeavyCheck;
{
  U+2715 MULTIPLICATION X
    UTF-8: 0xE2 0x9C 0x95
    UTF-16: 0x2715

  U+2713 CHECK MARK
    UTF-8: 0xE2 0x9C 0x93
    UTF-16: 0x2713

  U+2714 HEAVY CHECK MARK
    UTF-8: 0xE2 0x9C 0x94
    UTF-16: 0x2714

  U+2716 HEAVY MULTIPLICATION X
    UTF-8: 0xE2 0x9C 0x96
    UTF-16: 0x2716

  U+26AB MEDIUM BLACK CIRCLE
    UTF-8: 0xE2 0x9A 0xAB
    UTF-16: 0x26AB
}


implementation

initialization
  OSTarget := Lowercase(OSTarget);

end.