Delphi Developers Archive

I am looking for a way to display a very large image a smaller window and have it autoscroll. Why using the Scrollby method works, it isn't smooth. What's the best way to do this?

Hello, when you call TPrintDialog.Execute() you can select a printer and click on the properties button to change the printer's settings...how can I call this second dialogbox directly from my application for the active printer ? Thanks

Project Settings - variable for name of the project In the Project Settings you can use "macros" or variables like $(Platform)\$(Config). Is there a variable for Project Name? I would like all my projects in my project group to output compiled units under the same directory hierarchy like \Units\ \$(Platform)\$(Config)\ but for the life of me, I can't find a macro for "Project Name". I tried $(Name), $(ProjectName) etc but none worked. I looked at the help - which as always is useless and uninformative. So my last resort is asking the community.

What do you thing of this idea I'm using more and more in my code ? instead of writing if (MyObject nil) and (MyObject.Locked) then Exit; I write if MyObject.Locked then Exit; with function TMyObject.Locked: Boolean; begin Result := (Self nil) and FLocked; end; it can also be function TMyList.Count: Integer; begin if Self = nil then Exit(0); ... end: function TMyList.GetItme(Index: Integer): TMyObject; begin if Self = nil then Exit(nil); ... end;

Moved from delphi to .netcore and reactjs for frontend dev & react native for mobile dev. I can say that its so much better to be able to work with constantly updated products that are open source and outperform paid products. For our desktop applications we use Electron to wrap our reactjs application, this ensures that we have consistency between web and desktop. I wish delphi had some way to make beautiful UI's like we can on the web. There's barely any jobs for delphi, If you look at job postings, 90% of them ask for reactjs as a skill. Times are changing and I don't think delphi can keep up with open source software.

Are these menus removed in 10.3 Rio? "The context menus for the code editor tabs and files in the Project Manager now have a "Show In Explorer" menu item, which will show the file's location in Explorer." Left is 10.2 and right is 10.3.

Does this exist in Delphi ? https://docs.telerik.com/devtools/wpf/controls/raddatetimepicker/features/date-selection-modes I want to achieve the same thing with at least VCL controls. Any idea ? https://docs.telerik.com/devtools/wpf/controls/raddatetimepicker/features/date-selection-modes

Hi all. I am trying to install Delphi CE onto an AWS EC2. Windows server. There is no way to install dot Net on these cloud VM our of the box so Delphi CE cant be installed. Havent had time to research a work around yet. Has anyone done/solved this yet? Im travelling soon and need an available anywhere Delphi machine.

