Skip to content

Commit 1527d35

Browse files
ansgarbeckeransgarbecker
committed
chore: remove dead code and calls: HasSizeGrip, FixControls, TranslateComponent, ConfirmIcon
1 parent f3a0594 commit 1527d35

22 files changed

+1437
-1551
lines changed

‎source/apphelpers.pas‎

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1865,7 +1865,6 @@ constructor TDBObjectEditor.Create(AOwner: TComponent);
18651865
Align := alClient;
18661866
FMainSynMemo := nil;
18671867
DBObject := nil;
1868-
//TranslateComponent(Self);
18691868
end;
18701869

18711870
destructor TDBObjectEditor.Destroy;
@@ -1894,7 +1893,6 @@ procedure TDBObjectEditor.Init(Obj: TDBObject);
18941893
begin
18951894
Mainform.ShowStatusMsg(_('Initializing editor ...'));
18961895
Mainform.LogSQL(Self.ClassName+'.Init, using object "'+Obj.Name+'"', lcDebug);
1897-
TExtForm.FixControls(Self);
18981896
IsRefresh := Assigned(DBObject) and DBObject.IsSameAs(Obj);
18991897
if IsRefresh and Assigned(FMainSynMemo) then
19001898
FMainSynMemoPreviousTopLine := FMainSynMemo.TopLine
@@ -3511,7 +3509,6 @@ procedure TWinControlHelper.TrySetFocus;
35113509
end;
35123510

35133511

3514-
35153512
{ TAppSettings }
35163513

35173514
constructor TAppSettings.Create;
@@ -4473,9 +4470,6 @@ initialization
44734470

44744471
DateTimeNever := MinDateTime;
44754472

4476-
//ConfirmIcon := TIcon.Create;
4477-
//ConfirmIcon.LoadFromResourceName(hInstance, 'Z_ICONQUESTION');
4478-
44794473
// Callback used by osutil.inc:ApplicationName(), forcing a stable configuration directory. See issue #2310
44804474
OnGetApplicationName := @GetApplicationName;
44814475

‎source/bineditor.pas‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -92,7 +92,6 @@ procedure TfrmBinEditor.SetFont(font: TFont);
9292

9393
procedure TfrmBinEditor.FormCreate(Sender: TObject);
9494
begin
95-
HasSizeGrip := True;
9695
Width := AppSettings.ReadInt(asMemoEditorWidth);
9796
Height := AppSettings.ReadInt(asMemoEditorHeight);
9897
end;

‎source/change_password.lfm‎

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -13,10 +13,9 @@ object frmPasswordChange: TfrmPasswordChange
1313
Constraints.MinHeight = 231
1414
Constraints.MinWidth = 500
1515
DesignTimePPI = 120
16-
OnCreate = FormCreate
17-
OnShow = FormShow
1816
Position = poMainFormCenter
19-
LCLVersion = '3.8.0.0'
17+
LCLVersion = '4.2.0.0'
18+
OnShow = FormShow
2019
object lblHeading: TLabel
2120
Left = 6
2221
Height = 60
@@ -120,8 +119,8 @@ object frmPasswordChange: TfrmPasswordChange
120119
Width = 120
121120
Anchors = [akRight, akBottom]
122121
Caption = 'Copy'
123-
ImageIndex = 3
124122
Images = MainForm.ImageListMain
123+
ImageIndex = 3
125124
OnClick = btnCopyToClipboardClick
126125
end
127126
object progressbarPasswordStrength: TProgressBar

0 commit comments

Comments
 (0)