cose-svnmail Mailing List for CoS Editor

Status: Planning

Brought to you by: nfz_

cose-svnmail — svn commits

You can subscribe to this list here.

2007	_Jan	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug (101)	_Sep (78)	_Oct (106)	_Nov (86)	_Dec (7)
2008	_Jan (246)	_Feb (266)	_Mar (201)	_Apr (145)	_May (53)	_Jun (34)	_Jul (36)	_Aug (73)	_Sep (25)	_Oct (22)	_Nov (3)	_Dec (1)
2009	_Jan (38)	_Feb (49)	_Mar (161)	_Apr (53)	_May (11)	_Jun (3)	_Jul (6)	_Aug	_Sep	_Oct	_Nov (1)	_Dec
2010	_Jan	_Feb	_Mar (4)	_Apr (2)	_May	_Jun	_Jul	_Aug	_Sep (1)	_Oct (1)	_Nov (6)	_Dec
2011	_Jan (10)	_Feb (3)	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov	_Dec

Flat | Threaded

1 2 3 .. 74 > >> (Page 1 of 74)

[Cose-svnmail] SF.net SVN: cose:[1863] trunk/editor/NNProcSettings.lfm

From: <nf...@us...> - 2011-02-16 22:23:45

Revision: 1863
          http://cose.svn.sourceforge.net/cose/?rev=1863&view=rev
Author:   nfz_
Date:     2011-02-16 22:23:39 +0000 (Wed, 16 Feb 2011)

Log Message:
-----------
NNProcSettings:
- reformatting the layout of some text.

Modified Paths:
--------------
    trunk/editor/NNProcSettings.lfm

Modified: trunk/editor/NNProcSettings.lfm
===================================================================
--- trunk/editor/NNProcSettings.lfm	2011-02-16 22:22:24 UTC (rev 1862)
+++ trunk/editor/NNProcSettings.lfm	2011-02-16 22:23:39 UTC (rev 1863)
@@ -1,14 +1,14 @@
 object NNProcSettingsFrm: TNNProcSettingsFrm
-  Left = 787
+  Left = 752
   Height = 192
   Top = 151
-  Width = 430
+  Width = 465
   ActiveControl = ProcTime
   BorderIcons = [biSystemMenu]
   BorderStyle = bsSingle
   Caption = 'Nueral Net Process Settings'
   ClientHeight = 192
-  ClientWidth = 430
+  ClientWidth = 465
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   OnClose = FormClose
@@ -18,14 +18,15 @@
     Left = 8
     Height = 177
     Top = 8
-    Width = 169
+    Width = 193
     Shape = bsFrame
   end
   object Label1: TLabel
     Left = 16
-    Height = 15
+    Height = 32
     Top = 16
-    Width = 125
+    Width = 112
+    AutoSize = False
     Caption = 'Process Time (msec)'
     ParentColor = False
     WordWrap = True
@@ -40,9 +41,9 @@
   end
   object Label3: TLabel
     Left = 16
-    Height = 32
+    Height = 15
     Top = 72
-    Width = 138
+    Width = 173
     Anchors = [akTop, akLeft, akRight]
     Caption = 'Total Active Process Count:'
     ParentColor = False
@@ -65,7 +66,7 @@
     ParentColor = False
   end
   object GroupBox1: TGroupBox
-    Left = 184
+    Left = 207
     Height = 169
     Top = 7
     Width = 239
@@ -241,10 +242,10 @@
     end
   end
   object ProcTime: TFloatSpinEdit
-    Left = 120
+    Left = 128
     Height = 24
     Top = 16
-    Width = 50
+    Width = 66
     Increment = 1
     MaxValue = 1000
     MinValue = 0
@@ -253,19 +254,18 @@
     Value = 0
   end
   object TimerPartitions: TSpinEdit
-    Left = 120
+    Left = 128
     Height = 24
     Top = 42
-    Width = 50
+    Width = 66
     OnChange = TimerPartitionsChange
     TabOrder = 2
   end
   object TotalProcNumberEdit: TStaticText
     Left = 120
-    Height = 34
+    Height = 20
     Top = 84
-    Width = 15
-    AutoSize = True
+    Width = 47
     Caption = '0.0'
     Font.Height = -12
     ParentFont = False
@@ -273,10 +273,9 @@
   end
   object LegCountNumberEdit: TStaticText
     Left = 120
-    Height = 34
+    Height = 26
     Top = 110
-    Width = 15
-    AutoSize = True
+    Width = 48
     Caption = '0.0'
     Font.Height = -12
     ParentFont = False
@@ -284,10 +283,9 @@
   end
   object NeuronCountNumberEdit: TStaticText
     Left = 120
-    Height = 34
+    Height = 24
     Top = 136
-    Width = 15
-    AutoSize = True
+    Width = 56
     Caption = '0.0'
     Font.Height = -12
     ParentFont = False


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1862] trunk/editor/NeuralNet.pas

From: <nf...@us...> - 2011-02-16 22:22:31

Revision: 1862
          http://cose.svn.sourceforge.net/cose/?rev=1862&view=rev
Author:   nfz_
Date:     2011-02-16 22:22:24 +0000 (Wed, 16 Feb 2011)

Log Message:
-----------
NeuralNet:
TNeuron.calculate method now only does a calculation if the neurons tick is different than the Processtimer.MasterTick.  A difference in ticks means that the process has advanced in time so doing a calculation would be beneficial.

Modified Paths:
--------------
    trunk/editor/NeuralNet.pas

Modified: trunk/editor/NeuralNet.pas
===================================================================
--- trunk/editor/NeuralNet.pas	2011-02-16 22:18:22 UTC (rev 1861)
+++ trunk/editor/NeuralNet.pas	2011-02-16 22:22:24 UTC (rev 1862)
@@ -69,6 +69,9 @@
      The TNeuronNetwork class derives from the TComponent class so that the design form can be the owner of the TNeuronNetwork
      instance.  Being derived from TComponent also allows the instance to be serialized when required.
   }
+
+  { TNeuronNetwork }
+
   TNeuronNetwork = class(TComponent)
   private
     Compiling: Boolean;
@@ -102,6 +105,7 @@
     function GetNeuronUsingID(NeuronIdx: integer): TNeuron;
     function NeuronCount: integer;
     function ParentForm: TCustomForm;
+
   end;
 
   {  TBNeuron is the base neuron that the other specialized neurons derive from.
@@ -160,6 +164,7 @@
   TNeuron = class(TBNeuron)
   private
     { Private declarations }
+    FTick: integer;  // the tick that the calculation was completed
     FFormula: string;
     FFormulaCompiled: boolean;
     InstrStack: array of TMCInstruction;
@@ -542,6 +547,7 @@
   //ActiveControlCanvas: TCanvas;
 
 
+
 procedure ChangeFormulaReference(NeuronReferenc: TNeuron; OldText, NewText: string);
 begin
 
@@ -1150,6 +1156,9 @@
   IP: integer;
 begin
   if (NeuronNetwork = nil) or Calculating then exit;
+  // only do a calculation if own tick is not the same as the master tick
+  // if ticks are the same then a calculation was already done for the master tick
+  if Ftick = ProcessTimer.MasterTick then exit;
 
   if not CalcDisabled and not NeuronNetwork.Compiling then
   begin
@@ -1164,7 +1173,9 @@
        NeuronOutput := ExecuteNextInstruction(IP, 0);
        Triggered := False;
       end;
-    end
+    end;
+    // calculating done so no need to do another calc till next master tick change.
+    Ftick := ProcessTimer.MasterTick;
   end;
   Calculating := False;
 end;
@@ -1387,6 +1398,8 @@
     Sorted := True;
     Duplicates := dupIgnore;
   end;
+
+  FTick := 0;
 end;
 
 destructor TNeuron.Destroy;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1861] trunk/editor/ProcessNode.pas

From: <nf...@us...> - 2011-02-16 22:18:28

Revision: 1861
          http://cose.svn.sourceforge.net/cose/?rev=1861&view=rev
Author:   nfz_
Date:     2011-02-16 22:18:22 +0000 (Wed, 16 Feb 2011)

Log Message:
-----------
ProcessNode:
- TProcessTimer has a new property called MasterTick that increments each time band 0 starts over

Modified Paths:
--------------
    trunk/editor/ProcessNode.pas

Modified: trunk/editor/ProcessNode.pas
===================================================================
--- trunk/editor/ProcessNode.pas	2011-01-09 05:26:16 UTC (rev 1860)
+++ trunk/editor/ProcessNode.pas	2011-02-16 22:18:22 UTC (rev 1861)
@@ -83,6 +83,7 @@
   TProcessTimer = class(TComponent)
   private
     { Private declarations }
+    FMasterTick: integer;  // tick increments at begining of each band 0 start
     PTimer: TTimer;
     ProcListBandPos: integer;
     ProcessBands: array[1..4] of TProcessBand;
@@ -112,6 +113,8 @@
     function BandTimeMS(Band: integer): integer;
     property TotalProcCount: integer read TotalProcessCount;
     property TotalProcLegCount: integer read TotalLegCount;
+    property MasterTick: integer read FMasterTick;
+
   published
     { Published declarations }
     property TimerEnabled: boolean read GetTimerEnabled write SetTimerEnabled;
@@ -245,6 +248,7 @@
   FTimerPartitions := 1;
   ProcessTimeMS := 250;
   PTimer.OnTimer := RunProcesses;
+  FMasterTick:= 0;
 //
 end;
 
@@ -334,7 +338,12 @@
     begin
       ProcessBand.LegCountLeft := ProcessBand.LegCount;
       Inc(ProcListBandPos);
-      if ProcListBandPos > 4 then ProcListBandPos := 1;
+      if ProcListBandPos > 4 then
+      begin
+        ProcListBandPos := 1;
+        // update master tick since starting over at the beginning again
+        inc(FMasterTick);
+      end;
       ProcessBand := @ProcessBands[ProcListBandPos];
     end;
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1860] branches/examples/windturbine/HawtBoostStar.NPS

From: <nf...@us...> - 2011-01-09 05:26:22

Revision: 1860
          http://cose.svn.sourceforge.net/cose/?rev=1860&view=rev
Author:   nfz_
Date:     2011-01-09 05:26:16 +0000 (Sun, 09 Jan 2011)

Log Message:
-----------
HawtBoostStar example simulation added.

Added Paths:
-----------
    branches/examples/windturbine/HawtBoostStar.NPS

Added: branches/examples/windturbine/HawtBoostStar.NPS
===================================================================
(Binary files differ)


Property changes on: branches/examples/windturbine/HawtBoostStar.NPS
___________________________________________________________________
Added: svn:mime-type
   + application/octet-stream


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1859] trunk/editor/EdIONumberProp.lfm

From: <nf...@us...> - 2011-01-09 05:20:52

Revision: 1859
          http://cose.svn.sourceforge.net/cose/?rev=1859&view=rev
Author:   nfz_
Date:     2011-01-09 05:20:46 +0000 (Sun, 09 Jan 2011)

Log Message:
-----------
EdIONumberProp:
- removed form constraint width

Modified Paths:
--------------
    trunk/editor/EdIONumberProp.lfm

Modified: trunk/editor/EdIONumberProp.lfm
===================================================================
--- trunk/editor/EdIONumberProp.lfm	2011-01-09 04:23:50 UTC (rev 1858)
+++ trunk/editor/EdIONumberProp.lfm	2011-01-09 05:20:46 UTC (rev 1859)
@@ -11,7 +11,6 @@
   Caption = 'Edit IO Number'
   ClientHeight = 197
   ClientWidth = 320
-  Constraints.MinWidth = 320
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   OnClose = FormClose


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1858] trunk/editor/cose.lpi

From: <nf...@us...> - 2011-01-09 04:23:56

Revision: 1858
          http://cose.svn.sourceforge.net/cose/?rev=1858&view=rev
Author:   nfz_
Date:     2011-01-09 04:23:50 +0000 (Sun, 09 Jan 2011)

Log Message:
-----------
- put project insync

Modified Paths:
--------------
    trunk/editor/cose.lpi

Modified: trunk/editor/cose.lpi
===================================================================
--- trunk/editor/cose.lpi	2011-01-09 04:23:13 UTC (rev 1857)
+++ trunk/editor/cose.lpi	2011-01-09 04:23:50 UTC (rev 1858)
@@ -278,6 +278,7 @@
         <IsPartOfProject Value="True"/>
         <ComponentName Value="EdIONumberFrm"/>
         <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdIONumberProp"/>
       </Unit36>
       <Unit37>


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1857] trunk/editor/Main.lfm

From: <nf...@us...> - 2011-01-09 04:23:19

Revision: 1857
          http://cose.svn.sourceforge.net/cose/?rev=1857&view=rev
Author:   nfz_
Date:     2011-01-09 04:23:13 +0000 (Sun, 09 Jan 2011)

