Changeset 272 for branches/highdpi/Packages/DpiControls/UDpiControls.pas

Timestamp:

Jul 2, 2020, 11:15:34 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Input dialog text was not updated correctly.

File:

• branches/highdpi/Packages/DpiControls/UDpiControls.pas (modified) (2 diffs)

branches/highdpi/Packages/DpiControls/UDpiControls.pas

@@ -592 +592 @@
   TDpiEdit = class(TDpiWinControl)
   private
-    FText: string;
     function GetSelLength: Integer;
     function GetSelStart: Integer;
@@ -1282 +1281 @@
 function TDpiEdit.GetText: TCaption;
 begin
-  Result := FText;
+  Result := GetNativeEdit.Text;
 end;
 
 procedure TDpiEdit.SetText(AValue: TCaption);
 begin
-  FText := AValue;
   GetNativeEdit.Text := AValue;
 end;