Changeset 53 for trunk/IDE

Timestamp:

Jun 26, 2012, 7:23:47 AM (12 years ago)

Author:

chronos

Message:

• Modified: Created main UCore unit and moved non visual code from UFormMain to it.

Location:

trunk/IDE

Files:

• Forms/UFormMain.lfm (modified) (1 diff)
• Forms/UFormMain.pas (modified) (27 diffs)
• Forms/UFormMessages.pas (modified) (4 diffs)
• Forms/UFormOptions.pas (modified) (2 diffs)
• Forms/UFormProject.pas (modified) (2 diffs)
• Forms/UFormProjectNew.pas (modified) (2 diffs)
• Forms/UFormSourceCode.lfm (modified) (1 diff)
• Forms/UFormSourceCode.pas (modified) (3 diffs)
• Forms/UFormTargetCode.pas (modified) (2 diffs)
• Forms/UFormTargetProject.lfm (modified) (2 diffs)
• Forms/UFormTargetProject.pas (modified) (2 diffs)
• Forms/UFormTargets.pas (modified) (3 diffs)
• Transpascal.lpi (modified) (3 diffs)
• Transpascal.lpr (modified) (2 diffs)
• UApplicationInfo.pas (modified) (1 diff)
• UCore.lfm (added)
• UCore.pas (added)

trunk/IDE/Forms/UFormMain.lfm

@@ -1323 +1323 @@
     }
   end
-  object DebugLog1: TDebugLog
-    WriteToFileEnable = False
-    FileName = 'DebugLog.txt'
-    MaxCount = 100
-    left = 344
-    top = 88
-  end
-  object CoolTranslator1: TCoolTranslator
-    POFilesFolder = 'Languages'
-    left = 344
-    top = 136
-  end
 end

trunk/IDE/Forms/UFormMain.pas

@@ -16 +16 @@
 
 type
-
-  { TCustomCompiler }
-
-  TCustomCompiler = class(TCompiler)
-    procedure LoadFromRegistry(Root: HKEY; Key: string);
-    procedure SaveToRegistry(Root: HKEY; Key: string);
-  end;
 
   { TFormMain }
@@ -54 +47 @@
     AProjectClose: TAction;
     ActionList1: TActionList;
-    CoolTranslator1: TCoolTranslator;
-    DebugLog1: TDebugLog;
     ImageList1: TImageList;
     MainMenu: TMainMenu;
@@ -150 +141 @@
     procedure FormDestroy(Sender: TObject);
   private
-    LastOpenedFiles: TLastOpenedList;
-    procedure ProjectTemplatesInit;
-    procedure CompilerDebugLog(Text: string);
     procedure MenuItemTargetClick(Sender: TObject);
-    procedure OpenRecentClick(Sender: TObject);
-    procedure LastOpenedFilesChange(Sender: TObject);
     procedure DockInit;
-    procedure LoadFromRegistry(Root: HKEY; Key: string);
-    procedure SaveToRegistry(Root: HKEY; Key: string);
-    procedure ProjectOpen(FileName: string);
     procedure UpdateMenu;
     procedure UpdateToolbar;
   public
-    ReopenLastOpenedFile: Boolean;
-    LogParsing: Boolean;
-    Project: TProject;
-    ProjectTemplates: TProjectTemplateList;
-    TargetProject: TProject;
-    Compiler: TCustomCompiler;
+    procedure LoadFromRegistry(Root: HKEY; Key: string);
+    procedure SaveToRegistry(Root: HKEY; Key: string);
+    procedure OpenRecentClick(Sender: TObject);
     function GetSource(Name: string; var SourceCode: string): Boolean;
     procedure UpdateInterface;
@@ -182 +162 @@
 
 uses
-  UFormMessages, UFormSourceCode, UFormProject, UCommon, UFormAbout, UFormOptions,
+  UCore, UFormMessages, UFormSourceCode, UFormProject, UCommon, UFormAbout, UFormOptions,
   UFormTargets, UTarget, UAnalyzer, UProducer, UExecutor, UFormProjectNew,
   UProjectTemplates, UFormTargetProject;