Log Message:
-----------
Main:
- TPage control must not be visible now due to changes by Lazarus team.  TNotebook and TPage are now tabless and soon to be owner draw.  Will have to switch to TPageControl eventually.

Modified Paths:
--------------
    trunk/editor/Main.lfm

Modified: trunk/editor/Main.lfm
===================================================================
--- trunk/editor/Main.lfm	2011-01-09 04:21:12 UTC (rev 1856)
+++ trunk/editor/Main.lfm	2011-01-09 04:23:13 UTC (rev 1857)
@@ -548,13 +548,11 @@
       Height = 107
       Top = 134
       Width = 553
-      PageIndex = 0
+      PageIndex = 1
       Align = alBottom
       Anchors = [akTop, akLeft, akRight, akBottom]
       TabOrder = 0
       TabStop = True
-      object ControlsPage: TPage
-      end
       object NeuronsPage: TPage
         ClientWidth = 553
         ClientHeight = 107
@@ -573,6 +571,8 @@
           TopIndex = -1
         end
       end
+      object ControlsPage: TPage
+      end
     end
     object RichEdPanel: TPanel
       AnchorSideRight.Control = ToolboxPanel


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1856] trunk/editor/NNProcSettings.lfm

From: <nf...@us...> - 2011-01-09 04:21:19

Revision: 1856
          http://cose.svn.sourceforge.net/cose/?rev=1856&view=rev
Author:   nfz_
Date:     2011-01-09 04:21:12 +0000 (Sun, 09 Jan 2011)

Log Message:
-----------
NNProcSettings:
- removed size constraints to allow form to move on screen.

Modified Paths:
--------------
    trunk/editor/NNProcSettings.lfm

Modified: trunk/editor/NNProcSettings.lfm
===================================================================
--- trunk/editor/NNProcSettings.lfm	2011-01-09 04:20:07 UTC (rev 1855)
+++ trunk/editor/NNProcSettings.lfm	2011-01-09 04:21:12 UTC (rev 1856)
@@ -1,10 +1,10 @@
 object NNProcSettingsFrm: TNNProcSettingsFrm
-  Left = 765
+  Left = 787
   Height = 192
-  Top = 214
+  Top = 151
   Width = 430
   ActiveControl = ProcTime
-  BorderIcons = [biSystemMenu, biMinimize]
+  BorderIcons = [biSystemMenu]
   BorderStyle = bsSingle
   Caption = 'Nueral Net Process Settings'
   ClientHeight = 192
@@ -13,7 +13,7 @@
   Font.Name = 'MS Sans Serif'
   OnClose = FormClose
   Position = poDefault
-  LCLVersion = '0.9.29'
+  LCLVersion = '0.9.31'
   object Bevel1: TBevel
     Left = 8
     Height = 177
@@ -23,24 +23,24 @@
   end
   object Label1: TLabel
     Left = 16
-    Height = 18
+    Height = 15
     Top = 16
-    Width = 138
+    Width = 125
     Caption = 'Process Time (msec)'
     ParentColor = False
     WordWrap = True
   end
   object Label2: TLabel
     Left = 16
-    Height = 18
+    Height = 15
     Top = 51
-    Width = 103
+    Width = 93
     Caption = 'Timer Partitions'
     ParentColor = False
   end
   object Label3: TLabel
     Left = 16
-    Height = 39
+    Height = 32
     Top = 72
     Width = 138
     Anchors = [akTop, akLeft, akRight]
@@ -50,17 +50,17 @@
   end
   object Label4: TLabel
     Left = 16
-    Height = 18
+    Height = 15
     Top = 112
-    Width = 108
+    Width = 92
     Caption = 'Total Leg Count:'
     ParentColor = False
   end
   object Label5: TLabel
     Left = 16
-    Height = 18
+    Height = 15
     Top = 136
-    Width = 96
+    Width = 83
     Caption = 'Neuron Count:'
     ParentColor = False
   end
@@ -71,174 +71,178 @@
     Width = 239
     Anchors = [akTop, akLeft, akRight]
     Caption = 'Process Bands'
-    ClientHeight = 150
+    ClientHeight = 153
     ClientWidth = 235
+    Constraints.MaxHeight = 169
+    Constraints.MaxWidth = 239
+    Constraints.MinHeight = 169
+    Constraints.MinWidth = 239
     TabOrder = 0
     object Label6: TLabel
       Left = 8
-      Height = 18
+      Height = 15
       Top = 2
-      Width = 34
+      Width = 30
       Caption = 'Band'
       ParentColor = False
     end
     object Label7: TLabel
       Left = 48
-      Height = 18
+      Height = 15
       Top = 2
-      Width = 46
+      Width = 42
       Caption = 'Entries'
       ParentColor = False
     end
     object Label8: TLabel
       Left = 102
-      Height = 18
+      Height = 15
       Top = 2
-      Width = 55
+      Width = 52
       Caption = 'Leg Size'
       ParentColor = False
       WordWrap = True
     end
     object Label9: TLabel
       Left = 16
-      Height = 18
+      Height = 15
       Top = 36
-      Width = 9
+      Width = 8
       Caption = '1'
       ParentColor = False
     end
     object Label10: TLabel
       Left = 16
-      Height = 18
+      Height = 15
       Top = 60
-      Width = 9
+      Width = 8
       Caption = '2'
       ParentColor = False
     end
     object Label11: TLabel
       Left = 16
-      Height = 18
+      Height = 15
       Top = 84
-      Width = 9
+      Width = 8
       Caption = '3'
       ParentColor = False
     end
     object Label12: TLabel
       Left = 16
-      Height = 18
+      Height = 15
       Top = 108
-      Width = 9
+      Width = 8
       Caption = '4'
       ParentColor = False
     end
     object Label13: TLabel
       Left = 142
-      Height = 18
+      Height = 15
       Top = 2
-      Width = 67
+      Width = 60
       Caption = 'Time (ms)'
       ParentColor = False
     end
     object B2Entries: TLabel
       Left = 48
-      Height = 18
+      Height = 15
       Top = 61
-      Width = 9
+      Width = 8
       Caption = '0'
       ParentColor = False
     end
     object B2LegSize: TLabel
       Left = 102
-      Height = 18
+      Height = 15
       Top = 60
-      Width = 9
+      Width = 8
       Caption = '0'
       ParentColor = False
     end
     object B2Time: TLabel
       Left = 159
-      Height = 18
+      Height = 15
       Top = 61
-      Width = 21
+      Width = 18
       Caption = '0.0'
       ParentColor = False
     end
     object B3Entries: TLabel
       Left = 48
-      Height = 18
+      Height = 15
       Top = 86
-      Width = 9
+      Width = 8
       Caption = '0'
       ParentColor = False
     end
     object B3LegSize: TLabel
       Left = 103
-      Height = 18
+      Height = 15
       Top = 84
-      Width = 9
+      Width = 8
       Caption = '0'
       ParentColor = False
     end
     object B3Time: TLabel
       Left = 159
-      Height = 18
+      Height = 15
       Top = 84
-      Width = 21
+      Width = 18
       Caption = '0.0'
       ParentColor = False
     end
     object B4Entries: TLabel
       Left = 48
-      Height = 18
+      Height = 15
       Top = 108
-      Width = 9
+      Width = 8
       Caption = '0'
       ParentColor = False
     end
     object B4LegSize: TLabel
       Left = 102
-      Height = 18
+      Height = 15
       Top = 108
-      Width = 9
+      Width = 8
       Caption = '0'
       ParentColor = False
     end
     object B4Time: TLabel
       Left = 159
-      Height = 18
+      Height = 15
       Top = 108
-      Width = 21
+      Width = 18
       Caption = '0.0'
       ParentColor = False
     end
     object B1Entries: TLabel
       Left = 48
-      Height = 18
+      Height = 15
       Top = 36
-      Width = 9
+      Width = 8
       Caption = '0'
       ParentColor = False
     end
     object B1LegSize: TLabel
       Left = 102
-      Height = 18
+      Height = 15
       Top = 36
-      Width = 9
+      Width = 8
       Caption = '0'
       ParentColor = False
     end
     object B1Time: TLabel
       Left = 159
-      Height = 18
+      Height = 15
       Top = 36
-      Width = 21
+      Width = 18
       Caption = '0.0'
       ParentColor = False
     end
   end
   object ProcTime: TFloatSpinEdit
     Left = 120
-    Height = 27
+    Height = 24
     Top = 16
     Width = 50
     Increment = 1
@@ -250,7 +254,7 @@
   end
   object TimerPartitions: TSpinEdit
     Left = 120
-    Height = 27
+    Height = 24
     Top = 42
     Width = 50
     OnChange = TimerPartitionsChange
@@ -258,9 +262,9 @@
   end
   object TotalProcNumberEdit: TStaticText
     Left = 120
-    Height = 40
+    Height = 34
     Top = 84
-    Width = 18
+    Width = 15
     AutoSize = True
     Caption = '0.0'
     Font.Height = -12
@@ -269,9 +273,9 @@
   end
   object LegCountNumberEdit: TStaticText
     Left = 120
-    Height = 40
+    Height = 34
     Top = 110
-    Width = 18
+    Width = 15
     AutoSize = True
     Caption = '0.0'
     Font.Height = -12
@@ -280,9 +284,9 @@
   end
   object NeuronCountNumberEdit: TStaticText
     Left = 120
-    Height = 40
+    Height = 34
     Top = 136
-    Width = 18
+    Width = 15
     AutoSize = True
     Caption = '0.0'
     Font.Height = -12


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1855] trunk/editor/EdIONumberProp.lfm

From: <nf...@us...> - 2011-01-09 04:20:14

Revision: 1855
          http://cose.svn.sourceforge.net/cose/?rev=1855&view=rev
Author:   nfz_
Date:     2011-01-09 04:20:07 +0000 (Sun, 09 Jan 2011)

Log Message:
-----------
EdIONumberProp:
 - removed size constraints from form to allow it to be moved: seems to be a bug in gtk interface code?

Modified Paths:
--------------
    trunk/editor/EdIONumberProp.lfm

Modified: trunk/editor/EdIONumberProp.lfm
===================================================================
--- trunk/editor/EdIONumberProp.lfm	2011-01-09 03:16:20 UTC (rev 1854)
+++ trunk/editor/EdIONumberProp.lfm	2011-01-09 04:20:07 UTC (rev 1855)
@@ -1,25 +1,25 @@
 object EdIONumberFrm: TEdIONumberFrm
-  Left = 582
+  Left = 746
   Height = 197
-  Top = 250
+  Top = 388
   Width = 320
   HorzScrollBar.Page = 319
   VertScrollBar.Page = 196
   ActiveControl = OKButton
-  BorderIcons = [biSystemMenu]
+  BorderIcons = [biSystemMenu, biMinimize]
   BorderStyle = bsSingle
   Caption = 'Edit IO Number'
   ClientHeight = 197
   ClientWidth = 320
-  Constraints.MaxHeight = 197
-  Constraints.MaxWidth = 320
-  Constraints.MinHeight = 197
   Constraints.MinWidth = 320
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   OnClose = FormClose
+  Position = poDefault
+  LCLVersion = '0.9.31'
   Visible = True
   object Panel1: TPanel
+    Left = 0
     Height = 33
     Top = 164
     Width = 320
@@ -28,11 +28,11 @@
     ClientWidth = 320
     TabOrder = 0
     object OKButton: TButton
-      Left = 144
-      Height = 27
+      Left = 145
+      Height = 26
       Hint = 'Accept and apply all changes and close the window'
-      Top = 3
-      Width = 31
+      Top = 4
+      Width = 28
       Anchors = [akBottom]
       AutoSize = True
       Caption = 'OK'
@@ -43,7 +43,9 @@
     end
   end
   object Panel2: TPanel
+    Left = 0
     Height = 164
+    Top = 0
     Width = 320
     Align = alClient
     ClientHeight = 164
@@ -51,55 +53,54 @@
     TabOrder = 1
     object Label1: TLabel
       Left = 10
-      Height = 20
+      Height = 15
       Top = 45
-      Width = 85
+      Width = 76
       Caption = 'Digits To Left'
       ParentColor = False
     end
     object Label2: TLabel
       Left = 158
-      Height = 20
+      Height = 15
       Top = 45
-      Width = 91
+      Width = 82
       Caption = 'Digits To Right'
       ParentColor = False
     end
     object Label6: TLabel
       Left = 10
-      Height = 20
+      Height = 15
       Top = 107
-      Width = 78
+      Width = 75
       Caption = 'Border Style'
       ParentColor = False
     end
     object Label5: TLabel
       Left = 10
-      Height = 20
+      Height = 15
       Top = 12
-      Width = 38
+      Width = 35
       Caption = 'Name'
       ParentColor = False
     end
     object Label7: TLabel
       Left = 190
-      Height = 20
+      Height = 15
       Top = 108
