review

digao-dalpiaz · Mar 25, 2024 · 3d54960 · 3d54960
1 parent eaa2585
commit 3d54960
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/Source/Vcl.DamDialog.pas b/Source/Vcl.DamDialog.pas
@@ -382,7 +382,6 @@ procedure TFrmDamDialogDyn.BuildButtons;
   I: Integer;
   Btn: TButton;
   Names: array[1..3] of string;
-  BtnText: string;
 begin
   case DamMsg.Buttons of
     dbOne, dbOK: NumButtons := 1;
@@ -408,11 +407,9 @@ procedure TFrmDamDialogDyn.BuildButtons;
 
   for I := 1 to NumButtons do
   begin
-    BtnText := Names[I];
-
     Btn := TButton.Create(Self);
     Btn.Parent := BoxFloatBtns;
-    Btn.{$IFDEF FMX}Text{$ELSE}Caption{$ENDIF} := BtnText;
+    SetButtonText(Btn, Names[I]);
     Btn.OnClick := OnBtnClick;
     Btn.Tag := I;
     {$IFDEF FMX}