Vandrovnik

I have never tried, but it seems it should work, at least for FB 2.5 they explicitly write about embedded version: https://firebirdsql.org/en/firebird-2-5/

Could you use Firebird for the free version? With server, or even embedded, so there is no need to install it.

No, it is just a forward declaration.

Just put this to the top: type tDrawingObjectList = class;

If you have SynEdit from GetIt, then yes, you may get newer version of SynEdit after installing newer Delphi. SynHighlighterMulti.pas is on C:\Users\MyUserName\Documents\Embarcadero\Studio\22.0\CatalogRepository\SynEdit-2022.03-11\Source\Highlighters\SynHighlighterMulti.pas on my computer in Delphi 11.1.

What if you create the datamodule using Synchronize?

But the result contains addresses - just IPv6, not IPv4...

Yes, but I do not know its name.

It was my function. It takes a string in the form "cn=Valek,ou=OOOO,o=XXX" and divides it to Cn "cn=Valek" and Base "ou=OOOO,o=XXX" (I was dividing it using the first coma in the input string.)

function LdapGetAttribute(aUserFqdn: string; aAttrib: string): string; var Ldap: TLDAPSend; Attribs: tStringList; Cn, Base: string; begin result:=''; Ldap:=TLDAPSend.Create; try Ldap.UserName:=Config.LdapUser; Ldap.Password:=Config.LdapPassword; Ldap.TargetHost:=Config.LdapHost; Ldap.TargetPort:=Config.LdapPort; Ldap.AutoTLS:=true; if Ldap.Login then begin if Ldap.Bind then begin Attribs:=tStringList.Create; try Attribs.Add(aAttrib); RozdelLdap(aUserFqdn, Cn, Base); // cn=Valek,ou=OOOO,o=XXX -> cn=Valek + ou=OOOO,o=XXX Ldap.Search(Base, false, '('+Cn+')', Attribs); if (Ldap.SearchResult.Count>0)and(Ldap.SearchResult[0].Attributes.Count>0) then begin result:=Ldap.SearchResult[0].Attributes[0].Text; end; finally FreeAndNil(Attribs); end; end; end; finally FreeAndNil(Ldap); end; end;

Hello, many years ago, I have used something like this for Novell eDir: function LdapOverPrihlaseni(aUserName, aPassword: string): boolean; var Ldap: TLDAPSend; begin result:=false; if aPassword='' then exit; Ldap:=TLDAPSend.Create; try Ldap.UserName:=aUserName; Ldap.Password:=aPassword; Ldap.TargetHost:=Config.LdapHost; // 'novell.xxxxx.cz'; Ldap.TargetPort:=Config.LdapPort; // '389'; Ldap.AutoTLS:=true; if Ldap.Login then begin if Ldap.Bind then begin result:=true; end; end; finally FreeAndNil(Ldap); end; end; ldapsend.pas was part of Synapse.

I do use it in Delphi application...

I have found and used this, instead of the outdated (maybe it is not in D11.1?) version in Delphi: https://github.com/CMCHTPC/DelphiDX12 But I do not use TDirect2DCanvas.

In Delphi 11, it is in C:\Program Files (x86)\Embarcadero\Studio\22.0\source\rtl\common\System.StartUpCopy.pas in my installation. Help and doc - ehm... Did not find them.

Or use something like AutoHotkey and remap them to your favourite hotkeys...

Yes. He could also try to use https://fontforge.org/ and create new font (based on the original one) with changed line spacing. Waiting for implementation of this feature in IDE could take ... ehm... some time 🙂

This will evaluate to zero: SELECT CAST (1/3 AS DOUBLE PRECISION) AS RESULT FROM rdb$database This will ealuate to 0.333333333333333333: SELECT CAST (1 AS DOUBLE PRECISION) / 3 AS RESULT FROM rdb$database But original question is about something else (probably windowing functions).

I guess you have copied it without the SELECT...

So there must be something different in your real SQL 🙂 What about: select cast(cast(10 as double precision) / 0.3048 * 14.7776 as NUMERIC (18,2)) from rdb$database a

select cast((10.00000 / 0.3048) * 14.7776 as NUMERIC (18,2)) from rdb$database a It works for me. Without the cast, there is 13 decimal places, so only 5 places is left in front of the decimal point.

In 64bit app, pointer is 64 bit - if PrinterInfo is a pointer, it should be casted to NativeUInt or something like that...

Maybe Emba could use remote debugging - I believe anybody with such a problem would allow Emba to do remote debugging on his/her computer.

Can you prepare a small demo project and put it here for download?

Hello, could you try to download .iso and install from it?

It is possible to load a JPG image in original size, or 1/2, 1/4 or 1/8 of original size. Maybe it firsts loads it optimized in, for example, 1/4 of its original size, and later it does not have "pixels enough" to scale up?