-      Width = 49
+      Width = 44
       Caption = 'Inc/Dec'
       ParentColor = False
     end
     object BorderStyleComboBox: TComboBox
       Left = 90
-      Height = 22
+      Height = 27
       Top = 104
       Width = 89
-      AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+      ItemHeight = 0
       Items.Strings = (
         'None'
         'Single'
       )
-      MaxLength = 0
       OnChange = BorderStyleComboBoxChange
       ParentShowHint = False
       ShowHint = True
@@ -111,7 +112,7 @@
       Height = 22
       Hint = 'If enabled then the user can not modify the value'
       Top = 133
-      Width = 86
+      Width = 83
       Caption = 'Read Only'
       OnClick = ReadOnlyCheckBoxClick
       ParentShowHint = False
@@ -120,10 +121,10 @@
     end
     object BGColorButton: TButton
       Left = 139
-      Height = 27
+      Height = 26
       Hint = 'Change the background colour'
       Top = 133
-      Width = 69
+      Width = 63
       AutoSize = True
       Caption = 'BG Color'
       OnClick = BGColorButtonClick
@@ -133,7 +134,7 @@
     end
     object NameEdit: TEdit
       Left = 52
-      Height = 21
+      Height = 24
       Top = 8
       Width = 204
       TabOrder = 0
@@ -141,10 +142,10 @@
     end
     object EdMultiFuncButton: TButton
       Left = 15
-      Height = 27
+      Height = 26
       Hint = 'Open the editor window for the IO neuron that uses this IO number'
       Top = 133
-      Width = 105
+      Width = 95
       AutoSize = True
       Caption = 'Edit IO Neuron'
       OnClick = EdMultiFuncButtonClick
@@ -155,9 +156,9 @@
     end
     object MaxValBtn: TButton
       Left = 10
-      Height = 27
+      Height = 26
       Top = 72
-      Width = 76
+      Width = 71
       AutoSize = True
       Caption = 'Max Value'
       OnClick = MaxValBtnClick
@@ -165,9 +166,9 @@
     end
     object MinValBtn: TButton
       Left = 164
-      Height = 27
+      Height = 26
       Top = 72
-      Width = 72
+      Width = 67
       AutoSize = True
       Caption = 'Min Value'
       OnClick = MinValBtnClick
@@ -175,51 +176,52 @@
     end
     object EdMaxVal: TFloatSpinEdit
       Left = 88
-      Height = 25
+      Height = 24
       Hint = 'The maximum value that can be input or output'
       Top = 72
       Width = 65
-      AutoSize = True
       Increment = 1
       MaxValue = 100000000
       MinValue = -100000000
       ParentShowHint = False
       ShowHint = True
       TabOrder = 7
+      Value = 0
     end
     object EdminVal: TFloatSpinEdit
       Left = 240
-      Height = 25
+      Height = 24
       Hint = 'The minimum value that can be input or output'
       Top = 72
       Width = 65
-      AutoSize = True
       Increment = 1
       MaxValue = 100000000
       MinValue = -100000000
       ParentShowHint = False
       ShowHint = True
       TabOrder = 8
+      Value = 0
     end
     object EdValChange: TFloatSpinEdit
       Left = 240
-      Height = 23
+      Height = 24
       Hint = 'The increment/decrement value used when the arrow keys are used to change the value'
       Top = 104
       Width = 64
       Increment = 0.10000000149011
       MaxValue = 100
+      MinValue = 0
       ParentShowHint = False
       ShowHint = True
       TabOrder = 9
+      Value = 0
     end
     object EdDigitsLeft: TSpinEdit
       Left = 95
-      Height = 25
+      Height = 24
       Hint = 'number of digits to the left of the decimal point'
       Top = 39
       Width = 50
-      AutoSize = True
       MaxValue = 10
       ParentShowHint = False
       ShowHint = True
@@ -227,11 +229,10 @@
     end
     object EdDigitsRight: TSpinEdit
       Left = 248
-      Height = 25
+      Height = 24
       Hint = 'The number of digits displayed to the right of the decimal point'
       Top = 39
       Width = 50
-      AutoSize = True
       MaxValue = 10
       ParentShowHint = False
       ShowHint = True
@@ -239,10 +240,10 @@
     end
     object RefButton: TButton
       Left = 271
-      Height = 27
+      Height = 26
       Hint = 'List the neurons that make reference to this IO number in their formula.'
       Top = 7
-      Width = 33
+      Width = 31
       AutoSize = True
       Caption = 'Ref'
       OnClick = RefButtonClick


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1854] trunk/editor/NNProcSettings.lfm

From: <nf...@us...> - 2011-01-09 03:16:26

Revision: 1854
          http://cose.svn.sourceforge.net/cose/?rev=1854&view=rev
Author:   nfz_
Date:     2011-01-09 03:16:20 +0000 (Sun, 09 Jan 2011)

Log Message:
-----------
NNProcSettings:
- using TLabel instead of static text to fix text display length problems when value changes.

Modified Paths:
--------------
    trunk/editor/NNProcSettings.lfm

Modified: trunk/editor/NNProcSettings.lfm
===================================================================
--- trunk/editor/NNProcSettings.lfm	2011-01-09 03:15:59 UTC (rev 1853)
+++ trunk/editor/NNProcSettings.lfm	2011-01-09 03:16:20 UTC (rev 1854)
@@ -40,9 +40,10 @@
   end
   object Label3: TLabel
     Left = 16
-    Height = 18
+    Height = 39
     Top = 72
-    Width = 180
+    Width = 138
+    Anchors = [akTop, akLeft, akRight]
     Caption = 'Total Active Process Count:'
     ParentColor = False
     WordWrap = True
@@ -138,129 +139,102 @@
       Caption = 'Time (ms)'
       ParentColor = False
     end
-    object B1Entries: TStaticText
+    object B2Entries: TLabel
       Left = 48
-      Height = 22
-      Top = 36
-      Width = 46
-      Caption = '0.0'
-      Font.Height = -12
-      ParentFont = False
-      TabOrder = 0
+      Height = 18
+      Top = 61
+      Width = 9
+      Caption = '0'
+      ParentColor = False
     end
-    object B2Entries: TStaticText
-      Left = 48
-      Height = 40
+    object B2LegSize: TLabel
+      Left = 102
+      Height = 18
       Top = 60
-      Width = 18
-      AutoSize = True
+      Width = 9
+      Caption = '0'
+      ParentColor = False
+    end
+    object B2Time: TLabel
+      Left = 159
+      Height = 18
+      Top = 61
+      Width = 21
       Caption = '0.0'
-      Font.Height = -12
-      ParentFont = False
-      TabOrder = 1
+      ParentColor = False
     end
-    object B3Entries: TStaticText
+    object B3Entries: TLabel
       Left = 48
-      Height = 40
+      Height = 18
+      Top = 86
+      Width = 9
+      Caption = '0'
+      ParentColor = False
+    end
+    object B3LegSize: TLabel
+      Left = 103
+      Height = 18
       Top = 84
-      Width = 18
-      AutoSize = True
+      Width = 9
+      Caption = '0'
+      ParentColor = False
+    end
+    object B3Time: TLabel
+      Left = 159
+      Height = 18
+      Top = 84
+      Width = 21
       Caption = '0.0'
-      Font.Height = -12
-      ParentFont = False
-      TabOrder = 2
+      ParentColor = False
     end
-    object B4Entries: TStaticText
+    object B4Entries: TLabel
       Left = 48
-      Height = 40
+      Height = 18
       Top = 108
-      Width = 18
-      AutoSize = True
-      Caption = '0.0'
-      Font.Height = -12
-      ParentFont = False
-      TabOrder = 3
+      Width = 9
+      Caption = '0'
+      ParentColor = False
     end
-    object B1LegSize: TStaticText
+    object B4LegSize: TLabel
       Left = 102
-      Height = 40
-      Top = 36
-      Width = 18
-      AutoSize = True
-      Caption = '0.0'
-      Font.Height = -12
-      ParentFont = False
-      TabOrder = 4
+      Height = 18
+      Top = 108
+      Width = 9
+      Caption = '0'
+      ParentColor = False
     end
-    object B2LegSize: TStaticText
-      Left = 102
-      Height = 40
-      Top = 60
-      Width = 18
-      AutoSize = True
+    object B4Time: TLabel
+      Left = 159
+      Height = 18
+      Top = 108
+      Width = 21
       Caption = '0.0'
-      Font.Height = -12
-      ParentFont = False
-      TabOrder = 5
+      ParentColor = False
     end
-    object B3LegSize: TStaticText
-      Left = 102
-      Height = 40
-      Top = 84
-      Width = 18
-      AutoSize = True
-      Caption = '0.0'
-      Font.Height = -12
-      ParentFont = False
-      TabOrder = 6
+    object B1Entries: TLabel
+      Left = 48
+      Height = 18
+      Top = 36
+      Width = 9
+      Caption = '0'
+      ParentColor = False
     end
-    object B4LegSize: TStaticText
+    object B1LegSize: TLabel
       Left = 102
-      Height = 40
-      Top = 108
-      Width = 18
-      AutoSize = True
-      Caption = '0.0'
-      Font.Height = -12
-      ParentFont = False
-      TabOrder = 7
+      Height = 18
+      Top = 36
+      Width = 9
+      Caption = '0'
+      ParentColor = False
     end
-    object B1Time: TStaticText
-      Left = 156
-      Height = 21
+    object B1Time: TLabel
+      Left = 159
+      Height = 18
       Top = 36
-      Width = 40
-      AutoSize = True
-      Caption = '100.0'
-      TabOrder = 8
+      Width = 21
+      Caption = '0.0'
+      ParentColor = False
     end
-    object B2Time: TStaticText
-      Left = 156
-      Height = 21
-      Top = 60
-      Width = 40
-      AutoSize = True
-      Caption = '100.0'
-      TabOrder = 9
-    end
-    object B3Time: TStaticText
-      Left = 156
-      Height = 21
-      Top = 84
-      Width = 40
-      AutoSize = True
-      Caption = '100.0'
-      TabOrder = 10
-    end
-    object B4Time: TStaticText
-      Left = 156
-      Height = 21
-      Top = 108
-      Width = 40
-      AutoSize = True
-      Caption = '100.0'
-      TabOrder = 11
-    end
   end
   object ProcTime: TFloatSpinEdit
     Left = 120


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1853] trunk/editor/NNProcSettings.pas

From: <nf...@us...> - 2011-01-09 03:16:05

Revision: 1853
          http://cose.svn.sourceforge.net/cose/?rev=1853&view=rev
Author:   nfz_
Date:     2011-01-09 03:15:59 +0000 (Sun, 09 Jan 2011)

Log Message:
-----------
NNProcSettings:
- using TLabel instead of static text to fix text display length problems when value changes.

Modified Paths:
--------------
    trunk/editor/NNProcSettings.pas

Modified: trunk/editor/NNProcSettings.pas
===================================================================
--- trunk/editor/NNProcSettings.pas	2011-01-09 03:13:39 UTC (rev 1852)
+++ trunk/editor/NNProcSettings.pas	2011-01-09 03:15:59 UTC (rev 1853)
@@ -41,25 +41,25 @@
   { TNNProcSettingsFrm }
 
   TNNProcSettingsFrm = class(TForm)
+    B2Entries: TLabel;
+    B2LegSize: TLabel;
+    B2Time: TLabel;
+    B3Entries: TLabel;
+    B3LegSize: TLabel;
+    B3Time: TLabel;
+    B4Entries: TLabel;
+    B4LegSize: TLabel;
+    B4Time: TLabel;
+    B1Entries: TLabel;
+    B1LegSize: TLabel;
+    B1Time: TLabel;
     ProcTime: TFloatSpinEdit;
     Label1: TLabel;
     Label2: TLabel;
     TimerPartitions: TSpinEdit;
-    B1Entries: TStaticText;
-    B2Time: TStaticText;
-    B3Time: TStaticText;
-    B4Time: TStaticText;
     TotalProcNumberEdit: TStaticText;
     LegCountNumberEdit: TStaticText;
     NeuronCountNumberEdit: TStaticText;
-    B2Entries: TStaticText;
-    B3Entries: TStaticText;
-    B4Entries: TStaticText;
-    B1LegSize: TStaticText;
-    B2LegSize: TStaticText;
-    B3LegSize: TStaticText;
-    B4LegSize: TStaticText;
-    B1Time: TStaticText;
     Label3: TLabel;
     UpdateTimer: TTimer;
     Label4: TLabel;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1852] trunk/editor

From: <nf...@us...> - 2011-01-09 03:13:46

Revision: 1852
          http://cose.svn.sourceforge.net/cose/?rev=1852&view=rev
Author:   nfz_
Date:     2011-01-09 03:13:39 +0000 (Sun, 09 Jan 2011)

