-
Content Count
879 -
Joined
-
Last visited
-
Days Won
7
Everything posted by Stano
-
Firebird 5.0 with FastReport (Delphi 12): unknown ISC error 0
Stano replied to TheBioh4z4rdx's topic in Databases
For compiling SQL texts I recommend to use some DB manager. It would print this error directly! -
Firebird 5.0 with FastReport (Delphi 12): unknown ISC error 0
Stano replied to TheBioh4z4rdx's topic in Databases
The GROUP BY NF.DOCUMENT part is missing -
Why does the field type change after saving the Table within the database?
Stano replied to Miguel Jr's topic in Databases
Browser add-on and away it goes! -
Delphi takes 9 seconds to start/shutdown an empty application
Stano replied to FreeDelphiPascal's topic in General Help
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. -
How to resolve error in Database Desktop execution in Delphi 7
Stano replied to Miguel Jr's topic in Databases
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. -
I can't get on the FMX wiki for the third day.
-
ifthen strange return value !
Stano replied to bravesofts's topic in Algorithms, Data Structures and Class Design
This remark applies in full measure to me -
Show executable size after successful build?
Stano replied to PeterPanettone's topic in Delphi IDE and APIs
Peter: this is not an anecdote. That was a real scientific experiment. -
Hm, and how is it done? I can't imagine.
-
How to debug a Not Responding program element
Stano replied to Willicious's topic in Delphi IDE and APIs
I consider this a necessary duty! -
Codolex 2.0 is now Free - Low-Code for Delphi
Stano replied to Jim McKeeth's topic in Delphi Third-Party
I downloaded the free version 2.0 out of curiosity. No message appeared. -
I collapse the function/procedure and so seemingly copy "just one" line.
-
Sometimes it is useful to make a list of these components.
-
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;
-
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"
-
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/
-
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?
-
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.
-
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.
-
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.
-
Listview and groups, any chance to have groups visible without items assigned?
Stano replied to softtouch's topic in VCL
Isn't it enough to just make it inaccessible? -
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?
-
I kind of don't understand your problem. What are you actually pursuing? If you have only one record then the active buttons in the Navigator will be Insert/New, Edit and Delete. This is to say that you can't rely on the cursor buttons. It is better to work with the attached DataSet. Either it has an active/selected record or it doesn't. If you have something else in mind, then describe it more precisely.
-
Ignore this.
-
CnPack has a function to remove unused units. to check it is laborious it is not what you require But a miracle can happen