Jump to content

Stano

Members
  • Content Count

    882
  • Joined

  • Last visited

  • Days Won

    7

Everything posted by Stano

  1. Stano

    How to open form2 then close form1

    Form2.ShowModal; stops further code execution. Put a breakpoint on that line and you'll see it.
  2. Stano

    End Of File

    If I understood correctly, it would be better/easier to hide the corresponding button in DBNavigator.
  3. Stano

    Problem to save XLSX file with QuickReport

    No. Because you haven't published any code
  4. For compiling SQL texts I recommend to use some DB manager. It would print this error directly!
  5. The GROUP BY NF.DOCUMENT part is missing
  6. My experience is that some invalid paths are valid. If you delete them, the IDE will crash easily. This was a few years ago. I don't know if this is still valid.
  7. I've been using BDE to work with Paradox. I don't know if it's Database Destkop. There is a version for D11. I don't know if there is one for D12.
  8. Stano

    Delphi Documentation website issues

    I can't get on the FMX wiki for the third day.
  9. This remark applies in full measure to me
  10. Stano

    Show executable size after successful build?

    Peter: this is not an anecdote. That was a real scientific experiment.
  11. Stano

    Newbie Question - VCL Object Rename

    Hm, and how is it done? I can't imagine.
  12. I consider this a necessary duty!
  13. I downloaded the free version 2.0 out of curiosity. No message appeared.
  14. Stano

    Select the entire procedure/function?

    I collapse the function/procedure and so seemingly copy "just one" line.
  15. Stano

    Set form in read only mode

    Sometimes it is useful to make a list of these components.
  16. Stano

    DateTimePicker - Set empty date

    If an array of type Date has the option "null" in the DBTable so DTP_STAT_HAND_GRIF_VOL_DOSSIER_OPVR_DATE.Field.AsDateTime := 0;// = strToDAte('30/12/1899') You can set DTP_STAT_HAND_GRIF_VOL_DOSSIER_OPVR_DATE.Field.Value := null;
  17. Stano

    DateTimePicker - Set empty date

    I don't know the Konopka components. But: In the second part of the code (else) you don't have a value for the date Some components have the property "Allow null value"
  18. Stano

    Delphi 12.1 is available

    https://docwiki.embarcadero.com/RADStudio/Athens/en/New_features_and_customer_reported_issues_fixed_in_RAD_Studio_12.1 https://blogs.embarcadero.com/announcing-the-availability-of-rad-studio-12-1-athens/
  19. Stano

    Delphi 12.1 is available

    I downloaded RADStudio_12_1_esd_61_7529b.exe. During and after installation it tells me Delphi 12. That doesn't seem right to me. Is it ok?
  20. Several of us have a set value of 120 points. It depends on the resolution of the monitor. At my 3440 x 1440 it's fine.
  21. Stano

    Close current form when opening other form

    I've dealt with this in the dpr unit. I left things around in the demo as well. Maybe they will inspire you in something program MyProgram; {$R *.dres} uses ... subBillingRestEnBloc in 'SubForms\Settlement\Edit billing\subBillingRestEnBloc.pas' {frmsubBillingRestEnBloc}; var LogonForm: TfrmLoginForm; {$R *.res} begin ReportMemoryLeaksOnShutDown := True; Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TdtmdBasic, dtmdBasic); oAppEnv := TAppEnv.Create; Certificate := TCertificate.Create; oGlobVar := TGlobalVar.Create(Certificate); try Licence := TLicence.Create; try Licence.CheckUp; try LogonForm := TfrmLoginForm.Create(nil); except Application.Terminate; Exit; end; if LogonForm.ShowModal = mrOK then begin FreeAndNil(Licence); SupObjJson := TSupObjJson.Create; oAppearance := TAppearance.Create(nil); oAppearance.ReadOptions; if oAppearance.IsTMSStyle then oAppearance.SetStylers(oAppearance.StyleName) else begin TStyleManager.TrySetStyle(oAppearance.VclStyle); oAppearance.UpdateToolBarPager; end; IdentificationData := TIdentificationData.Create; try IdentificationData.Make; finally FreeAndNil(IdentificationData); end; Application.CreateForm(TfrmMainFormFOC, frmMainFormFOC); frmMainFormFOC.Position := poDesigned; SupObjJson.ReadForm(frmMainFormFOC); frmMainFormFOC.Show; Application.Run; end else begin FreeAndNil(LogonForm); FreeAndNil(oGlobVar); FreeAndNil(oAppEnv); end; finally FreeAndNil(Licence); end; finally FreeAndNil(Certificate); end; end.
  22. Stano

    Variable not initialized?

    If the condition "if s<>#48 then" is never satisfied, then j is not initialized. immediately after begin, initialize the variable. I use inline var for this.
  23. Isn't it enough to just make it inaccessible?
  24. Stano

    Check if selected row in DBGrid

    It seems to me that you are referring to the Master - detail link. That is handled differently. If it is something else so: the button bothers me a lot I would run the code every time I change a record but the code is time consuming... Which of these applies?
×