Log Message:
-----------
Main, NeuralFrm:
  updated for use with Lazarus 0.9.31

Modified Paths:
--------------
    trunk/editor/Main.lfm
    trunk/editor/NeuralFrm.lfm

Modified: trunk/editor/Main.lfm
===================================================================
--- trunk/editor/Main.lfm	2011-01-09 03:12:39 UTC (rev 1851)
+++ trunk/editor/Main.lfm	2011-01-09 03:13:39 UTC (rev 1852)
@@ -1,7 +1,7 @@
 object MainForm: TMainForm
-  Left = 266
+  Left = 366
   Height = 316
-  Top = 124
+  Top = 108
   Width = 555
   ActiveControl = SpeedBar
   Caption = 'Cos Editor: v00.01.00'
@@ -16,25 +16,25 @@
   OnCreate = FormCreate
   Position = poDefaultPosOnly
   ShowHint = True
-  LCLVersion = '0.9.29'
+  LCLVersion = '0.9.31'
   object Label8: TLabel
     Left = 523
-    Height = 18
+    Height = 15
     Top = 12
-    Width = 44
+    Width = 39
     Caption = 'Label8'
     ParentColor = False
   end
   object SpeedBar: TPanel
     Left = 1
-    Height = 56
+    Height = 34
     Top = 1
     Width = 553
     Align = alTop
     AutoSize = True
     BorderSpacing.Around = 1
     BorderSpacing.InnerBorder = 2
-    ClientHeight = 56
+    ClientHeight = 34
     ClientWidth = 553
     TabOrder = 0
     object OpenFileSB: TSpeedButton
@@ -165,21 +165,21 @@
     end
     object ToolPanel: TPanel
       Left = 64
-      Height = 54
+      Height = 32
       Top = 1
       Width = 488
       Align = alRight
       Alignment = taRightJustify
       Anchors = [akTop, akLeft, akRight, akBottom]
-      ClientHeight = 54
+      ClientHeight = 32
       ClientWidth = 488
       TabOrder = 0
       Visible = False
       object DesigningStateLabel: TStaticText
-        Left = 415
-        Height = 52
+        Left = 413
+        Height = 30
         Top = 1
-        Width = 72
+        Width = 74
         Align = alRight
         Alignment = taCenter
         AutoSize = True
@@ -202,7 +202,7 @@
   end
   object UnitDefineComboBox: TComboBox
     Left = 400
-    Height = 27
+    Height = 28
     Top = 72
     Width = 145
     Enabled = False
@@ -536,32 +536,34 @@
   end
   object ToolboxPanel: TPanel
     Left = 0
-    Height = 220
-    Top = 58
+    Height = 242
+    Top = 36
     Width = 555
     Align = alClient
-    ClientHeight = 220
+    ClientHeight = 242
     ClientWidth = 555
     TabOrder = 2
     object ToolboxNotebook: TNotebook
       Left = 1
-      Height = 85
+      Height = 107
       Top = 134
       Width = 553
+      PageIndex = 0
       Align = alBottom
       Anchors = [akTop, akLeft, akRight, akBottom]
-      PageIndex = 0
       TabOrder = 0
+      TabStop = True
+      object ControlsPage: TPage
+      end
       object NeuronsPage: TPage
-        Caption = 'Neurons'
-        ClientWidth = 547
-        ClientHeight = 54
+        ClientWidth = 553
+        ClientHeight = 107
         object NeuronsList: TListBox
           Left = 0
-          Height = 49
+          Height = 102
           Hint = 'Double left click to edit a neuron.'#10'Hold down left mouse button to drag neuron to a formula.'
           Top = 5
-          Width = 547
+          Width = 553
           Align = alBottom
           Anchors = [akTop, akLeft, akRight, akBottom]
           DragMode = dmAutomatic
@@ -571,9 +573,6 @@
           TopIndex = -1
         end
       end
-      object ControlsPage: TPage
-        Caption = 'Controls'
-      end
     end
     object RichEdPanel: TPanel
       AnchorSideRight.Control = ToolboxPanel
@@ -588,9 +587,9 @@
       TabOrder = 1
       object Label2: TLabel
         Left = 1
-        Height = 16
+        Height = 14
         Top = 5
-        Width = 27
+        Width = 25
         Caption = 'Font'
         Font.Height = -11
         Font.Name = 'Arial'
@@ -599,9 +598,9 @@
       end
       object Label3: TLabel
         Left = 150
-        Height = 16
+        Height = 14
         Top = 5
-        Width = 28
+        Width = 24
         Caption = 'Size'
         Font.Height = -11
         Font.Name = 'Arial'
@@ -618,36 +617,36 @@
       end
       object Label5: TLabel
         Left = 319
-        Height = 18
+        Height = 15
         Top = 5
-        Width = 26
+        Width = 23
         Caption = 'Left'
         ParentColor = False
       end
       object Label6: TLabel
         AnchorSideTop.Control = Label5
         Left = 370
-        Height = 18
+        Height = 15
         Top = 5
-        Width = 24
+        Width = 20
         Caption = 'Top'
         ParentColor = False
       end
       object Label4: TLabel
         AnchorSideTop.Control = Label5
         Left = 422
-        Height = 18
+        Height = 15
         Top = 5
-        Width = 43
+        Width = 38
         Caption = 'Height'
         ParentColor = False
       end
       object Label7: TLabel
         AnchorSideTop.Control = Label5
         Left = 474
-        Height = 18
+        Height = 15
         Top = 5
-        Width = 38
+        Width = 33
         Caption = 'Width'
         ParentColor = False
       end
@@ -707,7 +706,7 @@
         Left = 198
         Height = 20
         Top = 50
-        Width = 107
+        Width = 99
         Anchors = [akTop, akLeft, akRight]
         BorderWidth = 2
         ButtonColorSize = 30
@@ -722,8 +721,8 @@
         AnchorSideTop.Control = Label2
         AnchorSideTop.Side = asrBottom
         Left = 1
-        Height = 27
-        Top = 21
+        Height = 28
+        Top = 19
         Width = 145
         ItemHeight = 0
         OnChange = FontComboBoxChange
@@ -734,7 +733,7 @@
         Left = 198
         Height = 22
         Top = 6
-        Width = 53
+        Width = 49
         Caption = 'Bold'
         OnClick = BoldCBClick
         TabOrder = 1
@@ -743,10 +742,10 @@
         AnchorSideLeft.Control = BoldCB
         AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = BoldCB
-        Left = 251
+        Left = 247
         Height = 22
         Top = 6
-        Width = 54
+        Width = 50
         Caption = 'Italic'
         OnClick = ItalicCBClick
         TabOrder = 2
@@ -758,7 +757,7 @@
         Left = 198
         Height = 22
         Top = 28
-        Width = 84
+        Width = 80
         Caption = 'Underline'
         OnClick = UnderlineCBClick
         TabOrder = 3
@@ -768,8 +767,8 @@
         AnchorSideTop.Control = Label5
         AnchorSideTop.Side = asrBottom
         Left = 319
-        Height = 27
-        Top = 23
+        Height = 24
+        Top = 20
         Width = 48
         MaxValue = 1000
         OnChange = ControlLeftChange
@@ -780,8 +779,8 @@
         AnchorSideTop.Control = Label6
         AnchorSideTop.Side = asrBottom
         Left = 370
-        Height = 27
-        Top = 23
+        Height = 24
+        Top = 20
         Width = 48
         MaxValue = 1000
         OnChange = ControlTopChange
@@ -792,8 +791,8 @@
         AnchorSideTop.Control = Label4
         AnchorSideTop.Side = asrBottom
         Left = 422
-        Height = 27
-        Top = 23
+        Height = 24
+        Top = 20
         Width = 48
         MaxValue = 1000
         OnChange = ControlHeightChange
@@ -804,8 +803,8 @@
         AnchorSideTop.Control = Label7
         AnchorSideTop.Side = asrBottom
         Left = 474
-        Height = 27
-        Top = 23
+        Height = 24
+        Top = 20
         Width = 48
         MaxValue = 1000
         OnChange = ControlWidthChange
@@ -816,8 +815,8 @@
         AnchorSideTop.Control = Label3
         AnchorSideTop.Side = asrBottom
         Left = 150
-        Height = 27
-        Top = 21
+        Height = 24
+        Top = 19
         Width = 42
         OnChange = FontSizeNumberEditChange
         TabOrder = 8

Modified: trunk/editor/NeuralFrm.lfm
===================================================================
--- trunk/editor/NeuralFrm.lfm	2011-01-09 03:12:39 UTC (rev 1851)
+++ trunk/editor/NeuralFrm.lfm	2011-01-09 03:13:39 UTC (rev 1852)
@@ -11,7 +11,7 @@
   OnClose = FormClose
   ParentFont = True
   Position = poDefaultPosOnly
-  LCLVersion = '0.9.29'
+  LCLVersion = '0.9.31'
   Visible = True
   object NeuralPageControl: TPageControl
     Left = 0


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1851] trunk/editor/NeuralNet.pas

From: <nf...@us...> - 2011-01-09 03:12:46

Revision: 1851
          http://cose.svn.sourceforge.net/cose/?rev=1851&view=rev
Author:   nfz_
Date:     2011-01-09 03:12:39 +0000 (Sun, 09 Jan 2011)

Log Message:
-----------
NeuralNet:
  added constructor to TBNeuron so Calculating field could be initialized to False.

Modified Paths:
--------------
    trunk/editor/NeuralNet.pas

Modified: trunk/editor/NeuralNet.pas
===================================================================
--- trunk/editor/NeuralNet.pas	2010-11-11 00:34:21 UTC (rev 1850)
+++ trunk/editor/NeuralNet.pas	2011-01-09 03:12:39 UTC (rev 1851)
@@ -126,9 +126,12 @@
     Calculating: boolean;
   public
     { Public declarations }
+
     { Status indicating if the neuron is currently in a firing state.
     }
     NeuronFired: Boolean;
+
+    constructor Create(AOwner: TComponent); override;
     { Activate the neuron output event 'OnNeuronFired'.  This is normally called
       internally if the neuron output changes by more than FValueChangeUpdate.
     }
@@ -1001,6 +1004,12 @@
   end;
 end;
 
+constructor TBNeuron.Create( AOwner: TComponent) ;
+begin
+  inherited Create( AOwner) ;
+  Calculating:= False;
+end;
+
 procedure TBNeuron.SetNeuronOutput(const Value: single);
 begin
   FNeuronOutput := Value;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1850] trunk/editor

From: <nf...@us...> - 2010-11-11 00:34:27

Revision: 1850
          http://cose.svn.sourceforge.net/cose/?rev=1850&view=rev
Author:   nfz_
Date:     2010-11-11 00:34:21 +0000 (Thu, 11 Nov 2010)

Log Message:
-----------
NNProcSettings:
task processor settings form is now owned by the main program and is auto created on program startup.

Modified Paths:
--------------
    trunk/editor/NNProcSettings.lfm
    trunk/editor/NNProcSettings.pas

Modified: trunk/editor/NNProcSettings.lfm
===================================================================
--- trunk/editor/NNProcSettings.lfm	2010-11-11 00:32:42 UTC (rev 1849)
+++ trunk/editor/NNProcSettings.lfm	2010-11-11 00:34:21 UTC (rev 1850)
@@ -1,135 +1,130 @@
 object NNProcSettingsFrm: TNNProcSettingsFrm
-  Left = 782
-  Height = 169
-  Top = 204
-  Width = 400
+  Left = 765
+  Height = 192
+  Top = 214
+  Width = 430
   ActiveControl = ProcTime
   BorderIcons = [biSystemMenu, biMinimize]
   BorderStyle = bsSingle
   Caption = 'Nueral Net Process Settings'
-  ClientHeight = 169
-  ClientWidth = 382
-  Constraints.MaxHeight = 169
-  Constraints.MaxWidth = 400
-  Constraints.MinHeight = 169
-  Constraints.MinWidth = 400
+  ClientHeight = 192
+  ClientWidth = 430
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
-  FormStyle = fsStayOnTop
   OnClose = FormClose
-  LCLVersion = '0.9.25'
-  Visible = True
+  Position = poDefault
+  LCLVersion = '0.9.29'
   object Bevel1: TBevel
     Left = 8
-    Height = 153
+    Height = 177
     Top = 8
     Width = 169
     Shape = bsFrame
   end
   object Label1: TLabel
     Left = 16
-    Height = 41
+    Height = 18
     Top = 16
-    Width = 76
+    Width = 138
     Caption = 'Process Time (msec)'
     ParentColor = False
     WordWrap = True
   end
   object Label2: TLabel
     Left = 16
-    Height = 19
+    Height = 18
     Top = 51
-    Width = 96
+    Width = 103
     Caption = 'Timer Partitions'
     ParentColor = False
   end
   object Label3: TLabel
     Left = 16
