Lajos Juhász

This is the reason I am hoping that there will be a longer then usual beta period for the new release. Even Delphi 10.4.2 still has a large number of problems due to the changes they made (internal errors and Access Violations).

One way I found to achieve this is to use the fact that in the TCustomGrid.UpdateEdit procedure UpdateEditor will set the color of the editor to match the color of the grid: type TCrackGrid = class(TDBGrid); procedure TForm1.DBGrid1ColEnter(Sender: TObject); begin UpdateEditorColor end; procedure TForm1.FDQuery1AfterScroll(DataSet: TDataSet); begin UpdateEditorColor; end; procedure TForm1.UpdateEditorColor; begin if dbgrid1.SelectedField = fdQuery1Color then begin // Here is the code to setup the color of the inplace editor..... if odd(FDQuery1.RecNo) then dbgrid1.Color:=clRed else dbgrid1.Color:=clWhite; end else dbgrid1.Color:=clWhite; TCrackGrid(DBGrid1).InvalidateEditor; end;

You define the manifest for the entire application, if it's implemented correctly for everything even the form designer should be DPI sensitive. Unfortunately we will have to wait for the first authorized posts from the beta testers to learn about it. Let's hope the beta will start soon.

It's on the roadmap as I wrote for Delphi 10.5 (High DPI IDE Support).

Delphi 10.5 should introduce DPI friendly IDE, we have to wait only about 4-6 months to see it.

Jira is the system portal thet is used (from the wikipedia: Jira (/ˈdʒiːrə/ JEE-rə) is a proprietary issue tracking product developed by Atlassian that allows bug tracking and agile project management). It will take user user name, not your e-mail. https://quality.embarcadero.com/secure/Dashboard.jspa Logging in: Use the same account you use for the Registered Products Portal. Note: use your username as opposed to your email address It is listed as "login" in your user account info Create Account or Reset Password via my.embarcadero.com Still can’t log in? Contact support

