luciano_f

The forum has been offline for a while, and that's a problem because there was a lot of information.

One question: Can the 64-bit IDE generate 32-bit Exe ? If it can't, will it be able to do so in the future and next versions ?

He emailed me back and said he's already working on a version for Delphi 13, but the 64-bit IDE version will be released later. I love MadExcept, I've been a licensed customer for a while, and I don't like Eurekalog. Long live MadExcept

Thank you very much It works 100%

The original example doesn't work; when resized, everything turns black. See the example and attached video. DimPanel Video.7z

How do I make this new component work? I tested it this way and it doesn't appear. TransparentPanel := TDimPanel.Create(Self); TransparentPanel.Parent := Self; TransparentPanel.Alpha := 140; TransparentPanel.Left := 0; TransparentPanel.Top := 0; TransparentPanel.Width := 300; TransparentPanel.Height := 300; TransparentPanel.DimColor := clBlack; TransparentPanel.Visible := true; TransparentPanel.Active := True; Demo attached Demo.7z

What I need is a way to refresh the panel. If I place the panel to cover the entire form and then resize the form, I don't know how to refresh the panel. Can you show me an example of how to refresh the panel? What could I put in the form's OnResize event to update the Panel ? Resize; // It doesn't work UpdateBitmap; // It doesn't work VisibleChanging; // It doesn't work .

Resurrecting the topic If I resize the form and then run "VisibleChanging" everything will turn black. The "VisibleChanging" method doesn't work. PanelTrans.7z

Click on Edit1 and press Enter to see Edit2 without the cursor. Some customers complain that the system loses its cursor. I don't know how to replicate this, so I created an application that simulates this incorrectly. See this example. I know how to solve the problem, which would be not displaying the fade-out screen. However, the idea of my example is just to simulate the problem. Suppose I don't know that it's the fade-out screen that's causing the problem. How could I solve it ? Going to another control and back is a terrible solution because the other control might have code in the OnExit example that would trigger it, among other problems. I tried using ProcessMessages or Update on the form, but I didn't find a solution. Can anyone help me ? Lost cursor.7z

I think my colleague misunderstood. OnExit/OnEnter isn't the cause of my problem. The modules that have the problem don't use these events. However, I created the demo project on this forum simply because it was the easiest way to demonstrate the problem. In my ERP, this loss of focus issue is random and has been occurring for a while. Since I'd already learned about the possible causes some time ago, I eliminated all OnExit/OnEnter events from the entire software. However, the problem continues to occur this way. I need a way to eliminate it when the problem occurs.

My friend, did you understand what I've been saying all along ? My software is large, and I don't know where the problem lies. The problem occurs randomly in several places, but the modules where the problem occurs are huge, with over 20,000 lines each. I don't know if the problem is caused by an "OnExit" event. What I did here on the forum was just a simulation to demonstrate this problem of loss of focus in the VCL.

I don't know what's causing the problem. My software is very large. I just simulated the problem, but I don't know if the problem is in the one exit event, as the problem is random. Your codes don't work. Test them with my example, and you'll notice that focused always returns true.

And how do you identify that you don't have the focus to put a code that sends the focus to another control and then returns to it ?

Is there any way to know when a controller has lost its Caret ? Based on that, I could create code like this postmessage(handle, WM_NEXTDLGCTL, 0, 0); postmessage(handle, WM_NEXTDLGCTL, 1, 0); only when the problem occurs.

How could I create a global code for the entire system using my colleagues' approaches? Something like this Procedure P_SetFocus(Control : TWinControl); Begin // How could you help? End;

I have a version 10.2 license and I have problems with low memory when compiling a large application. I tested version 11.3 and the problem is the same. When will Embarcadero be ashamed and make a robust 64-Bit IDE? I'm already thinking seriously about Lazarus I already made this post Friends could also do the same thing, who knows, everyone asking for the same thing and giving could speed this up. https://quality.embarcadero.com/browse/RSP-42372

but this is just the improved Copiler for 64 bits. Has anyone already installed this version and can you confirm if it is the 64-bit IDE ?

See this example below. No configuration can solve this problem The problem is that the Procedure "P_LoopActive" has no margins and is glued to the left Procedure TForm_MenuPrincipal.P_ActiveUDPServer(Op: Integer); Var PortaUDP: Integer; Var fThread_UDPServer: TThread; Begin fThread_UDPServer := TThread.CreateAnonymousThread(Procedure Procedure P_LoopAtive; Var I: Integer; Begin PortaUDP := vPorta_Refresh; For I := 1 To Count_SessionWindows Do Begin Try Server_Refresh.Active := False; Server_Refresh.DefaultPort := PortaUDP; Server_Refresh.BroadcastEnabled := True; Server_Refresh.ThreadedEvent := False; Server_Refresh.Active := True; break; Except On E: Exception Do Begin // Não dar erro aleatorios no Terminal Server Inc(PortaUDP); FreeAndNil(Server_Refresh); Server_Refresh := TIdUDPServer.Create(self); Server_Refresh.OnUDPRead := Server_RefreshUDPRead; P_LogException(E); End; End; End; End; Begin If Op = 0 Then P_LoopAtive; If Op = 1 Then Begin Try Server_Refresh.Active := True; Except P_LoopAtive; End; End; End); fThread_UDPServer.FreeOnTerminate := True; fThread_UDPServer.Start; End;

Hello everything is fine. Was my colleague able to analyze it ? I'm having to use Delphi's native Formated but it's very slow.

I use it a lot but your editor is horrible, how could I generate a new bpl and make some changes including saving the size and position What is the pas file and the dfm? How could I reregister the editor when clicking on the component ? I want to do something similar to what I already did with

Up

How could it not be if I already did this with the help of people here on the forum. https://en.delphipraxis.net/topic/10246-how-to-change-the-tvirtualimagelist-editor/

Attached is a demonstration project When pressing "CTRL + Space" twice the second time will not show "Procedure _Start;" Could this be an old bug ? How could I change this unit "LF.Funcao.pas" so this doesn't happen ? https://mega.nz/file/0yJnxCQC#u2pYiVzd_TIm9I50Kr4zB9Ub79fh4eoGFl05mdHrJEg Embarcadero® RAD Studio 12 Version 29.0.51511.6924

https://sourceforge.net/p/gexperts/bugs/378/

Every form I open I have to deactivate and activate "Lock Control" again. Is there any tool or way to do this automatically ?