-    Height = 63
+    Height = 18
     Top = 72
-    Width = 71
+    Width = 180
     Caption = 'Total Active Process Count:'
     ParentColor = False
     WordWrap = True
   end
   object Label4: TLabel
     Left = 16
-    Height = 19
+    Height = 18
     Top = 112
-    Width = 98
+    Width = 108
     Caption = 'Total Leg Count:'
     ParentColor = False
   end
   object Label5: TLabel
     Left = 16
-    Height = 19
+    Height = 18
     Top = 136
-    Width = 88
+    Width = 96
     Caption = 'Neuron Count:'
     ParentColor = False
   end
   object GroupBox1: TGroupBox
     Left = 184
-    Height = 153
-    Top = 8
-    Width = 191
+    Height = 169
+    Top = 7
+    Width = 239
     Anchors = [akTop, akLeft, akRight]
     Caption = 'Process Bands'
-    ClientHeight = 136
-    ClientWidth = 187
+    ClientHeight = 150
+    ClientWidth = 235
     TabOrder = 0
     object Label6: TLabel
       Left = 8
-      Height = 19
+      Height = 18
       Top = 2
-      Width = 31
+      Width = 34
       Caption = 'Band'
       ParentColor = False
     end
     object Label7: TLabel
       Left = 48
-      Height = 19
+      Height = 18
       Top = 2
-      Width = 43
+      Width = 46
       Caption = 'Entries'
       ParentColor = False
     end
     object Label8: TLabel
       Left = 102
-      Height = 63
+      Height = 18
       Top = 2
-      Width = 23
+      Width = 55
       Caption = 'Leg Size'
       ParentColor = False
       WordWrap = True
     end
     object Label9: TLabel
       Left = 16
-      Height = 19
+      Height = 18
       Top = 36
-      Width = 8
+      Width = 9
       Caption = '1'
       ParentColor = False
     end
     object Label10: TLabel
       Left = 16
-      Height = 19
+      Height = 18
       Top = 60
-      Width = 8
+      Width = 9
       Caption = '2'
       ParentColor = False
     end
     object Label11: TLabel
       Left = 16
-      Height = 19
+      Height = 18
       Top = 84
-      Width = 8
+      Width = 9
       Caption = '3'
       ParentColor = False
     end
     object Label12: TLabel
       Left = 16
-      Height = 19
+      Height = 18
       Top = 108
       Width = 9
       Caption = '4'
@@ -137,179 +132,187 @@
     end
     object Label13: TLabel
       Left = 142
-      Height = 19
+      Height = 18
       Top = 2
-      Width = 61
+      Width = 67
       Caption = 'Time (ms)'
       ParentColor = False
     end
     object B1Entries: TStaticText
       Left = 48
-      Height = 34
+      Height = 22
       Top = 36
-      Width = 15
-      AutoSize = True
+      Width = 46
       Caption = '0.0'
       Font.Height = -12
+      ParentFont = False
       TabOrder = 0
     end
     object B2Entries: TStaticText
       Left = 48
-      Height = 34
+      Height = 40
       Top = 60
-      Width = 15
+      Width = 18
       AutoSize = True
       Caption = '0.0'
       Font.Height = -12
+      ParentFont = False
       TabOrder = 1
     end
     object B3Entries: TStaticText
       Left = 48
-      Height = 34
+      Height = 40
       Top = 84
-      Width = 15
+      Width = 18
       AutoSize = True
       Caption = '0.0'
       Font.Height = -12
+      ParentFont = False
       TabOrder = 2
     end
     object B4Entries: TStaticText
       Left = 48
-      Height = 34
+      Height = 40
       Top = 108
-      Width = 15
+      Width = 18
       AutoSize = True
       Caption = '0.0'
       Font.Height = -12
+      ParentFont = False
       TabOrder = 3
     end
     object B1LegSize: TStaticText
       Left = 102
-      Height = 34
+      Height = 40
       Top = 36
-      Width = 15
+      Width = 18
       AutoSize = True
       Caption = '0.0'
       Font.Height = -12
+      ParentFont = False
       TabOrder = 4
     end
     object B2LegSize: TStaticText
       Left = 102
-      Height = 34
+      Height = 40
       Top = 60
-      Width = 15
+      Width = 18
       AutoSize = True
       Caption = '0.0'
       Font.Height = -12
+      ParentFont = False
       TabOrder = 5
     end
     object B3LegSize: TStaticText
       Left = 102
-      Height = 34
+      Height = 40
       Top = 84
-      Width = 15
+      Width = 18
       AutoSize = True
       Caption = '0.0'
       Font.Height = -12
+      ParentFont = False
       TabOrder = 6
     end
     object B4LegSize: TStaticText
       Left = 102
-      Height = 34
+      Height = 40
       Top = 108
-      Width = 15
+      Width = 18
       AutoSize = True
       Caption = '0.0'
       Font.Height = -12
+      ParentFont = False
       TabOrder = 7
     end
     object B1Time: TStaticText
       Left = 156
-      Height = 34
+      Height = 21
       Top = 36
-      Width = 15
+      Width = 40
       AutoSize = True
-      Caption = '0.0'
-      Font.Height = -12
+      Caption = '100.0'
       TabOrder = 8
     end
     object B2Time: TStaticText
       Left = 156
-      Height = 34
+      Height = 21
       Top = 60
-      Width = 15
+      Width = 40
       AutoSize = True
-      Caption = '0.0'
-      Font.Height = -12
+      Caption = '100.0'
       TabOrder = 9
     end
     object B3Time: TStaticText
       Left = 156
-      Height = 34
+      Height = 21
       Top = 84
-      Width = 15
+      Width = 40
       AutoSize = True
-      Caption = '0.0'
-      Font.Height = -12
+      Caption = '100.0'
       TabOrder = 10
     end
     object B4Time: TStaticText
       Left = 156
-      Height = 34
+      Height = 21
       Top = 108
-      Width = 15
+      Width = 40
       AutoSize = True
-      Caption = '0.0'
-      Font.Height = -12
+      Caption = '100.0'
       TabOrder = 11
     end
   end
   object ProcTime: TFloatSpinEdit
     Left = 120
-    Height = 25
+    Height = 27
     Top = 16
     Width = 50
-    AutoSize = True
     Increment = 1
-    MaxValue = 100
+    MaxValue = 1000
+    MinValue = 0
+    OnChange = ProcTimeChange
     TabOrder = 1
+    Value = 0
   end
   object TimerPartitions: TSpinEdit
     Left = 120
-    Height = 25
+    Height = 27
     Top = 42
     Width = 50
-    AutoSize = True
+    OnChange = TimerPartitionsChange
     TabOrder = 2
   end
   object TotalProcNumberEdit: TStaticText
     Left = 120
-    Height = 34
+    Height = 40
     Top = 84
-    Width = 15
+    Width = 18
     AutoSize = True
     Caption = '0.0'
     Font.Height = -12
+    ParentFont = False
     TabOrder = 3
   end
   object LegCountNumberEdit: TStaticText
     Left = 120
-    Height = 34
+    Height = 40
     Top = 110
-    Width = 15
+    Width = 18
     AutoSize = True
     Caption = '0.0'
     Font.Height = -12
+    ParentFont = False
     TabOrder = 4
   end
   object NeuronCountNumberEdit: TStaticText
     Left = 120
-    Height = 34
+    Height = 40
     Top = 136
-    Width = 15
+    Width = 18
     AutoSize = True
     Caption = '0.0'
     Font.Height = -12
+    ParentFont = False
     TabOrder = 5
   end
   object UpdateTimer: TTimer

Modified: trunk/editor/NNProcSettings.pas
===================================================================
--- trunk/editor/NNProcSettings.pas	2010-11-11 00:32:42 UTC (rev 1849)
+++ trunk/editor/NNProcSettings.pas	2010-11-11 00:34:21 UTC (rev 1850)
@@ -85,26 +85,40 @@
     NeuralPage: TNeuralPages;
   public
     { Public declarations }
-    constructor Create(AOwner: TComponent); override;
+    //constructor Create(AOwner: TComponent); override;
+    procedure SetNeuralPage(aNeuralPage: TNeuralPages);
   end;
 
+var
+  NNProcSettingsFrm: TNNProcSettingsFrm;
+
 implementation
 
-constructor TNNProcSettingsFrm.Create(AOwner: TComponent);
+
+procedure TNNProcSettingsFrm.SetNeuralPage(aNeuralPage: TNeuralPages);
 begin
-  inherited;
-  NeuralPage := TNeuralPages(AOwner);
-  NeuralNet := GetNeuronNetwork(NeuralPage);
-  ProcessTimer := GetProcessTimer(NeuralPage);
-  ProcTime.Value := ProcessTimer.ProcessTimeMS;
-  TimerPartitions.Value := ProcessTimer.TimerPartitions;
-  UpdateTimer.Enabled := True;
+  if Assigned(aNeuralPage) then
+  begin
+    NeuralPage := aNeuralPage;
+    NeuralNet := GetNeuronNetwork(NeuralPage);
+    ProcessTimer := GetProcessTimer(NeuralPage);
+    ProcTime.Value := ProcessTimer.ProcessTimeMS;
+    TimerPartitions.Value := ProcessTimer.TimerPartitions;
+    UpdateTimer.Enabled := True;
+    //Visible := True;
+  end
+  else
+  begin
+    Visible := False;
+    NeuralPage := Nil;
+    ProcessTimer := Nil;
+  end;
 end;
 
 procedure TNNProcSettingsFrm.FormClose(Sender: TObject;
   var Action: TCloseAction);
 begin
-  Action := caFree;
+  Action := caHide;
 end;
 
 procedure TNNProcSettingsFrm.ProcTimeChange(Sender: TObject);
@@ -119,24 +133,27 @@
 
 procedure TNNProcSettingsFrm.UpdateTimerTimer(Sender: TObject);
 begin
-  LegCountNumberEdit.Caption := FloatToStr(ProcessTimer.TotalProcLegCount);
-  TotalProcNumberEdit.Caption := FloatToStr(ProcessTimer.TotalProcCount);
-  NeuronCountNumberEdit.Caption := FloatToStr(NeuralNet.NeuronCount);
-  B1Entries.Caption := FloatToStr(ProcessTimer.BandCount(1));
-  B2Entries.Caption := FloatToStr(ProcessTimer.BandCount(2));
-  B3Entries.Caption := FloatToStr(ProcessTimer.BandCount(3));
-  B4Entries.Caption := FloatToStr(ProcessTimer.BandCount(4));
+  if Assigned(ProcessTimer) then
+  begin;
+    LegCountNumberEdit.Caption := FloatToStr(ProcessTimer.TotalProcLegCount);
+    TotalProcNumberEdit.Caption := FloatToStr(ProcessTimer.TotalProcCount);
+    NeuronCountNumberEdit.Caption := FloatToStr(NeuralNet.NeuronCount);
+    B1Entries.Caption := FloatToStr(ProcessTimer.BandCount(1));
+    B2Entries.Caption := FloatToStr(ProcessTimer.BandCount(2));
+    B3Entries.Caption := FloatToStr(ProcessTimer.BandCount(3));
+    B4Entries.Caption := FloatToStr(ProcessTimer.BandCount(4));
 
-  B1LegSize.Caption := FloatToStr(ProcessTimer.BandLegCount(1));
-  B2LegSize.Caption := FloatToStr(ProcessTimer.BandLegCount(2));
-  B3LegSize.Caption := FloatToStr(ProcessTimer.BandLegCount(3));
-  B4LegSize.Caption := FloatToStr(ProcessTimer.BandLegCount(4));
+    B1LegSize.Caption := FloatToStr(ProcessTimer.BandLegCount(1));
+    B2LegSize.Caption := FloatToStr(ProcessTimer.BandLegCount(2));
+    B3LegSize.Caption := FloatToStr(ProcessTimer.BandLegCount(3));
+    B4LegSize.Caption := FloatToStr(ProcessTimer.BandLegCount(4));
 
-  B1Time.Caption := FloatToStr(ProcessTimer.BandTimeMS(1));
-  B2Time.Caption := FloatToStr(ProcessTimer.BandTimeMS(2));
-  B3Time.Caption := FloatToStr(ProcessTimer.BandTimeMS(3));
-  B4Time.Caption := FloatToStr(ProcessTimer.BandTimeMS(4));
+    B1Time.Caption := FloatToStr(ProcessTimer.BandTimeMS(1));
+    B2Time.Caption := FloatToStr(ProcessTimer.BandTimeMS(2));
+    B3Time.Caption := FloatToStr(ProcessTimer.BandTimeMS(3));
+    B4Time.Caption := FloatToStr(ProcessTimer.BandTimeMS(4));
 
+  end;
 end;
 
 initialization


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1849] trunk/editor/ProcessNode.pas

From: <nf...@us...> - 2010-11-11 00:32:48