Hi Does anybody know how to pass 'end_of_line' (#13#10) to Word document via OLE? TIA

Problem with reading a complete string on a serial port Dear all. I have a problem with a reading a string on a serial port. I can send string, send character, read character but I can't solve reading of complete string. I have two similar functions in a unit for reading from a serial port: function TPLC_Comm.ReadStr(var S: String) : Boolean; var TempArray : array[1..255] of Byte; Count, RX_Count : DWord; begin S := ''; ReadFile(Com, TempArray, 255, RX_Count, nil); for Count := 1 to RX_Count do S := S + Chr(TempArray[Count]); Form_Glavna.Edit_ToPrint.Text := S; if length(S) > 3 then Result := True; end; function TPLC_Comm.ReadChr(var C: Char) : Boolean; var RX_Count: DWord; begin ReadFile(Com, C, 4, RX_Count, nil); Result := (RX_Count=1); end; So in Execute for reading a character I do something like this: Repeat If ReadChr(Ch) then Begin IF (Ch=$#06) then ...( do something); If (Ch=$#15) then ...(do something2); End; Until (Ch in [$#06, $#15]; This work...

Is there a function to retrieve the statistical polynomial trend in Delphi ? I cannot find it. Thank you Lars Fosdal I just realised the comments were disabled :-(

Hello, I am going to uninstall 10.1 in my machine because I want to install 10.3 community edition. I have read online that when you install the IDE, it "pollutes" your system's registry (with a lot of entries/keys). How do I clean that? I think that the simple uninstall won't clear the registry entirely...

I'm having serious problems with the license registration. Have submitted a support case this morning but did not get a reply yet, and now it is weekend. Perhaps someone here has ideas? The urgent issue that I have now is: I registered my Delphi license, the License manager says it activates Delphi 10.1, 10.2, 10.3 (and more), is valid until 31-Dec-2018 etcetera. That looks in order. However, when I press the Done button there, I get: "No valid license information found for Empbarcadero Delphi 10.3. (...)" and then, "You are not licensed to use Embarcadero Delphi 10.3". Hm. Not good. But there's more: The same happens when I start Delphi 10.2 Tokyo, the version that I have been using until I downloaded and installed 10.3 Rio (this morning). This is bad! What happened before: I have been having trouble getting Android development to work in my 10.2 IDE. I hoped that 10.3 Rio would solve this. I downloaded, installed and registered Rio this morning. First with...

There's something that's not clear to me. Talking about community edition, when the 365 days will be gone, will it renew automatically? Or then you will have to pay to keep using community? I am going to download CE but if it will become unavailable after 1 year I can't find a reason to get it (at least for me)

How to pass OLEVariant to VBA on Excel for Mac? I'm using Delphi write dylib, and VBA load the dylib. But I cannot pass data through OLEVariant

Hello, I am very interested in Delphi 10.3 and I want to get it for free. I am going to download community edition but I have given a look at this page: https://www.embarcadero.com/products/delphi/product-editions I see that "Build database apps with client/server connectivity" has no ticks next to it. - Does this mean that I cannot use services such as the amazon AWS components? - Or/And this means that I cannot use REST Components? But still I should be able to use internet connectivity (for example with Indy), am I correct? Thank you! https://www.embarcadero.com/products/delphi/product-editions

Can you test this with TDatetimePicker on something else than Windows 7 ? Put a DTP and a Memo on a form set the DTP OnChange event to log its date in the memo procedure TForm1.DateTimePicker1Change(Sender: TObject); begin Memo1.Lines.Add(DateToSTr(DateTimePicker1.Date)); end; when I select a date, the OnChange event is fired twice. Worst, if you set Min/MaxDate properties and you click on the dropdown calendar, the OnChange event is fired twice and, the first time, the Date value is the MaxDate ! I've found a workaround, can you test it also ? type TDateTimePicker = class(Vcl.ComCtrls.TDateTimePicker) private FIgnoreChange: Boolean; public procedure WMNotify(var Msg: TWMNotifyDT); message WM_NOTIFY; procedure Change; override; end; procedure TDateTimePicker.WMNotify(var Msg: TWMNotifyDT); begin if Msg.NMHdr.code = MCN_SELCHANGE then FIgnoreChange := True; inherited; end; procedure TDateTimePicker.Change; begin if FIgnoreChange then FIgnoreChange...

Maybe this is impossible, as far if using the own Delphi controls is already not so easy, but there you go: - A client asked a simple webbrowser app to use his site that was made to fit on smartphones and the issue is there is some few forms the site uses that, of course, the keyboard will display on top, so the main question would be if is possible to scroll up the page, so the field is not obfuscated? I am using the TWebbrowser and Tokyo version. Any trick to programmatically scroll the browser?

Array of const to database and back I've made some research but didn't found anything related to this. What is the issue i'm facing: old application was using lots and lots of routines in order to use Format function and have arrays of const as parameters. Formated strings were stored in a database. Now I need to split those strings in 'unformatted' text and the arrays of const used to format the strings. The problem I have is that I couldn't store the array of consts in a string or stream field. How can be an array of const can be stored in a field and builded back again from database? Any hints are appreciated

Trying to use Graphics32 in Delphi CE. Anyone know how? I have tried the suggestions from here: https://www.experts-exchange.com/questions/28754439/Graphics32-under-Delphi-10-Seattle.html https://www.experts-exchange.com/questions/28754439/Graphics32-under-Delphi-10-Seattle.html