Geen notify's meer doorlussen aangezien er tabbladen gesloten kunnen …

…worden en er zo gaten ontstaan. Nu via de tabbladen op hoofdscherm de opstellingen bij langs gaan

FormOpstelling.pas

@@ -149,7 +149,7 @@ function ToonOpstelling(aParent: TWinControl; aSelectie: TSelectie; aResultSet:
 
 implementation
 uses
-  Math;
+  Math, uPlayer;
 
 {$R *.DFM}
 
@@ -798,16 +798,33 @@ function TfrmOpstelling.Team2: TOpstelling;
 -----------------------------------------------------------------------------}
 procedure TfrmOpstelling.NeemGegevensOver(aOpstellingForm: TfrmOpstelling);
 var
-  vCount: integer;
+  vCount,
+  vPlayerCount: integer;
   vDisplayValue: Variant;
   vErrorText: TCaption;
   vError: Boolean;
+  vPlayer: TPlayer;
 begin
   for vCount := Low(aOpstellingForm.FOpstellingPlayerArray) to High(aOpstellingForm.FOpstellingPlayerArray) do
   begin                                            
     FOpstellingPlayerArray[vCount].cbOrder.ItemIndex := aOpstellingForm.FOpstellingPlayerArray[vCount].cbOrder.ItemIndex;
     FOpstellingPlayerArray[vCount].cbPlayerPropertiesPopup(nil);
-    FOpstellingPlayerArray[vCount].cbPlayer.ItemIndex := aOpstellingForm.FOpstellingPlayerArray[vCount].cbPlayer.ItemIndex;
+    if (aOpstellingForm.FOpstellingPlayerArray[vCount].cbPlayer.EditValue <> Null) then
+    begin
+      vPlayer := FOpstelling.Selectie.GetPlayer(aOpstellingForm.FOpstellingPlayerArray[vCount].cbPlayer.EditValue);
+
+      if (vPlayer <> nil) then
+      begin
+        for vPlayerCount := 0 to FOpstellingPlayerArray[vCount].cbPlayer.Properties.Items.Count - 1 do
+        begin
+          if (FOpstellingPlayerArray[vCount].cbPlayer.Properties.Items.Items[vPlayerCount].Value = vPlayer.ID) then
+          begin
+            FOpstellingPlayerArray[vCount].cbPlayer.ItemIndex := vPlayerCount;
+          end;
+        end;
+      end;
+    end;
+    //FOpstellingPlayerArray[vCount].cbPlayer.ItemIndex := aOpstellingForm.FOpstellingPlayerArray[vCount].cbPlayer.ItemIndex;
 
     FOpstellingPlayerArray[vCount].ChangeOpstelling(FOpstellingPlayerArray[vCount].cbPlayer, vDisplayValue, vErrorText, vError);
   end;

formHTPredictor.pas

@@ -108,6 +108,8 @@   TfrmHTPredictor = class(TForm)
     FAantalEigenOpstellingen: integer;
     FGeenNieuwTabAanmaken: Boolean;
     procedure ToonRatingbijdrages;
+    procedure NotifyEigenSelectieChanged(Sender: TObject);
+    procedure NotifyTegenSelectieChanged(Sender: TObject);
     { Private declarations }
   public
     { Public declarations }
@@ -190,10 +192,12 @@ procedure TfrmHTPredictor.FormCreate(Sender: TObject);
   FRatingBijdrages := TRatingBijdrages.Create;
 
   FSelectie_Tegen := ToonSpelersGrids(pnlSpelersGrid1, cxtbTegenstander);
-  FSelectie_Tegen.EigenSelectie := FALSE;
+  FSelectie_Tegen.EigenSelectie := FALSE;                             
+  FSelectie_Tegen.NotifySelectieChanged := NotifyTegenSelectieChanged;
 
   FSelectie_Eigen := ToonSpelersGrids(pnlSpelersGrid2, cxtbEigenTeam);
   FSelectie_Eigen.EigenSelectie := TRUE;
+  FSelectie_Eigen.NotifySelectieChanged := NotifyEigenSelectieChanged;
 
   FSelectie_Eigen.RatingBijdrages := FRatingBijdrages;
   FSelectie_Tegen.RatingBijdrages := FRatingBijdrages;