Revision: 1849
          http://cose.svn.sourceforge.net/cose/?rev=1849&view=rev
Author:   nfz_
Date:     2010-11-11 00:32:42 +0000 (Thu, 11 Nov 2010)

Log Message:
-----------
ProcessNode:
- first band time now defaults to 250ms instead of 25ms.

Modified Paths:
--------------
    trunk/editor/ProcessNode.pas

Modified: trunk/editor/ProcessNode.pas
===================================================================
--- trunk/editor/ProcessNode.pas	2010-11-11 00:31:26 UTC (rev 1848)
+++ trunk/editor/ProcessNode.pas	2010-11-11 00:32:42 UTC (rev 1849)
@@ -243,7 +243,7 @@
   end;
   ProcListBandPos := 1;
   FTimerPartitions := 1;
-  ProcessTimeMS := 25;
+  ProcessTimeMS := 250;
   PTimer.OnTimer := RunProcesses;
 //
 end;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1848] trunk/editor

From: <nf...@us...> - 2010-11-11 00:31:32

Revision: 1848
          http://cose.svn.sourceforge.net/cose/?rev=1848&view=rev
Author:   nfz_
Date:     2010-11-11 00:31:26 +0000 (Thu, 11 Nov 2010)

Log Message:
-----------
Main:
- NNProcSettingsFrm is now auto created at startup and never dies till shutdown.  Solves the bug where the form could be saved with the neural form which would prevent it from being loaded later on.

Modified Paths:
--------------
    trunk/editor/Main.lfm
    trunk/editor/Main.pas

Modified: trunk/editor/Main.lfm
===================================================================
--- trunk/editor/Main.lfm	2010-11-11 00:29:58 UTC (rev 1847)
+++ trunk/editor/Main.lfm	2010-11-11 00:31:26 UTC (rev 1848)
@@ -43,7 +43,6 @@
       Hint = 'Open|'
       Top = 1
       Width = 28
-      Color = clBtnFace
       Glyph.Data = {
         76060000424D7606000000000000360000002800000028000000140000000100
         1000000000004006000000000000000000000000000000000000E03DE03DE03D
@@ -107,7 +106,6 @@
       Hint = 'Save|'
       Top = 1
       Width = 28
-      Color = clBtnFace
       Glyph.Data = {
         76060000424D7606000000000000360000002800000028000000140000000100
         1000000000004006000000000000000000000000000000000000E03DE03DE03D
@@ -659,7 +657,6 @@
         Hint = 'Bring to front'
         Top = 24
         Width = 20
-        Color = clBtnFace
         Glyph.Data = {
           66010000424D6601000000000000760000002800000014000000140000000100
           040000000000F000000000000000000000001000000000000000000000000000
@@ -684,7 +681,6 @@
         Hint = 'Send to back'
         Top = 2
         Width = 20
-        Color = clBtnFace
         Glyph.Data = {
           66010000424D6601000000000000760000002800000014000000140000000100
           040000000000F000000000000000000000001000000000000000000000000000
@@ -719,7 +715,6 @@
         ColorDialog = ColorDialog
         Constraints.MaxHeight = 20
         Caption = 'Font color'
-        Color = clBtnFace
         OnColorChanged = FontColourButtonClick
       end
       object FontComboBox: TComboBox
@@ -848,7 +843,6 @@
         Hint = 'Text Label'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -874,7 +868,6 @@
         Hint = 'I/O Number'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -901,7 +894,6 @@
         Hint = 'Check Box'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -927,7 +919,6 @@
         Hint = 'Radio Button'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -953,7 +944,6 @@
         Hint = 'Panel'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -979,7 +969,6 @@
         Hint = 'Bevel'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -1005,7 +994,6 @@
         Hint = 'I/O Neuron'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -1031,7 +1019,6 @@
         Hint = 'Neuron'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -1056,7 +1043,6 @@
         Hint = 'Tab Control'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -1082,7 +1068,6 @@
         Hint = 'I/O Number and I/O Neuron'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -1108,7 +1093,6 @@
         Hint = 'Memo'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -1134,7 +1118,6 @@
         Hint = 'Draw Control'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -1160,7 +1143,6 @@
         Hint = 'Draw Neuron'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -1186,7 +1168,6 @@
         Hint = 'Combo Box'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           0400000000002001000000000000000000001000000000000000000000000000
@@ -1212,7 +1193,6 @@
         Hint = 'Dial Gauge'
         Top = 2
         Width = 28
-        Color = clBtnFace
         Glyph.Data = {
           96010000424D9601000000000000760000002800000018000000180000000100
           04000000000020010000130B0000130B00001000000010000000000000000000

Modified: trunk/editor/Main.pas
===================================================================
--- trunk/editor/Main.pas	2010-11-11 00:29:58 UTC (rev 1847)
+++ trunk/editor/Main.pas	2010-11-11 00:31:26 UTC (rev 1848)
@@ -553,6 +553,7 @@
     ActiveNeuralPages := NeuralPage;
     // if there is no page to edit then turn off designer
     UpdateEditMenus;
+    NNProcSettingsFrm.SetNeuralPage(ActiveNeuralPages);
   end;
 end;
 
@@ -641,8 +642,9 @@
 begin
   if assigned(ActiveNeuralPages) then
   begin
-    TNNProcSettingsFrm.Create(ActiveNeuralPages);
-  end;
+    NNProcSettingsFrm.Show;
+  end
+  else NNProcSettingsFrm.SetNeuralPage(Nil);
 end;
 
 procedure TMainForm.AboutNFClick(Sender: TObject);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1847] trunk/editor

From: <nf...@us...> - 2010-11-11 00:30:04

Revision: 1847
          http://cose.svn.sourceforge.net/cose/?rev=1847&view=rev
Author:   nfz_
Date:     2010-11-11 00:29:58 +0000 (Thu, 11 Nov 2010)

Log Message:
-----------
- NNProcSettingsFrm is now auto created at startup and never dies till shutdown.

Modified Paths:
--------------
    trunk/editor/cose.lpi
    trunk/editor/cose.lpr

Modified: trunk/editor/cose.lpi
===================================================================
--- trunk/editor/cose.lpi	2010-11-10 21:24:49 UTC (rev 1846)
+++ trunk/editor/cose.lpi	2010-11-11 00:29:58 UTC (rev 1847)
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="9"/>
     <General>
       <Flags>
         <SaveClosedFiles Value="False"/>
@@ -11,13 +11,16 @@
       </Flags>
       <SessionStorage Value="InIDEConfig"/>
       <MainUnit Value="0"/>
-      <TargetFileExt Value=".exe"/>
+      <Title Value="Cose"/>
       <UseAppBundle Value="False"/>
       <UseXPManifest Value="True"/>
     </General>
     <VersionInfo>
-      <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
+      <StringTable ProductVersion=""/>
     </VersionInfo>
+    <BuildModes Count="1">
+      <Item1 Name="default" Default="True"/>
+    </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
@@ -314,10 +317,15 @@
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="9"/>
     <SearchPaths>
       <UnitOutputDirectory Value=".."/>
     </SearchPaths>
+    <Parsing>
+      <SyntaxOptions>
+        <UseAnsiStrings Value="False"/>
+      </SyntaxOptions>
+    </Parsing>
     <CodeGeneration>
       <Optimizations>
         <OptimizationLevel Value="0"/>

Modified: trunk/editor/cose.lpr
===================================================================
--- trunk/editor/cose.lpr	2010-11-10 21:24:49 UTC (rev 1846)
+++ trunk/editor/cose.lpr	2010-11-11 00:29:58 UTC (rev 1847)
@@ -8,17 +8,19 @@
   AboutNF in 'AboutNF.pas' {AboutBox},
   EdUserUnits in 'EdUserUnits.pas' {UserUnitDefDlg},
   EdUnits,
-  Printer4Lazarus, Main;
+  Printer4Lazarus, Main, NNProcSettings;
 
 {$R *.RES}
 
 {$R manifest.res}
 
 begin
+  Application.Title:= 'Cose';
   Application.Initialize;
-  Application.CreateForm(TMainForm, MainForm);
-  Application.CreateForm(TEdUnitsDlg, EdUnitsDlg);
-  Application.CreateForm(TAboutBox, AboutBox);
-  Application.CreateForm(TUserUnitDefDlg, UserUnitDefDlg);
+  Application.CreateForm( TMainForm, MainForm) ;
+  Application.CreateForm( TEdUnitsDlg, EdUnitsDlg) ;
+  Application.CreateForm( TAboutBox, AboutBox) ;
+  Application.CreateForm( TUserUnitDefDlg, UserUnitDefDlg) ;
+  Application.CreateForm( TNNProcSettingsFrm, NNProcSettingsFrm) ;
   Application.Run;
 end.


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1846] trunk/editor/IONeuron.pas

From: <nf...@us...> - 2010-11-10 21:24:55

Revision: 1846
          http://cose.svn.sourceforge.net/cose/?rev=1846&view=rev
Author:   nfz_
Date:     2010-11-10 21:24:49 +0000 (Wed, 10 Nov 2010)

Log Message:
-----------
IONeuron:
[Bug Fix]: Output display would become very slow if a lot of neuron updates were being done.  The problem was a race condition: neuron updates io control, io control updates neuron, neuron updates io control and goes on until no changes occur which could take a long time.  The solution was to use a flag called FIOControlValueChanging which prevents the race condition.

Modified Paths:
--------------
    trunk/editor/IONeuron.pas

Modified: trunk/editor/IONeuron.pas
===================================================================
--- trunk/editor/IONeuron.pas	2010-11-10 21:20:47 UTC (rev 1845)
+++ trunk/editor/IONeuron.pas	2010-11-10 21:24:49 UTC (rev 1846)
@@ -59,6 +59,7 @@
     FToggleSet: Boolean;
     FOldReadOnly: boolean;
     FOldEditColor: TColor;
+    FIOControlValueChanging: Boolean;     // used to prevent race condition when IOControl value is changing
 
     procedure SetUnits(const Value: TUnits);
     procedure SetCountry(Country: TEngUnitCountry);
@@ -372,7 +373,11 @@
 
 procedure TIONeuron.IOControlChange(Sender: TObject);
 begin
+  if FIOControlValueChanging then exit;
+
+  FIOControlValueChanging := True;
   SetUnitValue(FEngUnits, GetNFIOControlValue(FIOControl));
+  FIOControlValueChanging := False;
 end;
 
 procedure TIONeuron.IOControlMouseDown(Sender: TObject;
@@ -388,7 +393,12 @@
 
 procedure TIONeuron.NeuronFiredUpdateIOControl(Neuron: TBNeuron);
 begin
-  if assigned(IOControl) then SetNFIOControlValue(IOControl,UnitValue);
+  if not FIOControlValueChanging and assigned(IOControl) then
+  begin
+    FIOControlValueChanging:= True;
+    SetNFIOControlValue(IOControl,UnitValue);
+    FIOControlValueChanging:= False;
+  end;
 end;
 
 procedure TIONeuron.BuildEqUnitsList(ItemsList: TStrings);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1845] trunk/editor/NeuralNet.pas

From: <nf...@us...> - 2010-11-10 21:20:53

Revision: 1845
          http://cose.svn.sourceforge.net/cose/?rev=1845&view=rev
Author:   nfz_
Date:     2010-11-10 21:20:47 +0000 (Wed, 10 Nov 2010)

Log Message:
-----------
NeuralNet:
- The NeuronFired property is only set True while the neuron is firing.  Previously it was staying true after the neuron fired which gave the wrong indication.

Modified Paths:
--------------
    trunk/editor/NeuralNet.pas

Modified: trunk/editor/NeuralNet.pas
===================================================================
--- trunk/editor/NeuralNet.pas	2010-10-09 20:30:58 UTC (rev 1844)
+++ trunk/editor/NeuralNet.pas	2010-11-10 21:20:47 UTC (rev 1845)
@@ -981,6 +981,7 @@
 begin
   NeuronFired := True;
   if assigned(FOnNeuronFired) then FOnNeuronFired(Self);
+  NeuronFired := False;
 end;
 
 function TBNeuron.GetNeuronOutPut: single;
@@ -1008,7 +1009,7 @@
     LastOutput := Value;
     FireNeuron;
   end
-  else NeuronFired := False;
+  //else NeuronFired := False;
 end;
 
 procedure TBNeuron.SetOnNeuronFired(const Value: TNeuronFiredMethod);
@@ -1139,7 +1140,7 @@
 var
   IP: integer;
 begin
-  if NeuronNetwork = nil then exit;
+  if (NeuronNetwork = nil) or Calculating then exit;
 
   if not CalcDisabled and not NeuronNetwork.Compiling then
   begin


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1844] trunk/editor

From: <nf...@us...> - 2010-10-09 20:31:04

Revision: 1844
          http://cose.svn.sourceforge.net/cose/?rev=1844&view=rev
Author:   nfz_
Date:     2010-10-09 20:30:58 +0000 (Sat, 09 Oct 2010)

Log Message:
-----------
Main:
- fixed double select problem.  For some reason GTK2 generates OnDblClick event twice.  To prevent this the Select action only acts on every second call.  This is a bandaid fix for now.

Modified Paths:
--------------
    trunk/editor/Main.lfm
    trunk/editor/Main.pas

Modified: trunk/editor/Main.lfm
===================================================================
--- trunk/editor/Main.lfm	2010-09-24 16:48:41 UTC (rev 1843)
+++ trunk/editor/Main.lfm	2010-10-09 20:30:58 UTC (rev 1844)
@@ -27,14 +27,14 @@
   end
   object SpeedBar: TPanel
     Left = 1
-    Height = 52
+    Height = 56
     Top = 1
     Width = 553
     Align = alTop
     AutoSize = True
     BorderSpacing.Around = 1
     BorderSpacing.InnerBorder = 2
-    ClientHeight = 52
+    ClientHeight = 56
     ClientWidth = 553
     TabOrder = 0
     object OpenFileSB: TSpeedButton
@@ -167,19 +167,19 @@
     end
     object ToolPanel: TPanel
       Left = 64
-      Height = 50
+      Height = 54
       Top = 1
       Width = 488
       Align = alRight
       Alignment = taRightJustify
       Anchors = [akTop, akLeft, akRight, akBottom]
-      ClientHeight = 50
+      ClientHeight = 54
       ClientWidth = 488
       TabOrder = 0
       Visible = False
       object DesigningStateLabel: TStaticText
         Left = 415
-        Height = 48
+        Height = 52
         Top = 1
         Width = 72
         Align = alRight
@@ -538,16 +538,16 @@
   end
   object ToolboxPanel: TPanel
     Left = 0
-    Height = 224
-    Top = 54
+    Height = 220
+    Top = 58
     Width = 555
     Align = alClient
-    ClientHeight = 224
+    ClientHeight = 220
     ClientWidth = 555
     TabOrder = 2
     object ToolboxNotebook: TNotebook
       Left = 1
-      Height = 89
+      Height = 85
       Top = 134
       Width = 553
       Align = alBottom
@@ -557,10 +557,10 @@
       object NeuronsPage: TPage
         Caption = 'Neurons'
         ClientWidth = 547
-        ClientHeight = 58
+        ClientHeight = 54
         object NeuronsList: TListBox
           Left = 0
-          Height = 53
+          Height = 49
           Hint = 'Double left click to edit a neuron.'#10'Hold down left mouse button to drag neuron to a formula.'
           Top = 5
           Width = 547
@@ -583,10 +583,10 @@
       Left = 0
       Height = 78
       Top = 43
-      Width = 555
+      Width = 554
       Anchors = [akTop, akLeft, akRight]
       ClientHeight = 78
-      ClientWidth = 555
+      ClientWidth = 554
       TabOrder = 1
       object Label2: TLabel
         Left = 1

Modified: trunk/editor/Main.pas
===================================================================
--- trunk/editor/Main.pas	2010-09-24 16:48:41 UTC (rev 1843)
+++ trunk/editor/Main.pas	2010-10-09 20:30:58 UTC (rev 1844)
@@ -168,6 +168,7 @@
       ActiveNeuralPages: TNeuralPages;
       //SelectTextAttr: TTextAttributes;
       FontEdit: TFont;
+      DoubleSelect: Boolean;
       procedure OpenNeuralPage(FileName: String);
       procedure BuildNeuralList(NeuronProcessFound: TNeuron);
 
@@ -207,10 +208,12 @@
   FontComboBox.Items := Screen.Fonts;
   OpenDialog.InitialDir := ExtractFilePath(ParamStr(0));
   SaveDialog.InitialDir := OpenDialog.InitialDir;
+  DoubleSelect := False;
   UpdateEditMenus;
 
 end;
 
+
 procedure TMainForm.ShowHint(Sender: TObject);
 begin
   StatusLine.SimpleText := Application.Hint;
@@ -325,7 +328,13 @@
 begin
   if (assigned(ActiveNeuralPages)) and (NeuronsList.ItemIndex >= 0) then
   begin
-    EditNFComponent(TNeuron(MainForm.NeuronsList.Items.Objects[NeuronsList.ItemIndex]));
+    if DoubleSelect then
+    begin
+      EditNFComponent(TNeuron(MainForm.NeuronsList.Items.Objects[NeuronsList.ItemIndex]));
+      DoubleSelect := False;
+    end
+    else
+      DoubleSelect := True;
   end;
 end;
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1843] trunk/editor/NumberEdit.pas

From: <nf...@us...> - 2010-09-24 16:48:47

Revision: 1843
          http://cose.svn.sourceforge.net/cose/?rev=1843&view=rev
Author:   nfz_
Date:     2010-09-24 16:48:41 +0000 (Fri, 24 Sep 2010)

Log Message:
-----------
NumberEdit:
- don't set the caret position when editing, let the control take care of it for now.

Modified Paths:
--------------
    trunk/editor/NumberEdit.pas

Modified: trunk/editor/NumberEdit.pas
===================================================================
--- trunk/editor/NumberEdit.pas	2010-04-09 16:30:21 UTC (rev 1842)
+++ trunk/editor/NumberEdit.pas	2010-09-24 16:48:41 UTC (rev 1843)
@@ -285,8 +285,9 @@
   // BUG: setting SelStart works in Delphi but not in Lazarus
   SelStart := poscur;
   curpos.X := 0;
-  curpos.Y := 0;//poscur;
-  CaretPos := curpos;
+  curpos.Y := poscur;
+  // don't set caret position in lazarus svn rev > 27440
+  //CaretPos := curpos;
 end;
 
 procedure TNumberEdit.SetDigitsToLeft(const Val: integer);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1842] trunk/editor

