Changeset 108 for trunk/Forms/UFormProperties.pas

Timestamp:

Feb 11, 2022, 11:31:42 AM (2 years ago)

Author:

chronos

Message:

• Fixed: Do not update interface in contact properties if the listview doesn't have handle yet.
• Added: Synced update of full name and name parts in contact form.
• Modified: Improved image loading code by image format.

File:

• trunk/Forms/UFormProperties.pas (modified) (5 diffs)

trunk/Forms/UFormProperties.pas

@@ -65 +65 @@
   private
     FProperties: TContactProperties;
+    FUpdateCount: Integer;
     procedure FilterList(List: TFPGObjectList<TObject>);
     procedure SetProperties(AValue: TContactProperties);
+    procedure DoUpdateInterface;
   public
     property Properties: TContactProperties read FProperties write SetProperties;
     procedure ReloadList;
+    procedure BeginUpdate;
+    procedure EndUpdate;
     procedure UpdateInterface;
   end;
@@ -93 +97 @@
   STextFiles = 'Text files';
   SValue = 'Value';
+  SEndUpdateTooLow = 'Update counter error';
 
 const
@@ -365 +370 @@
 end;
 
-procedure TFormProperties.UpdateInterface;
+procedure TFormProperties.BeginUpdate;
+begin
+  Inc(FUpdateCount);
+end;
+
+procedure TFormProperties.EndUpdate;
+begin
+  if FUpdateCount <= 0 then raise Exception(SEndUpdateTooLow);
+  Dec(FUpdateCount);
+  if FUpdateCount = 0 then DoUpdateInterface;
+end;
+
+procedure TFormProperties.DoUpdateInterface;
 var
   Text: string;
@@ -371 +388 @@
   Selected: Boolean;
 begin
+  if not ListView1.HandleAllocated then Exit;
+
   Selected := Assigned(ListView1.Selected);
   AAdd.Enabled := Assigned(Properties);
@@ -392 +411 @@
 end;
 
+procedure TFormProperties.UpdateInterface;
+begin
+  if FUpdateCount = 0 then DoUpdateInterface;
+end;
+
 end.