@@ -405,4 +409,42 @@ procedure TfrmHTPredictor.pcEigenOpstellingenCanClose(Sender: TObject; var ACanC
   end;
 end;
 
+{-----------------------------------------------------------------------------
+  Author:    Pieter Bas
+  Datum:     25-05-2012
+  Doel:
+
+  <eventuele fixes>
+-----------------------------------------------------------------------------}
+procedure TfrmHTPredictor.NotifyEigenSelectieChanged(Sender: TObject);
+var
+  vCount: integer;
+  vFormOpstelling: TfrmOpstelling;
+begin
+  for vCount := 0 to pcEigenOpstellingen.PageCount - 2 do
+  begin
+    vFormOpstelling := TfrmOpstelling(pcEigenOpstellingen.Pages[vCount].Controls[0]);
+
+    if (vFormOpstelling <> nil) then
+    begin
+      vFormOpstelling.UpdateRatings;
+    end;
+  end;
+end;
+
+{-----------------------------------------------------------------------------
+  Author:    Pieter Bas
+  Datum:     25-05-2012
+  Doel:
+  
+  <eventuele fixes>
+-----------------------------------------------------------------------------}
+procedure TfrmHTPredictor.NotifyTegenSelectieChanged(Sender: TObject);
+begin
+  if (FFormOpstellingTegenstander <> nil) then
+  begin
+    TfrmOpstelling(FFormOpstellingTegenstander).UpdateRatings;
+  end;
+end;
+
 end.

uOpstelling.pas

@@ -25,12 +25,11 @@   TOpstelling = class
     FHandmatigCA: double;
     FHandmatigLA: double;
     FHandmatigMID: double;
-    FFormatie: String;
-    FPrevNotifySelectieChanged: TNotifyEvent;
+    FFormatie: String;  
+    procedure UpdateRatings;
     procedure SetSelectie(const Value: TSelectie);
     procedure SetAanvoerder(const Value: TPlayer);
     procedure SetSpelhervatter(const Value: TPlayer);
-    procedure UpdateRatings;
     procedure SetMotivatie(const Value: TOpstellingMotivatie);
     procedure SetTactiek(const Value: TOpstellingTactiek);
     procedure SetCoach(const Value: TOpstellingCoach);
@@ -47,7 +46,6 @@   TOpstelling = class
     procedure SetHandmatigLV(const Value: double);
     procedure SetHandmatigMID(const Value: double);
     procedure SetHandmatigRA(const Value: double);
-    procedure NotifySelectieChanged(Sender: TObject);
   public
     property HandmatigMID: double write SetHandmatigMID;
     property HandmatigRV: double write SetHandmatigRV;
@@ -66,14 +64,13 @@   TOpstelling = class
     property TacticLevel: double read GetTacticLevel;
 
     constructor Create(aFormOpstelling: TForm);
-    destructor Destroy; override;
 
     function GetPlayerOnPosition(aPositie: TPlayerPosition): TPlayer;
     function GetPositionOfPlayer(aPlayer: TPlayer): TPlayerPosition;
     procedure ZetPlayerIDOpPositie(aPlayerID: integer; aPositie: TPlayerPosition; aPlayerOrder: TPlayerOrder);
     function AantalPositiesBezet: integer;
     function RV: double;          
-    function CV: double;             
+    function CV: double;
     function LV: double;  
     function RA: double;
     function CA: double;
@@ -241,12 +238,6 @@ function TOpstelling.CV: double;
   end;
 end;
 
-destructor TOpstelling.Destroy;
-begin
-  inherited;
-
-end;
-
 {-----------------------------------------------------------------------------
   Author:    Pieter Bas
   Datum:     17-04-2012
@@ -559,24 +550,6 @@ function TOpstelling.MID: double;
   end;
 end;
 
-{-----------------------------------------------------------------------------
-  Author:    Pieter Bas
-  Datum:     24-04-2012
-  Doel:
-  
-  <eventuele fixes>
------------------------------------------------------------------------------}
-procedure TOpstelling.NotifySelectieChanged(Sender: TObject);
-begin
-  UpdateRatings;
-
-  //event doorlussen naar andere selecties
-  if Assigned(FPrevNotifySelectieChanged) then
-  begin
-    FPrevNotifySelectieChanged(Sender);
-  end;
-end;
-
 function TOpstelling.OverCrowdingAanval: double;
 var
   vCentraalCount: integer;
@@ -849,13 +822,6 @@ procedure TOpstelling.SetMotivatie(const Value: TOpstellingMotivatie);
 procedure TOpstelling.SetSelectie(const Value: TSelectie);
 begin
   FSelectie := Value;
-
-  if Assigned(FSelectie.NotifySelectieChanged) then
-  begin
-    FPrevNotifySelectieChanged := FSelectie.NotifySelectieChanged;
-  end;
-
-  FSelectie.NotifySelectieChanged := NotifySelectieChanged;
 end;
 
 {-----------------------------------------------------------------------------

uSelectie.pas

@@ -162,12 +162,10 @@ procedure TSelectie.LoadFromMemDataSet(aDataSet: TdxMemData; aRefresh: boolean);
 
   if Assigned(FNotifySelectieChanged) then
   begin
-
     FNotifySelectieChanged(nil);
   end;
 end;
 
-
 procedure TSelectie.SetEigenSelectie(const Value: Boolean);
 begin
   FEigenSelectie := Value;
@@ -192,12 +190,9 @@ procedure TSelectie.SetWedstrdijdPlaats(const Value: TWedstrijdPlaats);
   begin
     FWedstrijdPlaats := Value;
 
-    if (EigenSelectie) then
+    if Assigned(FNotifySelectieChanged) then
     begin
-      if Assigned(FNotifySelectieChanged) then
-      begin
-        FNotifySelectieChanged(nil);
-      end;
+      FNotifySelectieChanged(nil);
     end;
   end;
 end;