From: <nf...@us...> - 2010-04-09 16:30:28

Revision: 1842
          http://cose.svn.sourceforge.net/cose/?rev=1842&view=rev
Author:   nfz_
Date:     2010-04-09 16:30:21 +0000 (Fri, 09 Apr 2010)

Log Message:
-----------
updated for lazarus svn rev 24256

Revision Links:
--------------
    http://cose.svn.sourceforge.net/cose/?rev=24256&view=rev

Modified Paths:
--------------
    trunk/editor/Main.lfm
    trunk/editor/cose.lpi

Modified: trunk/editor/Main.lfm
===================================================================
--- trunk/editor/Main.lfm	2010-04-09 16:29:12 UTC (rev 1841)
+++ trunk/editor/Main.lfm	2010-04-09 16:30:21 UTC (rev 1842)
@@ -3,9 +3,9 @@
   Height = 316
   Top = 124
   Width = 555
-  ActiveControl = ToolboxNotebook
+  ActiveControl = SpeedBar
   Caption = 'Cos Editor: v00.01.00'
-  ClientHeight = 275
+  ClientHeight = 295
   ClientWidth = 555
   Constraints.MinHeight = 270
   Constraints.MinWidth = 555
@@ -16,26 +16,26 @@
   OnCreate = FormCreate
   Position = poDefaultPosOnly
   ShowHint = True
-  LCLVersion = '0.9.27'
+  LCLVersion = '0.9.29'
   object Label8: TLabel
     Left = 523
-    Height = 14
+    Height = 18
     Top = 12
-    Width = 38
+    Width = 44
     Caption = 'Label8'
     ParentColor = False
   end
   object SpeedBar: TPanel
     Left = 1
-    Height = 29
+    Height = 52
     Top = 1
-    Width = 559
+    Width = 553
     Align = alTop
     AutoSize = True
     BorderSpacing.Around = 1
     BorderSpacing.InnerBorder = 2
-    ClientHeight = 29
-    ClientWidth = 559
+    ClientHeight = 52
+    ClientWidth = 553
     TabOrder = 0
     object OpenFileSB: TSpeedButton
       Left = 1
@@ -167,21 +167,21 @@
     end
     object ToolPanel: TPanel
       Left = 64
-      Height = 27
+      Height = 50
       Top = 1
-      Width = 494
+      Width = 488
       Align = alRight
       Alignment = taRightJustify
       Anchors = [akTop, akLeft, akRight, akBottom]
-      ClientHeight = 27
-      ClientWidth = 494
+      ClientHeight = 50
+      ClientWidth = 488
       TabOrder = 0
       Visible = False
       object DesigningStateLabel: TStaticText
-        Left = 417
-        Height = 25
+        Left = 415
+        Height = 48
         Top = 1
-        Width = 76
+        Width = 72
         Align = alRight
         Alignment = taCenter
         AutoSize = True
@@ -197,19 +197,19 @@
   end
   object StatusLine: TStatusBar
     Left = 0
-    Height = 19
-    Top = 256
-    Width = 561
+    Height = 17
+    Top = 278
+    Width = 555
     Panels = <>
   end
   object UnitDefineComboBox: TComboBox
     Left = 400
-    Height = 29
+    Height = 27
     Top = 72
     Width = 145
-    AutoComplete = False
     Enabled = False
     ItemHeight = 0
+    ItemIndex = 2
     Items.Strings = (
       'Imperial'
       'None'
@@ -532,39 +532,38 @@
       'mph'
       ' '
     )
-    ItemWidth = 0
     Style = csDropDownList
     TabOrder = 1
     Visible = False
   end
   object ToolboxPanel: TPanel
     Left = 0
-    Height = 225
-    Top = 31
-    Width = 561
+    Height = 224
+    Top = 54
+    Width = 555
     Align = alClient
-    ClientHeight = 225
-    ClientWidth = 561
+    ClientHeight = 224
+    ClientWidth = 555
     TabOrder = 2
     object ToolboxNotebook: TNotebook
       Left = 1
-      Height = 90
+      Height = 89
       Top = 134
-      Width = 559
+      Width = 553
       Align = alBottom
       Anchors = [akTop, akLeft, akRight, akBottom]
       PageIndex = 0
       TabOrder = 0
       object NeuronsPage: TPage
         Caption = 'Neurons'
-        ClientWidth = 555
-        ClientHeight = 61
+        ClientWidth = 547
+        ClientHeight = 58
         object NeuronsList: TListBox
           Left = 0
-          Height = 56
+          Height = 53
           Hint = 'Double left click to edit a neuron.'#10'Hold down left mouse button to drag neuron to a formula.'
           Top = 5
-          Width = 555
+          Width = 547
           Align = alBottom
           Anchors = [akTop, akLeft, akRight, akBottom]
           DragMode = dmAutomatic
@@ -584,16 +583,16 @@
       Left = 0
       Height = 78
       Top = 43
-      Width = 561
+      Width = 555
       Anchors = [akTop, akLeft, akRight]
       ClientHeight = 78
-      ClientWidth = 561
+      ClientWidth = 555
       TabOrder = 1
       object Label2: TLabel
         Left = 1
         Height = 16
         Top = 5
-        Width = 23
+        Width = 27
         Caption = 'Font'
         Font.Height = -11
         Font.Name = 'Arial'
@@ -604,7 +603,7 @@
         Left = 150
         Height = 16
         Top = 5
-        Width = 21
+        Width = 28
         Caption = 'Size'
         Font.Height = -11
         Font.Name = 'Arial'
@@ -621,36 +620,36 @@
       end
       object Label5: TLabel
         Left = 319
-        Height = 14
+        Height = 18
         Top = 5
-        Width = 22
+        Width = 26
         Caption = 'Left'
         ParentColor = False
       end
       object Label6: TLabel
         AnchorSideTop.Control = Label5
         Left = 370
-        Height = 14
+        Height = 18
         Top = 5
-        Width = 20
+        Width = 24
         Caption = 'Top'
         ParentColor = False
       end
       object Label4: TLabel
         AnchorSideTop.Control = Label5
         Left = 422
-        Height = 14
+        Height = 18
         Top = 5
-        Width = 37
+        Width = 43
         Caption = 'Height'
         ParentColor = False
       end
       object Label7: TLabel
         AnchorSideTop.Control = Label5
         Left = 474
-        Height = 14
+        Height = 18
         Top = 5
-        Width = 33
+        Width = 38
         Caption = 'Width'
         ParentColor = False
       end
@@ -712,7 +711,7 @@
         Left = 198
         Height = 20
         Top = 50
-        Width = 98
+        Width = 107
         Anchors = [akTop, akLeft, akRight]
         BorderWidth = 2
         ButtonColorSize = 30
@@ -728,12 +727,10 @@
         AnchorSideTop.Control = Label2
         AnchorSideTop.Side = asrBottom
         Left = 1
-        Height = 29
+        Height = 27
         Top = 21
         Width = 145
-        AutoComplete = False
         ItemHeight = 0
-        ItemWidth = 0
         OnChange = FontComboBoxChange
         Style = csDropDownList
         TabOrder = 0