In Delphi 10.4 the folder in source\tools\FireUIAppPreview contains a source of an application (hint it's LivePreview.dpr not LivePReview.dpk). Where I can find a tool to convert it to a bpl?

Yo can download it from the new portal: https://my.embarcadero.com/

According to the last roadmap there will be no 10.4.3 release, the release will be 10.5 in H2 2021.

Works for me.

You're trying to show the change on the dbgrid while using an event on the dataSource that's is triggered before the selection. You should display the selected rows from the events of the grid. In this case as the selection can be made by mouse or keyboard you could use the events OnKeyUp and OnMouseUp for the grid: procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin UpdateSelectedCount; end; procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin UpdateSelectedCount; end; procedure TForm1.UpdateSelectedCount; begin label2.Caption := 'Count = ' + IntToStr(dbgrid1.SelectedRows.Count); end;

For this you should configure replication on the server IMHO that works best.

Unfortunately no, sometime I also get internal error or Access violation at address 50165C8F in module 'rtl270.bpl'. Read of address 00000000.

It's enough to insert anything between ShowModal and Free that will call an Application.ProcessMessages, for example to show another modal form and oops you get: Project Project1.exe raised exception class EInvalidPointer with message 'Invalid pointer operation'. Something like: procedure TForm1.Button1Click(Sender: TObject); var x: TForm2; x2: TForm; begin x:=TForm2.Create(nil); x2:=nil; try x2:=Tform2.Create(nil); if x.ShowModal=mrOk then x2.showmodal; finally x.free; x2.free; end; end;

No it's not wrong. Sometimes it can result an Access Violation, it will cause no problem if in the meanwhile the handle is not used otherwise you cannot predict the result.

TFileStream is derived from THandleStream and unlike the THandleStream it will close the file in the destructor as I showed in my earlier post, so it's just a try ... finally less to write.

The answer is here, the TFileStream will take over the ownership and close it in the destructor (FileClose will call CloseHandle): destructor TFileStream.Destroy; begin if FHandle <> INVALID_HANDLE_VALUE then FileClose(FHandle); inherited Destroy; end;

Thanks Remy I missed the part that you can give a Handle to the TFileStream constructor. You can replace the file using this code. Of course you've to make sure first the file exists: procedure TForm1.FormCreate(Sender: TObject); var lStrList: TStringList; lfStream: TFileStream; lFileName: PChar; begin lFileName:='D:\temp\0104.txt'; lStrList:=TStringList.Create; lfStream:=TFileStream.Create(Createfile(lFileName, GENERIC_WRITE, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, GetFileAttributes(lFileName), 0)); try lStrList.SaveToStream(lfStream); finally lfStream.Free; end; end;

Please read the posts and think about them before you start a google search and copy some content that has nothing to do with the question and the thread you paste. So what is the relation with you stackoverflow post and System.SysUtils.FileCreate?!

deleted

You're right. A hidden file can be replaced only with a hidden file. Unfortunately you cannot create a hidden file as in FileCreate the attribute is hard coded to be FILE_ATTRIBUTE_NORMAL.

I think is a poorly engineered code for the IDE. As I scanned the code most probably only the initialization section requires the VCL.Controls and for this one: GroupDescendentsWith(TOleServer, Vcl.Controls.TControl); I've no idea where is this used as find in files returns that RegGroups is only used in System.Classes so my guess is that it is for the IDE. Why they polluted the code only to be used in the IDE? Most probably it could be moved in some package used only by the IDE and not pollute user executables. I wonder what @Marco Cantu, @David Millington or @Dmitry Arefiev can publicly say about this case.

I've tested on at 2K resolution, both 100% and 150% working without a problem. Instead of TLMDButton I used TButton (when possible you should report bugs on a standard components so anyone can verify).

In order to get the stack overflow you've to activate the debug the IDE. Create a new empty package. In Run -> Parameters set Host application to C:\Program Files (x86)\Embarcadero\Studio\21.0\bin\bds.exe. Run and click continue for the Debugger exception notifications. When the second instance of the IDE appear open a project and then you can see the stack overflow.

For me also the IDE asked for international characters (looks like the forum likes to insert those ones). Congratulation you managed to make Delphi unresponsive without debugging. With debug I also get: Project bds.exe raised exception class $C00000FD with message 'stack overflow at 0x51ef04f2. :51ef04f2 ; C:\Windows\SysWOW64\msxml6.dll :51f16f2d ; C:\Windows\SysWOW64\msxml6.dll :51f56860 ; C:\Windows\SysWOW64\msxml6.dll :51f296da ; C:\Windows\SysWOW64\msxml6.dll :51f566ea ; C:\Windows\SysWOW64\msxml6.dll :51f18b90 ; C:\Windows\SysWOW64\msxml6.dll :51f18163 ; C:\Windows\SysWOW64\msxml6.dll xmlrtl.Xml.Win.msxmldom.TMSDOMNodeList.get_length xmlrtl.Xml.XMLDoc.TXMLNode.GetIsTextElement :0c1b42ec ; c:\program files (x86)\embarcadero\studio\21.0\Bin\IDELSP270.bpl :0c1b4390 ; c:\program files (x86)\embarcadero\studio\21.0\Bin\IDELSP270.bpl :0c1b4390 ; c:\program files (x86)\embarcadero\studio\21.0\Bin\IDELSP270.bpl :0c1b4390 ; c:\program files (x86)\embarcadero\studio\21.0\Bin\IDELSP270.bpl :0c1b4390 ; c:\program files (x86)\embarcadero\studio\21.0\Bin\IDELSP270.bpl .....cut, here the IDELSP270.bpl repeats 9992 times..... :0c1b4390 ; c:\program files (x86)\embarcadero\studio\21.0\Bin\IDELSP270.bpl :0c1b4390 ; c:\program files (x86)\embarcadero\studio\21.0\Bin\IDELSP270.bpl fmx.FMX.Platform.Win.TPlatformWin.ThreadSync(???) rtl.System.Classes.StdWndProc(1705986,0,0,0) vcl.Vcl.Forms.TApplication.ProcessMessage(???)