USetting_1.inc

{ KOL MCK } // Do not remove this line!

procedure NewFSetting( var Result: PFSetting; AParent: PControl );
begin

  {$IFDEF KOLCLASSES}
  Result := PFSetting.Create;
  {$ELSE OBJECTS}
  New( Result, Create );
  {$ENDIF KOL CLASSES/OBJECTS}
  Result.Form := NewForm( AParent, 'FSetting' ).SetPosition( 550, 284 );
  Result.Form.Add2AutoFree( Result );
    Result.Form.ExStyle := Result.Form.ExStyle or WS_EX_DLGMODALFRAME or WS_EX_WINDOWEDGE;
    Result.Form.Style := Result.Form.Style and not (WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
    Result.Form.SetClientSize( 323, 148 );
    Result.Form.Font.FontHeight := 16;
    Result.Form.Font.FontName := 'Arial';
    Result.Label1 := NewLabel( Result.Form, 'Maksimal kata perhalaman' ).SetPosition( 12, 16 ).AutoSize( TRUE );
    Result.Label2 := NewLabel( Result.Form, 'Jumlah kata acak ' ).SetPosition( 12, 44 ).AutoSize( TRUE );
    Result.chAuto := NewCheckBox( Result.Form, 'Aktifkan fitur pencarian otomatis (lema)' ).SetPosition( 12, 64 ).AutoSize( TRUE );
    Result.btnBatal := NewButton( Result.Form, 'Batal' ).SetPosition( 166, 112 ).SetSize( 0, 25 );
    Result.btnSimpan := NewButton( Result.Form, 'Simpan' ).SetPosition( 94, 112 ).SetSize( 0, 25 );
    Result.edMaxPage := NewEditBox( Result.Form, [ eoNumber ] ).SetPosition( 180, 13 ).SetSize( 73, 0 );
    Result.edMaxPage.TextAlign := KOL.taRight;
    Result.edMaxPage.Text := '300';
    Result.edRndMax := NewEditBox( Result.Form, [ eoNumber ] ).SetPosition( 180, 41 ).SetSize( 73, 0 );
    Result.edRndMax.TextAlign := KOL.taRight;
    Result.edRndMax.Text := '20';
    Result.chSound := NewCheckBox( Result.Form, 'Matikan suara (notifikasi) ketika menekan Enter' ).SetPosition( 12, 84 ).AutoSize( TRUE );
      Result.btnBatal.OnClick := Result.btnBatalClick;
      Result.btnSimpan.OnClick := Result.btnSimpanClick;
    Result.edMaxPage.Color := TColor(clWindow);
    Result.edRndMax.Color := TColor(clWindow);
    Result.Form.CenterOnParent.CanResize := False;
    Result.Form.Perform( WM_INITMENU, 0, 0 );
    Result.KOLForm1FormCreate( Result );
    Result.Form.Icon := THandle(-1);

end;