units/mapmem/mapmem_demo/KOLForm_1.inc

   1 { KOL MCK } // Do not remove this line!\r
   2 \r
   3 procedure NewForm1( var Result: PForm1; AParent: PControl );\r
   4 begin\r
   5 \r
   6   New( Result, Create );\r
   7   Result.Form := NewForm( AParent, 'KOLForm' ).SetPosition( 195, 133 ).SetSize( 404, 253 );\r
   8   Applet :=  Result.Form;\r
   9   Result.Form.Add2AutoFree( Result );\r
  10 \r
  11     Result.MM := NewMapMem( Result.Form );\r
  12     Result.MM.MapName     := 'Test-MAP';\r
  13     Result.MM.OpenMapWhen := omManual;\r
  14     Result.MM.MapStrings.Add('');\r
  15     Result.MM.MapStrings.Add('');\r
  16     Result.MM.MapStrings.Add('To check memory mapping ');\r
  17     Result.MM.MapStrings.Add('');\r
  18     Result.MM.MapStrings.Add('start another instance of this program');\r
  19     Result.MM.MapStrings.Add('');\r
  20     Result.MM.MapStrings.Add('and edit this text.');\r
  21     Result.MM.MapStrings.Add('');\r
  22     Result.MM.OpenMap;\r
  23     if Result.MM.ExistsAlready then Result.MM.ReadMap\r
  24     else Result.MM.WriteMap;\r
  25   Result.Form.Add2AutoFree( Result.MM );\r
  26       Result.MM.OnAppListChange := Result.MMAppListChange;\r
  27       Result.MM.OnUpdate := Result.MMUpdate;\r
  28     // Result.ME.TabOrder = 0\r
  29     Result.ME := NewEditBox( Result.Form, [ eoMultiline ] ).SetAlign ( caClient );\r
  30       Result.ME.OnChange := Result.MEChange;\r
  31     Result.ME.Text := ''+#13+#10;\r
  32     Result.KOLFormFormCreate( Result );\r
  33 \r
  34 end;\r
  35 \r
  36 \r