@@ -189 +169 @@
   SNewProject = 'New project';
 
-{ TCustomCompiler }
-
-procedure TCustomCompiler.LoadFromRegistry(Root: HKEY; Key: string);
-var
-  I: Integer;
-begin
-  with TRegistryEx.Create do
-    try
-      RootKey := Root;
-      for I := 0 to Targets.Count - 1 do
-      with TTarget(Targets[I]) do begin
-        OpenKey(Key + '\Targets\' + Name, True);
-        if ValueExists('CompilerPath') then
-          Producer.CompilerPath := ReadStringWithDefault('CompilerPath', Producer.CompilerPath);
-      end;
-      if ValueExists('SelectedTarget') then
-      Target := Targets.SearchBySysName(ReadString('SelectedTarget'))
-        else Target := nil;
-    finally
-      Free;
-    end;
-end;
-
-procedure TCustomCompiler.SaveToRegistry(Root: HKEY; Key: string);
-var
-  I: Integer;
-begin
-  with TRegistryEx.Create do
-    try
-      RootKey := Root;
-      for I := 0 to Targets.Count - 1 do
-      with TTarget(Targets[I]) do begin
-        OpenKey(Key + '\Targets\' + Name, True);
-        if Assigned(Producer) then begin
-          if Producer.CompilerPath <> '' then WriteString('CompilerPath', Producer.CompilerPath)
-            else DeleteValue('CompilerPath');
-        end;
-      end;
-      if Assigned(Target) then WriteString('SelectedTarget', Target.SysName)
-        else DeleteValue('SelectedTarget');
-    finally
-      Free;
-    end;
-end;
-
 { TFormMain }
 
@@ -239 +174 @@
 begin
   FormSourceCode.Save;
-
-  // Compile project file
+  with Core do begin
+    // Compile project file
     Compiler.Init;
 
@@ -262 +197 @@
     FormProject.TreeViewProjectChange(Self, FormProject.TreeViewProject.Selected);
     FormMessages.Reload;
+  end;
 end;
 
 procedure TFormMain.AResetExecute(Sender: TObject);
 begin
-  Compiler.Target.Executor.Reset;
+  Core.Compiler.Target.Executor.Reset;
 end;
 
@@ -272 +208 @@
 begin
   ABuildExecute(Self);
-  Compiler.Target.Executor.Run;
+  Core.Compiler.Target.Executor.Run;
 end;
 
 procedure TFormMain.ARunToCursorExecute(Sender: TObject);
 begin
-  Compiler.Target.Executor.RunToCursor(0); // determine position
+  Core.Compiler.Target.Executor.RunToCursor(0); // determine position
 end;
 
 procedure TFormMain.AStepInExecute(Sender: TObject);
 begin
-  Compiler.Target.Executor.StepIn;
+  Core.Compiler.Target.Executor.StepIn;
 end;
 
 procedure TFormMain.AStepOutExecute(Sender: TObject);
 begin
-  Compiler.Target.Executor.StepOut;
+  Core.Compiler.Target.Executor.StepOut;
 end;
 
 procedure TFormMain.AStepOverExecute(Sender: TObject);
 begin
-  Compiler.Target.Executor.StepOver;
+  Core.Compiler.Target.Executor.StepOver;
 end;
 
 procedure TFormMain.AStopExecute(Sender: TObject);
 begin
-  Compiler.Target.Executor.Stop;
+  Core.Compiler.Target.Executor.Stop;
 end;
 
@@ -340 +276 @@
   F: TFileStream;
 begin
-  FileName := ExtractFileDir(Project.FileName) + Name + '.pas';
+  FileName := ExtractFileDir(Core.Project.FileName) + Name + '.pas';
   if FileExists(FileName) then
   try
@@ -358 +294 @@
   Title: string;
 begin
+  with Core do begin
   Title := ApplicationInfo.Name;
   if Project.FileName <> '' then Title := Project.FileName + ' - ' + Title;
@@ -384 +321 @@
   AStepOver.Enabled := AStepIn.Enabled;
   ARunToCursor.Enabled := AStepIn.Enabled;
+  end;
 
   UpdateMenu;
@@ -460 +398 @@
       RootKey := Root;
       OpenKey(Key, True);
-      ReopenLastOpenedFile := ReadBoolWithDefault('ReopenLastOpenedFile', True);
-      Compiler.Target := Compiler.Targets.SearchBySysName(ReadStringWithDefault('TargetName', ''));
-      LogParsing := ReadBoolWithDefault('LogParsing', False);
-      if ValueExists('LanguageCode') then
-        CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
-        else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
       PageControlRight.Width := ReadIntegerWithDefault('RightPanelWidth', 120);
       PageControlBottom.Height := ReadIntegerWithDefault('BottomPanelHeight', 100);
@@ -471 +403 @@
       Free;
     end;
-  LastOpenedFiles.LoadFromRegistry(RegistryRootKey, Key + '\LastOpenedFiles');
-  Compiler.LoadFromRegistry(RegistryRootKey, Key + '\Compiler');
 end;
 
@@ -481 +411 @@
       RootKey := Root;
       OpenKey(Key, True);
-      WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile);
-      if Assigned(Compiler.Target) then
-        WriteString('TargetName', Compiler.Target.SysName)
-        else DeleteValue('TargetName');
-      WriteBool('LogParsing', LogParsing);
-      if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
-        WriteString('LanguageCode', CoolTranslator1.Language.Code)
-        else DeleteValue('LanguageCode');
       WriteInteger('RightPanelWidth', PageControlRight.Width);
       WriteInteger('BottomPanelHeight', PageControlBottom.Height);
@@ -494 +416 @@
       Free;
     end;
-  LastOpenedFiles.SaveToRegistry(RegistryRootKey, Key + '\LastOpenedFiles');
-  Compiler.SaveToRegistry(RegistryRootKey, Key + '\Compiler');
-end;
-
-procedure TFormMain.ProjectOpen(FileName: string);
-begin
-  Project.Active := True;
-  Project.LoadFromFile(FileName);
-  LastOpenedFiles.AddItem(FileName);
-  UpdateInterface;
 end;
 
@@ -509 +421 @@
 begin
   with TMenuItem(Sender) do begin
-    Compiler.Target := TTarget(Compiler.Targets[MenuIndex]);
+    Core.Compiler.Target := TTarget(Core.Compiler.Targets[MenuIndex]);
     UpdateInterface;
   end;
@@ -520 +432 @@
 begin
   MenuItemProducer.Clear;
+  with Core do
   for I := 0 to Compiler.Targets.Count - 1 do begin
     NewMenuItem := TMenuItem.Create(MenuItemProducer);
@@ -541 +454 @@
 begin
   AProjectClose.Execute;
-  SaveToRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
+  Core.SaveToRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
 end;
 
@@ -548 +461 @@
   I: Integer;
 begin
-  DeleteFile(DebugLog1.FileName);
-  Compiler := TCustomCompiler.Create;
-  Project := TProject.Create;
-  ProjectTemplates := TProjectTemplateList.Create;
-  TargetProject := TProject.Create;
-  LastOpenedFiles := TLastOpenedList.Create(nil);
-  LastOpenedFiles.OnChange := LastOpenedFilesChange;
-  LastOpenedFiles.ClickAction := OpenRecentClick;
 end;
 
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
-  ProjectTemplates.Free;
-  LastOpenedFiles.Free;
-  TargetProject.Free;
-  Project.Free;
-  Compiler.Free;
-end;
-
-procedure TFormMain.ProjectTemplatesInit;
-begin
-  ProjectTemplates.AddTemplate(TProjectTemplateConsoleApp.Create);
-  ProjectTemplates.AddTemplate(TProjectTemplateGUIApp.Create);
-  ProjectTemplates.AddTemplate(TProjectTemplatePackage.Create);
-  ProjectTemplates.AddTemplate(TProjectTemplateUnit.Create);
-end;
-
-procedure TFormMain.CompilerDebugLog(Text: string);
-begin
-  DebugLog1.Add('', Text);
 end;
 
@@ -583 +470 @@
 begin
   if Sender is TMenuItem then
-    ProjectOpen(StringReplace(TMenuItem(Sender).Caption, '&', '', [rfReplaceAll]));
-end;
-
-procedure TFormMain.LastOpenedFilesChange(Sender: TObject);
-begin
-  LastOpenedFiles.LoadToMenuItem(MenuItemOpenRecent);
+    Core.ProjectOpen(StringReplace(TMenuItem(Sender).Caption, '&', '', [rfReplaceAll]));
 end;
 
@@ -595 +477 @@
   NewProjectFile: TProjectFile;
 begin
-  LoadFromRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
+  Core.LoadFromRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
   DockInit;
-  ProjectTemplatesInit;
-
-  if ReopenLastOpenedFile and (LastOpenedFiles.Items.Count > 0) then begin
-    ProjectOpen(LastOpenedFiles.Items[0]);
+  Core.ProjectTemplatesInit;
+
+  if Core.ReopenLastOpenedFile and (Core.LastOpenedFiles.Items.Count > 0) then begin
+    Core.ProjectOpen(Core.LastOpenedFiles.Items[0]);
   end;
 
@@ -614 +496 @@
 begin
   if OpenDialog1.Execute then begin
-    ProjectOpen(OpenDialog1.FileName);
+    Core.ProjectOpen(OpenDialog1.FileName);
   end;
 end;
@@ -621 +503 @@
 begin
   //if Project.Modified then ;
-  Project.Active := False;
+  Core.Project.Active := False;
   UpdateInterface;
 end;
@@ -642 +524 @@
 procedure TFormMain.APauseExecute(Sender: TObject);
 begin
-  Compiler.Target.Executor.Pause;
+  Core.Compiler.Target.Executor.Pause;
 end;
 
@@ -651 +533 @@
   if FormProjectNew.ShowModal = mrOk then begin
     if Assigned(FormProjectNew.ListView1.Selected) then
-      TProjectTemplate(FormProjectNew.ListView1.Selected.Data).InitProject(Project);
+      TProjectTemplate(FormProjectNew.ListView1.Selected.Data).InitProject(Core.Project);
   end;
   UpdateInterface;
@@ -659 +541 @@
 begin
   if SaveDialog1.Execute then begin
-    Project.Active := True;
-    Project.SaveToFile(SaveDialog1.FileName);
+    Core.Project.Active := True;
+    Core.Project.SaveToFile(SaveDialog1.FileName);
     FormSourceCode.Save;
-    Project.Save;
+    Core.Project.Save;
     UpdateInterface;
-    LastOpenedFiles.AddItem(SaveDialog1.FileName);
+    Core.LastOpenedFiles.AddItem(SaveDialog1.FileName);
   end;
 end;
@@ -671 +553 @@
 begin
   FormSourceCode.Save;
-  if not FileExistsUTF8(Project.FileName) then AProjectSaveAs.Execute
-    else Project.SaveToFile(Project.FileName);
+  if not FileExistsUTF8(Core.Project.FileName) then AProjectSaveAs.Execute
+    else Core.Project.SaveToFile(Core.Project.FileName);
 end;
 

trunk/IDE/Forms/UFormMessages.pas

@@ -34 +34 @@
 
 uses
-  UFormMain, UFormSourceCode;
+  UCore, UFormMain, UFormSourceCode;
 
 { TFormMessages }
@@ -52 +52 @@
 procedure TFormMessages.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  with FormMain, FormSourceCode do
+  with Core, FormMain, FormSourceCode do
   with TErrorMessage(Compiler.ErrorMessages[Item.Index]) do begin
     Item.Caption := FileName;
@@ -67 +67 @@
   P: TPoint;
 begin
-  with FormMain, FormSourceCode do
+  with Core, FormSourceCode do
   if Assigned(ListView1.Selected) then
   with TErrorMessage(ListView1.Selected.Data) do begin
@@ -81 +81 @@
 procedure TFormMessages.Reload;
 begin
-  ListView1.Items.Count := FormMain.Compiler.ErrorMessages.Count;
+  ListView1.Items.Count := Core.Compiler.ErrorMessages.Count;
   ListView1.Refresh;
 end;

trunk/IDE/Forms/UFormOptions.pas

@@ -34 +34 @@
 
 uses
-  UFormMain, ULanguages;
+  UCore, UFormMain, ULanguages;
 
 { TFormOptions }
@@ -41 +41 @@
 begin
   if ComboBoxLanguage.ItemIndex <> -1 then
-    FormMain.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
-  FormMain.ReopenLastOpenedFile := CheckBoxReopenProject.Checked;
+    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
+  Core.ReopenLastOpenedFile := CheckBoxReopenProject.Checked;
 end;
 
 procedure TFormOptions.FormShow(Sender: TObject);
 begin
-  FormMain.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
-  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(FormMain.CoolTranslator1.Language);
+  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
+  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
-  CheckBoxReopenProject.Checked := FormMain.ReopenLastOpenedFile;
+  CheckBoxReopenProject.Checked := Core.ReopenLastOpenedFile;
 end;
 

trunk/IDE/Forms/UFormProject.pas

@@ -29 +29 @@
 
 uses
-  UFormMain, UFormSourceCode, UFormTargetCode, UFormCodeTree;
+  UCore, UFormMain, UFormSourceCode, UFormTargetCode, UFormCodeTree;
 
 { TFormProject }
@@ -71 +71 @@
   NewNode: TTreeNode;
 begin
-  with FormMain, TreeViewProject, Items do begin
+  with Core, TreeViewProject, Items do begin
     BeginUpdate;
     Clear;

trunk/IDE/Forms/UFormProjectNew.pas

@@ -35 +35 @@
 
 uses
-  UFormMain, UProject;
+  UCore, UFormMain, UProject;
 
 {$R *.lfm}
@@ -66 +66 @@
     ListView1.BeginUpdate;
     ListView1.Items.Clear;
-    with FormMain do
+    with Core do
     for I := 0 to ProjectTemplates.Count - 1 do
     with TProjectTemplate(ProjectTemplates[I]) do begin

trunk/IDE/Forms/UFormSourceCode.lfm

@@ -7 +7 @@
   ClientHeight = 426
   ClientWidth = 535
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   inline SynEditSource: TSynEdit
     Left = 0

trunk/IDE/Forms/UFormSourceCode.pas

@@ -32 +32 @@
 
 uses
-  UFormMain;
+  UFormMain, UCore;
 
 {$R *.lfm}
@@ -40 +40 @@
 procedure TFormSourceCode.SynEditSourceChange(Sender: TObject);
 begin
-  if FormMain.Project.Active then
+  if Core.Project.Active then
     ProjectFile.Modified := True;
 end;
@@ -61 +61 @@
 procedure TFormSourceCode.UpdateInterface;
 begin
-  SynEditSource.Enabled := FormMain.Project.Active;
-  if not FormMain.Project.Active then SynEditSource.ClearAll;
+  SynEditSource.Enabled := Core.Project.Active;
+  if not Core.Project.Active then SynEditSource.ClearAll;
 end;
 

trunk/IDE/Forms/UFormTargetCode.pas

@@ -35 +35 @@
 
 uses
-  UFormMain;
+  UCore;
 
 procedure TFormTargetCode.SetProjectFile(AValue: TProjectFile);
@@ -48 +48 @@
 procedure TFormTargetCode.UpdateInterface;
 begin
-  SynEdit1.Enabled := FormMain.Project.Active;
-  if not FormMain.Project.Active then SynEdit1.ClearAll;
+  SynEdit1.Enabled := Core.Project.Active;
+  if not Core.Project.Active then SynEdit1.ClearAll;
 end;
 

trunk/IDE/Forms/UFormTargetProject.lfm

@@ -7 +7 @@
   ClientHeight = 240
   ClientWidth = 320
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   object TreeViewProject: TTreeView
     Left = 0
@@ -14 +14 @@
     Width = 320
     Align = alClient
+    DefaultItemHeight = 16
     ReadOnly = True
     TabOrder = 0

trunk/IDE/Forms/UFormTargetProject.pas

@@ -32 +32 @@
 
 uses
-  UFormMain, UFormTargetCode;
+  UCore, UFormMain, UFormTargetCode;
 
 procedure TFormTargetProject.UpdateProjectTree;
@@ -38 +38 @@
   NewNode: TTreeNode;
 begin
-  with FormMain, TreeViewProject, Items do begin
+  with Core, FormMain, TreeViewProject, Items do begin
     BeginUpdate;
     Clear;

trunk/IDE/Forms/UFormTargets.pas

@@ -31 +31 @@
 
 uses
-  UFormMain, UCompiler, UFormCompilerSettings, UProducer, UTarget;
+  UCore, UFormMain, UCompiler, UFormCompilerSettings, UProducer, UTarget;
 
 resourcestring
@@ -46 +46 @@
 procedure TFormTargets.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < FormMain.Compiler.Targets.Count) then
