[WIP] ビルドエラー解消

.gitignore

@@ -0,0 +1,8 @@
+# Delphi generated files
+*.dcu
+*.res
+*.stat
+*.identcache
+
+# Delphi history files
+src/__history

lib/ADVGRID3/Asgpkg.dpk

@@ -0,0 +1,41 @@
+package asgpkg;
+
+{$R *.RES}
+{$R 'Advgrid.dcr'}
+{$R 'editbtn.dcr'}
+{$ALIGN ON}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST ON}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $00400000}
+{$DESCRIPTION 'TAdvStringGrid package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD ON}
+
+requires
+  vcl30,
+  VCLSMP30,
+  dclusr30;
+
+contains
+  Advgrid,
+  Match,
+  editbtn;
+
+end.

lib/ADVGRID3/Asgpkg.~dp

@@ -0,0 +1,38 @@
+package asgpkg;
+
+{$R *.RES}
+{$R 'Advgrid.dcr'}
+{$ALIGN ON}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST ON}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $00400000}
+{$DESCRIPTION 'TAdvStringGrid package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD ON}
+
+requires
+  vcl30,
+  VCLSMP30;
+
+contains
+  Advgrid,
+  Match;
+
+end.

lib/CM2x/Baltic Solutions.url

@@ -0,0 +1,3 @@
+[InternetShortcut]
+URL=http://www.balticsolutions.com/
+Modified=10E51B4F670ABE018F

lib/CM2x/Delphi3/Bs_cm.dpk

@@ -0,0 +1,37 @@
+package bs_cm;
+
+{$R *.RES}
+{$R 'Cmemo.dcr'}
+{$ALIGN ON}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST ON}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $00400000}
+{$DESCRIPTION 'Baltic Solutions - ColorMemo'}
+{$DESIGNONLY}
+{$IMPLICITBUILD ON}
+
+requires
+  VCL30;
+
+contains
+  Colmemo,
+  Cmemo;
+
+end.

lib/CM2x/Delphi3/Bs_cm.~dp

@@ -0,0 +1,39 @@
+package bs_cm;
+
+{$R *.RES}
+{$R 'Cmemo.dcr'}
+{$R 'Audio.dcr'}
+{$ALIGN ON}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST ON}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $00400000}
+{$DESCRIPTION 'Baltic Solutions - ColorMemo'}
+{$DESIGNONLY}
+{$IMPLICITBUILD ON}
+
+requires
+  VCL30;
+
+contains
+  Colmemo,
+  Cmemo,
+  Audio;
+
+end.

lib/CM2x/Delphi4/Bs_cm.dpk

@@ -0,0 +1,37 @@
+package bs_cm;
+
+{$R *.RES}
+{$R 'Cmemo.dcr'}
+{$ALIGN ON}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST ON}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $00400000}
+{$DESCRIPTION 'Baltic Solutions - ColorMemo'}
+{$DESIGNONLY}
+{$IMPLICITBUILD ON}
+
+requires
+  VCL40;
+
+contains
+  Colmemo in 'Colmemo.pas',
+  Cmemo in 'Cmemo.pas';
+
+end.

lib/CM2x/Demo/Main.pas

@@ -0,0 +1,92 @@
+unit Main;
+
+interface
+
+uses
+    Forms, SysUtils, WinTypes, WinProcs, Messages, ColMemo, 
+    StdCtrls,  Controls, ExtCtrls, Classes;
+
+Var GoodHeight:Word;
+
+type
+  TMainForm = class(TForm)
+    ToolBarPanel: TPanel;
+    Bevel1: TBevel;
+    Bevel3: TBevel;
+    Bevel2: TBevel;
+    Label7: TLabel;
+    ColorMemo3: TColorMemo;
+    ColorMemo4: TColorMemo;
+    ColorMemo1: TColorMemo;
+    ColorMemo2: TColorMemo;
+    procedure FormCreate(Sender: TObject);
+    procedure ColorMemo1HotSpotClick(Sender: TObject; const SRC: String);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure MinMax(var m: TWMGETMINMAXINFO); message wm_getminmaxinfo;
+  end;
+
+var
+  MainForm: TMainForm;
+
+implementation
+{$R *.DFM}
+uses cm_pasc, cm_html, cm_even, cm_hyper;
+
+procedure TMainForm.FormCreate(Sender: TObject);
+var I: word;
+begin
+     { What size should we be ? }
+     with ToolBarPanel do begin
+          i:=0;
+          GoodHeight:=Controls[i].Top+Controls[i].Height;
+          for i:=1 to ControlCount-1 do
+              if Controls[i].Top+Controls[i].Height>GoodHeight then
+                 GoodHeight:=Controls[i].Top+Controls[i].Height;
+     end;
+     GoodHeight:= GoodHeight+
+                  +11+
+                  +GetSystemMetrics(SM_CYCAPTION);
+     Top:=0; Left:=0;
+     Width:=ROUND(GetSystemMetrics(SM_CXSCREEN));
+     Height:=GoodHeight;
+
+     ColorMemo2.Width := Width - ColorMemo2.Left - 10;
+     ColorMemo2.WordWrap := TRUE;
+end;
+
+procedure TMainForm.minmax(var m : TWMGETMINMAXINFO);
+begin
+     m.minmaxinfo^.ptmaxsize.x:=ROUND(GetSystemMetrics(SM_CXSCREEN	));
+     m.minmaxinfo^.ptmaxsize.y:=GoodHeight;
+     m.minmaxinfo^.ptmaxTracksize.x:=ROUND(GetSystemMetrics(SM_CXSCREEN	));
+     m.minmaxinfo^.ptmaxTracksize.y:=GoodHeight;
+     m.minmaxinfo^.ptminTracksize.x:=600;
+     m.minmaxinfo^.ptminTracksize.y:=GoodHeight;
+end;
+
+procedure TMainForm.ColorMemo1HotSpotClick(Sender: TObject;
+  const SRC: String);
+begin
+  If SRC = 'Pascal' then 
+    FrmPascalDemo.Show
+  else
+  if SRC = 'HTML' then
+    FrmHTMLDemo.Show
+  else
+  if SRC = 'Events' then
+    FrmEventsDemo.Show
+  else
+  if SRC = 'HyperText' then
+    FrmHyperTextDemo.Show
+  else
+  if SRC = 'help file' then begin
+    Application.HelpFile := 'colormemo.hlp';
+    Application.HelpCommand(Help_Contents,0);
+  end;
+end;
+
+end.
+

lib/CM2x/Demo/cm2_demo.dof

@@ -0,0 +1,80 @@
+[Compiler]
+A=1
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=1
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=0
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=
+UnitOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Parameters]
+RunParams=
+HostApplication=
+
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1041
+CodePage=932
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=