1 files changed, 9 insertions, 9 deletions
diff --git a/USplitFile.pas b/USplitFile.pas
index 39e9505..d7df1b3 100644
--- a/USplitFile.pas
+++ b/USplitFile.pas
@@ -22,7 +22,7 @@ unit USplitFile;
 interface
 
 uses
-  SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts;
+  SysUtils, Classes, lazgdk3, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls;
 
 type
   TFSplitFile = class(TGTKDialog)
@@ -30,7 +30,7 @@ type
     Entry: TGTKEntry;
     Box: TGTKVBox;
     SizeBox: TGTKHBox;
-    SizeCombo: TGTKCombo;
+    SizeCombo: TGTKComboBoxEntry;
     DeleteTargetCheckBox: TGTKCheckButton;
     procedure FormCreate(Sender: TObject); override;
     procedure FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean);
@@ -71,7 +71,6 @@ begin
   Box := TGTKVBox.Create(Self);
   Label1 := TGTKLabel.Create(Self);
   Label1.XAlign := 0;
-  Label1.XPadding := 0;
   Entry := TGTKEntry.Create(Self);
   Label1.FocusControl := Entry;
   Box.AddControlEx(Label1, False, False, 0);
@@ -82,14 +81,15 @@ begin
   SizeBox.Homogeneous := False;
   Label2 := TGTKLabel.Create(Self);
   Label2.XAlign := 0;
-  Label2.XPadding := 10;
+  Label2.MarginStart := 10;
+  Label2.MarginEnd := 10;
   Label2.Caption := LANGBytesPerFile;
-  SizeCombo := TGTKCombo.Create(Self);
+  SizeCombo := TGTKComboBoxEntry.Create(Self);
   Label2.FocusControl := SizeCombo.Entry;
   Label2.UseUnderline := True;
-  SizeCombo.Items.Append(LANGAutomatic);
+  SizeCombo.AppendItem(LANGAutomatic);
   for i := 1 to Length(SplitConsts) do
-    SizeCombo.Items.Append(SplitConsts[i].Title);
+    SizeCombo.AppendItem(SplitConsts[i].Title);
   SizeCombo.Entry.Text := LANGAutomatic;
   SizeBox.AddControlEx(Label2, False, False, 0);
   SizeBox.AddControlEx(SizeCombo, False, False, 5);
@@ -105,8 +105,8 @@ end;
 procedure TFSplitFile.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean);
 begin
   case Key of
-    GDK_RETURN, GDK_KP_ENTER: ModalResult := mbOK;
-    GDK_ESCAPE: ModalResult := mbCancel;
+    GDK_KEY_Return, GDK_KEY_KP_Enter: ModalResult := mbOK;
+    GDK_KEY_Escape: ModalResult := mbCancel;
   end;
 end;