Jump to content

luciano_f

Members
  • Content Count

    65
  • Joined

  • Last visited

Community Reputation

5 Neutral

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. luciano_f

    When will we have a 64-bit IDE version ?

    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 ?
  2. 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.
  3. 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/
  4. 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
  5. 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
  6. https://sourceforge.net/p/gexperts/bugs/378/
  7. 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;
  8. luciano_f

    Permanently the "Lock Controls" in IDE

    For those who want to fix the bug, the correction was made with CnPack https://github.com/cnpack/cnwizards/issues/181
  9. luciano_f

    How to detect when a Form is active in Designer

    For those who want to fix the bug, the correction was made with CnPack https://github.com/cnpack/cnwizards/issues/181
  10. luciano_f

    How to detect when a Form is active in Designer

    Help exemple IOTAModule.GetModuleFileEditor(0).AddNotifier. ?
  11. luciano_f

    How to detect when a Form is active in Designer

    Exactly my friend, that's right. However, I believe it is possible to solve this problem. I need to know how to create a BPL where I can detect when a Form is opened or active I need to know how to register this TMyFormNotifier = class(TNotifierObject, IOTANotifier, IOTAFormNotifier) protected procedure FormActivated; procedure FormSaving; procedure ComponentRenamed(ComponentHandle: TOTAHandle; const OldName, NewName: string); end;
  12. luciano_f

    How to detect when a Form is active in Designer

    Because I like to work with the controls locked so I don't accidentally click and move components unnecessarily I've been working for a long time, always blocking the components. But I'm tired of always having to deactivate and activate "Lock Controls" every time I open Form it.
  13. luciano_f

    How to detect when a Form is active in Designer

    Using the "Lock Controls" option in Delphi's "Edit" menu I can lock the components, but each Form I open I have to deactivate and activate. This way, I want to create a BPL where I can detect when a form is opened and automatically perform the procedure for deactivating and activating the "Lock Controls" option
  14. How to detect when a Form is active in Designer Guys, I'm posting here because in this area I know that you are the experts in OTA I posted this topic in another area of the forum https://en.delphipraxis.net/topic/10262-permanently-the-lock-controls-in-ide/ When searching I found this link https://www.gexperts.org/open-tools-api-faq/ However, it does not have an example explaining how to register only that: IOTAModule.GetModuleFileEditor(0).AddNotifier TMyFormNotifier = class(TNotifierObject, IOTANotifier, IOTAFormNotifier) protected procedure FormActivated; procedure FormSaving; procedure ComponentRenamed(ComponentHandle: TOTAHandle; const OldName, NewName: string); end; I want to detect when the forms are opened and check if the Menu EditLockControlsItem it is activated and if it is activated I deactivate it and activate it again so I don't have to keep every form I open performing this action.
×