-  with TTarget(FormMain.Compiler.Targets[Item.Index]) do begin
+  if (Item.Index >= 0) and (Item.Index < Core.Compiler.Targets.Count) then
+  with TTarget(Core.Compiler.Targets[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := FormMain.Compiler.Targets[Item.Index];
+    Item.Data := Core.Compiler.Targets[Item.Index];
     //Item.SubItems.Add(Producer.CompilerPath);
   end;
@@ -66 +66 @@
 procedure TFormTargets.ReloadList;
 begin
-  ListView1.Items.Count := FormMain.Compiler.Targets.Count;
+  ListView1.Items.Count := Core.Compiler.Targets.Count;
   ListView1.Refresh;
 end;

trunk/IDE/Transpascal.lpi

@@ -106 +106 @@
       </Item7>
     </RequiredPackages>
-    <Units Count="17">
+    <Units Count="18">
       <Unit0>
         <Filename Value="Transpascal.lpr"/>
@@ -141 +141 @@
         <IsPartOfProject Value="True"/>
         <ComponentName Value="FormSourceCode"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="UFormSourceCode"/>
@@ -221 +222 @@
         <UnitName Value="UFormTargetProject"/>
       </Unit16>
+      <Unit17>
+        <Filename Value="UCore.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="Core"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="DataModule"/>
+        <UnitName Value="UCore"/>
+      </Unit17>
     </Units>
   </ProjectOptions>

trunk/IDE/Transpascal.lpr

@@ -13 +13 @@
   UFormTargetCode, UFormCodeTree, TemplateGenerics, CoolTranslator, Common,
   UFormAbout, UFormOptions, UFormTargets, UFormCompilerSettings, 
-UFormProjectNew, UProjectTemplates, UFormTargetProject;
+UFormProjectNew, UProjectTemplates, UFormTargetProject, UCore;
 
 {$R *.res}
@@ -43 +43 @@
   Application.CreateForm(TFormProjectNew, FormProjectNew);
   Application.CreateForm(TFormTargetProject, FormTargetProject);
+  Application.CreateForm(TCore, Core);
   Application.Run;
 end.

trunk/IDE/UApplicationInfo.pas

@@ -53 +53 @@
   Name := 'Transpascal IDE';
   Identification := 1;
-  ReleaseDate := EncodeDate(2012, 6, 25);
+  ReleaseDate := EncodeDate(2012, 6, 26);
   MajorVersion := 0;
   MinorVersion := 1;