@@ -742,7 +739,7 @@
         Left = 198
         Height = 22
         Top = 6
-        Width = 48
+        Width = 53
         Caption = 'Bold'
         OnClick = BoldCBClick
         TabOrder = 1
@@ -751,10 +748,10 @@
         AnchorSideLeft.Control = BoldCB
         AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = BoldCB
-        Left = 246
+        Left = 251
         Height = 22
         Top = 6
-        Width = 50
+        Width = 54
         Caption = 'Italic'
         OnClick = ItalicCBClick
         TabOrder = 2
@@ -766,7 +763,7 @@
         Left = 198
         Height = 22
         Top = 28
-        Width = 77
+        Width = 84
         Caption = 'Underline'
         OnClick = UnderlineCBClick
         TabOrder = 3
@@ -776,8 +773,8 @@
         AnchorSideTop.Control = Label5
         AnchorSideTop.Side = asrBottom
         Left = 319
-        Height = 24
-        Top = 19
+        Height = 27
+        Top = 23
         Width = 48
         MaxValue = 1000
         OnChange = ControlLeftChange
@@ -788,8 +785,8 @@
         AnchorSideTop.Control = Label6
         AnchorSideTop.Side = asrBottom
         Left = 370
-        Height = 24
-        Top = 19
+        Height = 27
+        Top = 23
         Width = 48
         MaxValue = 1000
         OnChange = ControlTopChange
@@ -800,8 +797,8 @@
         AnchorSideTop.Control = Label4
         AnchorSideTop.Side = asrBottom
         Left = 422
-        Height = 24
-        Top = 19
+        Height = 27
+        Top = 23
         Width = 48
         MaxValue = 1000
         OnChange = ControlHeightChange
@@ -812,8 +809,8 @@
         AnchorSideTop.Control = Label7
         AnchorSideTop.Side = asrBottom
         Left = 474
-        Height = 24
-        Top = 19
+        Height = 27
+        Top = 23
         Width = 48
         MaxValue = 1000
         OnChange = ControlWidthChange
@@ -824,7 +821,7 @@
         AnchorSideTop.Control = Label3
         AnchorSideTop.Side = asrBottom
         Left = 150
-        Height = 26
+        Height = 27
         Top = 21
         Width = 42
         OnChange = FontSizeNumberEditChange
@@ -835,7 +832,7 @@
       Left = 1
       Height = 37
       Top = 1
-      Width = 559
+      Width = 553
       BorderWidth = 2
       ButtonHeight = 30
       ButtonWidth = 28

Modified: trunk/editor/cose.lpi
===================================================================
--- trunk/editor/cose.lpi	2010-04-09 16:29:12 UTC (rev 1841)
+++ trunk/editor/cose.lpi	2010-04-09 16:30:21 UTC (rev 1842)
@@ -16,7 +16,7 @@
       <UseXPManifest Value="True"/>
     </General>
     <VersionInfo>
-      <ProjectVersion Value=""/>
+      <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
@@ -38,94 +38,94 @@
         <PackageName Value="LCL"/>
       </Item2>
     </RequiredPackages>
-    <Units Count="43">
+    <Units Count="42">
       <Unit0>
         <Filename Value="cose.lpr"/>
         <IsPartOfProject Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="NeuralFrm.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="NeuralPages"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="NeuralFrm"/>
       </Unit1>
       <Unit2>
         <Filename Value="EdTabProperties.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdTabPropertiesDlg"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="EdTabProperties"/>
       </Unit2>
       <Unit3>
         <Filename Value="EdLabelProp.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdLabelFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="EdLabelProp"/>
       </Unit3>
       <Unit4>
         <Filename Value="EdPanel.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdPanelFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdPanel"/>
       </Unit4>
       <Unit5>
         <Filename Value="EdBevelProp.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdBevelFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdBevelProp"/>
       </Unit5>
       <Unit6>
         <Filename Value="EdCheckBoxProp.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdCheckBoxFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdCheckBoxProp"/>
       </Unit6>
       <Unit7>
         <Filename Value="EdRadioButtonProp.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdRadioButtonFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdRadioButtonProp"/>
       </Unit7>
       <Unit8>
         <Filename Value="EdNeuronProp.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdNeuronFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdNeuronProp"/>
       </Unit8>
       <Unit9>
         <Filename Value="EdUnits.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdUnitsDlg"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdUnits"/>
       </Unit9>
       <Unit10>
         <Filename Value="EdMemo.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdMemoFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdMemo"/>
       </Unit10>
       <Unit11>
         <Filename Value="EdRTAttributes.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdRTAttributesFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="EdRTAttributes"/>
       </Unit11>
       <Unit12>
@@ -135,60 +135,60 @@
       </Unit12>
       <Unit13>
         <Filename Value="EdDrawNeuron.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdDrawNeuronFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdDrawNeuron"/>
       </Unit13>
       <Unit14>
         <Filename Value="EdDrawControl.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdDrawControlFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="EdDrawControl"/>
       </Unit14>
       <Unit15>
         <Filename Value="EdComboBox.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdComboBoxFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="EdComboBox"/>
       </Unit15>
       <Unit16>
         <Filename Value="FindNameInNeuron.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="FindRefNeuronsFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="FindNameInNeuron"/>
       </Unit16>
       <Unit17>
         <Filename Value="FindTriggeredByNeurons.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="FindTriggeredByNeuronsFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="FindTriggeredByNeurons"/>
       </Unit17>
       <Unit18>
         <Filename Value="NNProcSettings.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="NNProcSettingsFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="NNProcSettings"/>
       </Unit18>
       <Unit19>
         <Filename Value="AboutNF.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="AboutBox"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="AboutNF"/>
       </Unit19>
       <Unit20>
         <Filename Value="EdUserUnits.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="UserUnitDefDlg"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdUserUnits"/>
       </Unit20>
@@ -239,83 +239,78 @@
       </Unit29>
       <Unit30>
         <Filename Value="Main.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="MainForm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Main"/>
       </Unit30>
       <Unit31>
-        <Filename Value="../rendersystem/glcontext.pas"/>
-        <IsPartOfProject Value="True"/>
-        <UnitName Value="GLContext"/>
-      </Unit31>
-      <Unit32>
         <Filename Value="NFComboBox.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="NFComboBox"/>
-      </Unit32>
-      <Unit33>
+      </Unit31>
+      <Unit32>
         <Filename Value="NFRadioButton.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="NFRadioButton"/>
-      </Unit33>
-      <Unit34>
+      </Unit32>
+      <Unit33>
         <Filename Value="NFRichEdit.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="NFRichEdit"/>
-      </Unit34>
-      <Unit35>
+      </Unit33>
+      <Unit34>
         <Filename Value="NFDrawsControl.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="NFDrawsControl"/>
-      </Unit35>
-      <Unit36>
+      </Unit34>
+      <Unit35>
         <Filename Value="NumberEdit.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="NumberEdit"/>
-      </Unit36>
-      <Unit37>
+      </Unit35>
+      <Unit36>
         <Filename Value="EdIONumberProp.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdIONumberFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <UnitName Value="EdIONumberProp"/>
-      </Unit37>
-      <Unit38>
+      </Unit36>
+      <Unit37>
         <Filename Value="EdIONeuron.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdIONeuronFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdIONeuron"/>
-      </Unit38>
-      <Unit39>
+      </Unit37>
+      <Unit38>
         <Filename Value="DialGauge.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="DialGauge"/>
-      </Unit39>
-      <Unit40>
+      </Unit38>
+      <Unit39>
         <Filename Value="EdDialGauge.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdDialGaugeFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdDialGauge"/>
-      </Unit40>
-      <Unit41>
+      </Unit39>
+      <Unit40>
         <Filename Value="EdDialGaugeZone.pas"/>
+        <IsPartOfProject Value="True"/>
         <ComponentName Value="EdDialGaugeZoneFrm"/>
         <HasResources Value="True"/>
-        <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EdDialGaugeZone"/>
-      </Unit41>
-      <Unit42>
+      </Unit40>
+      <Unit41>
         <Filename Value="NFDialGauge.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="NFDialGauge"/>
-      </Unit42>
+      </Unit41>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
@@ -342,4 +337,7 @@
       <CompilerPath Value="$(CompPath)"/>
     </Other>
   </CompilerOptions>
+  <Debugging>
+    <Exceptions IgnoreAll="True"/>
+  </Debugging>
 </CONFIG>


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1841] trunk/editor

From: <nf...@us...> - 2010-04-09 16:29:18

Revision: 1841
          http://cose.svn.sourceforge.net/cose/?rev=1841&view=rev
Author:   nfz_
Date:     2010-04-09 16:29:12 +0000 (Fri, 09 Apr 2010)

Log Message:
-----------
NeuralFrm:
- Fixed problem with neural page not displaying and updating properly when using Lazarus svn rev 24256 and later.  Had to comment out the Hide and Show calls in TNeuralPages.Create method.

Revision Links:
--------------
    http://cose.svn.sourceforge.net/cose/?rev=24256&view=rev

Modified Paths:
--------------
    trunk/editor/NeuralFrm.lfm
    trunk/editor/NeuralFrm.pas

Modified: trunk/editor/NeuralFrm.lfm
===================================================================
--- trunk/editor/NeuralFrm.lfm	2010-03-16 02:48:26 UTC (rev 1840)
+++ trunk/editor/NeuralFrm.lfm	2010-04-09 16:29:12 UTC (rev 1841)
@@ -11,7 +11,7 @@
   OnClose = FormClose
   ParentFont = True
   Position = poDefaultPosOnly
-  LCLVersion = '0.9.27'
+  LCLVersion = '0.9.29'
   Visible = True
   object NeuralPageControl: TPageControl
     Left = 0

Modified: trunk/editor/NeuralFrm.pas
===================================================================
--- trunk/editor/NeuralFrm.pas	2010-03-16 02:48:26 UTC (rev 1840)
+++ trunk/editor/NeuralFrm.pas	2010-04-09 16:29:12 UTC (rev 1841)
@@ -261,9 +261,11 @@
     {
       SF BUG FIX: 1785320: The form will not appear unless it is hidden and then
       shown after loading from a stream.
+      10 Apr 2010: commented out hide and show since this caused the form not to update
+      after being loaded.  Only seems to be effected by Lazarus svn 24256 and later.
     }
-    Hide;
-    Show;
+    //Hide;
+    //Show;
   end
 
   else


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1840] trunk/editor/NumberEdit.pas

From: <nf...@us...> - 2010-03-16 02:48:33

Revision: 1840
          http://cose.svn.sourceforge.net/cose/?rev=1840&view=rev
Author:   nfz_
Date:     2010-03-16 02:48:26 +0000 (Tue, 16 Mar 2010)

Log Message:
-----------
NumberEdit:
Bug Fix: Unit conversions would not cause a text update if the user had edited the value.  Fixed: forget to set ExceptNoChange to false if it was true after float value was set.

Modified Paths:
--------------
    trunk/editor/NumberEdit.pas

Modified: trunk/editor/NumberEdit.pas
===================================================================
--- trunk/editor/NumberEdit.pas	2010-03-12 17:17:44 UTC (rev 1839)
+++ trunk/editor/NumberEdit.pas	2010-03-16 02:48:26 UTC (rev 1840)
@@ -131,8 +131,10 @@
       ExternalChange := True;
       Text := FloatToStrF(FFloatValue,ffFixed,DigitsToLeft,DigitsToRight);
       ExternalChange := False;
+    end
+    else
       ExceptNoChange := False;
-    end;
+
   end;
 
 end;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cose-svnmail] SF.net SVN: cose:[1839] trunk/editor/cose.RES

From: <nf...@us...> - 2010-03-12 17:17:51

Revision: 1839
          http://cose.svn.sourceforge.net/cose/?rev=1839&view=rev
Author:   nfz_
Date:     2010-03-12 17:17:44 +0000 (Fri, 12 Mar 2010)

Log Message:
-----------
cose resource update

Modified Paths:
--------------
    trunk/editor/cose.RES

Modified: trunk/editor/cose.RES
===================================================================
(Binary files differ)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

Flat | Threaded

1 2 3 .. 74 > >> (Page 1 of 74)

2007	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug (101)	Sep (78)	Oct (106)	Nov (86)	Dec (7)
2008	Jan (246)	Feb (266)	Mar (201)	Apr (145)	May (53)	Jun (34)	Jul (36)	Aug (73)	Sep (25)	Oct (22)	Nov (3)	Dec (1)
2009	Jan (38)	Feb (49)	Mar (161)	Apr (53)	May (11)	Jun (3)	Jul (6)	Aug	Sep	Oct	Nov (1)	Dec
2010	Jan	Feb	Mar (4)	Apr (2)	May	Jun	Jul	Aug	Sep (1)	Oct (1)	Nov (6)	Dec
2011	Jan (10)	Feb (3)	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec