alogrep

I removed all paths from the IDE library (and Project search path) that where "suspiciouis" or non existing. The problem seems to have gone.

Hello. I am stuck with this very strange behavious. "Gelati" is not defineD anywhare in the App. Now If i have this code, IFNDEF it is entirely "broken". procedure clearalltables; var i: integer; {$IFNDEF GELATI} S: STRING; // not work here {$ENDIF} begin {$IFNDEF GELATI} with dm2, floorplantable do begin //not work here cancelrange; filter:='sta.......... Then if I change the code like this procedure clearalltables; var i: integer; {$IFDEF GELATI} S: STRING; // DIMMED. ifdef WORKS {$ENDIF} begin {$ifdef gelati} s:='???'; // DIMMED. ifdef WORKS {$endif} {$IFNDEF GELATI //Ifndef is IGNORED??? with dm2, floorplantable do begin cancelrange; filter:='status =''T'' or status=''S'''; filtered:=true; And hee even more incomprehensible procedure clearalltables1; var i: integer; {$IFDEF GELATI} S: STRING; // DIMMED {$ENDIF} begin {$ifdef gelati} s:='???'; //DIMMED {$eLSE} {$IFNDEF GELATI} //NEITHER {$ELSE} NOR {iFNDEF WORK ?????? with dm2, floorplantable do begin cancelrange; filter:='status ...' end; {$endif} {$endif} end;

HI I hope someone can shed some light. I can mke it to work I have this code (pseudo) FUNCTION DOTHERPORT; BEGIN {$ifDEF BO} result :=DoCharges(true,-1,false,False,false,lg('CLOSE CHARGES'),'1',dm2.sysdate.fieldbyname('date').asdatetime) {$else} result := DoCharges(sender=Nil,-1,False,False,FALSE,lg(TDsFancyButton(Sender).Caption),'',0,dm2.sysdate.fieldbyname('date').asdatetime); {$endif} END; function selectreport(sender: Tobject); begin if sender = good1 then {$DEFINE BO} dotherport; end; FUNCTION DOTHERPORT; BEGIN {$ifDEF BO} result :=DoCharges(true,-1,false,False,false,lg('CLOSE CHARGES'),'1',dm2.sysdate.fieldbyname('date').asdatetime) {$else} result := DoCharges(sender=Nil,-1,False,False,FALSE,lg(TDsFancyButton(Sender).Caption),'',0,dm2.sysdate.fieldbyname('date').asdatetime); {$endif} END; function selectreport(sender: Tobject); begin if sender = good1 then {$DEFINE BO} else {$define OLD} dotherport; end; I would expect that the line under {$ifdef BO would execute. Instead it goes to the other line. How does $DEFINE work? Thanks.

The IDE keeps freezeng. The event viewer show this erros (repeatedly) Faulting application name: DelphiLSP.exe, version: 29.0.55362.2017, time stamp: 0x67bf9abb Faulting module name: dcc32290.dll, version: 29.0.55362.2017, time stamp: 0x00000000 Exception code: 0xc0000005 Fault offset: 0x00163819 Faulting process id: 0x2638 Faulting application start time: 0x01dbf12428349f04 Faulting application path: C:\Program Files (x86)\Embarcadero\Studio\23.0\bin\DelphiLSP.exe Faulting module path: C:\Program Files (x86)\Embarcadero\Studio\23.0\bin\dcc32290.dll Report Id: c7279363-c4a3-4237-9b9b-6af86a9eca33 Faulting package full name: Faulting package-relative application ID: I am going razy. What can be done to eliminate this error? Submitting reports is of no help, they never answer them.

HI. I have this problem that is becomeming more and more frequent. I got to the point that on each second compile (or building, makes no diferene) it happens. If I exit the IDE immediately I am able do deletee the appliation.exe and restart the IDE. But if i invoke the taskmanager the system freezes and my only option is the shutdown button It is a nightmare. Anybody has any suggestion?

Thanks both. But it still does not work. This is the code. I crated a unit unit myhint; interface uses classes, messages,graphics,controls, comctrls; type TMyHintWindow = class(THintWindow) protected procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN; public constructor Create(AOwner: TComponent); override; end; implementation constructor TMyHintWindow.Create(AOwner: TComponent); begin inherited Create(AOwner); Color := clinfobk; end; procedure TMyHintWindow.WMLButtonDown(var Message: TWMLButtonDown); begin // Close the hint window when clicked ReleaseHandle; end; end. unit myhint; interface uses classes, messages,graphics,controls, comctrls; type TMyHintWindow = class(THintWindow) protected procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN; public constructor Create(AOwner: TComponent); override; end; implementation constructor TMyHintWindow.Create(AOwner: TComponent); begin inherited Create(AOwner); Color := clinfobk; end; procedure TMyHintWindow.WMLButtonDown(var Message: TWMLButtonDown); begin // Close the hint window when clicked ReleaseHandle; end; end. in the dr: Application.Initialize; HintWindowClass:=TMyHintWindow; Then in the form i include myhint.pas. In the FormCreate I crete the control wh:=TMyhintWindow.crete(nil) The wh constructor is executed (the beakpoint is triggered). But when I clkic on the hintt, the procedure TMyHintWindow.WMLButtonDown(var Message: TWMLButtonDown); begin // Close the hint window when clicked ReleaseHandle; end; is not triggered.

Hi I got this neat piece of code froma OpenAI GPT searc type TMyHintWindow = class(THintWindow) protected procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN; end; procedure TMyHintWindow.WMLButtonDown(var Message: TWMLButtonDown); begin // Close the hint window when clicked ReleaseHandle; end; I put the first part in the interface section, the second in the implementation. But the the WMLButtonDown (clic left button, right?) never gets triggered. What is missing to make it work? Also, in case I make it work, I lso have set the timerr to hide it after 2 seconds. In the timere I use wh (The TMyHintWindow control) if wh <> Nil then begin wh.releasehandle. wh.free; wh:=Nil; end. How can I make the same inside the WMLButtonDown event? Thanks very much. wh

OK maybe it wasn't clear. The grid is not shown in the code because is unrelated to that peace of code; A more completa chunk of code: procedure printorder(grid: Tstringgrid); begin linesdone:=''; // SO FAR IT IS OK, STILL '0' prnums:=Tstringlist.create; with dm2 do begin stationprinters.indexname:='number'; stationprinters.setrange([_mycompname,1],[_mycompname,123]) ; stationprinters.first; while not stationprinters.eof do begin prnums.add(stationprinters.fieldbyname('printernumber').asstring); stationprinters.next; end; stationprinters.cancelrange; end; chekqtys; // this is a procedure; ..... .... compactgrid() And inside checkqtys() I manipulate the grid. I do not know why but the problem seems to have disappeared. Just as I do not know why it appeared. Maybe b/c deep inside checkqtys() I had a line where I set the cells[13,row to '1'. (but on certain conditions) But why WAY BEFORE it reached that point the value of the grid was changed?

HI. I have lost 21 hours on this,. I have a stringrid that I need to make a function work correcly. I store a value of Zero in all cells[13,row]. I pass the grid to another function, and right at the beginning of this function misteriousely that value is changed to '1'; This is the code begin linesdone:=''; // SO FAR IT IS OK, STILL '0' prnums:=Tstringlist.create; with dm2 do begin stationprinters.indexname:='number'; stationprinters.setrange([_mycompname,1],[_mycompname,123]) ; stationprinters.first; while not stationprinters.eof do begin prnums.add(stationprinters.fieldbyname('printernumber').asstring); stationprinters.next; end; stationprinters.cancelrange; end; chekqtys; // AS SOON S IT GETS HERE THE VALUE IS '1'; The even strangerthis is that if I comment out the prnums.add(stationprinters.fieldbyname('printernumber').asstring); the value stays to '0'. But then I cannot use the rest of the function, b/c I need the count and the printerindex that need to be used. The stationprinters table has no relation to the stringgrid whatsoever. Anybody has any hint,clue,suggestion,guessing or anything that can help me avoid going crazy?

Hello. I submitted 4 bug reports on Quality Portal. Where/how can I see a response to them? I only got emails telling me the report was received, but I cannot see anything in Quality Portal thats shows the stautus of those reports.

HI I ccompiled my app and got a warning about an SDK that needed to be load. I investigated a bit and I noticed that the Target Platform showd Android64. Has anybody experienced his? Maybe there is a keaboard shortcut that can do this and I inadvertently pressed it? I also experienced a lot of bugs that I had posted on IDE and API (I .... read only IDE..). No answer there but this is wat happens: 1. " error cannot write the EXE" 2. some .ccp file that could not assert something. 3. at times, Stepping through with f8, the IDE stops responding have to trminate and restart 4. not too often, but sometimes the PC just get OTALLY unresponsive. The only way out is the power button!

HI I ccompiled my app and got a warning about an SDK that needed to be load. I investigated a bit and I noticed that the Target Platform showd Android64. Has anybody experienced his? Maybe there is a keaboard shortcut that can do this and I inadvertently pressed it? I also experienced a lot of bugs that I had posted on IDE and API (I .... read only IDE..). No answer there but this is wat happens: 1. " error cannot write the EXE" 2. some .ccp file that could not assert something. 3. at times, Stepping through with f8, the IDE stops responding have to trminate and restart 4. not too often, but sometimes the PC just get OTALLY unresponsive. The only way out is the power button!

HI. Is it only me, or in 12.3 (with patches) there are quite a few bugs? For examples: A) Every second time i make a small change and recompile, I get " error cannot write the EXE" (paraphrased) B) every now and then (more now than then) I get some .ccp file that could not assert something. C) Stepping through with f8, usually after a number of steps. The app,stops responding. I have to get out of the IDE, and restart it. D) This is bad, bad, bad. Not as often as the other problems; this one just freezes the PC. The only way out is the power button! I placed a report on one of the incidents, but I'm not even sure if they got it or not. (Why is it so complicated to send a technical report?)

HI. I receive this error (delphi 12,3): F2051 Unit VCLTee.TeeProcs was compiled with a different version of Vcl.Menus.TPopupMenu I searched for Vcl.Menus.TPopupMenu.* but nothing exists on the PC. I searched all the VCLTee.TeeProcs.dcu on the PC (attached file (tee.txt) The only menus file I got is Vcl.Menus.pas, which I included in the app. I tried various combinations of the vcltee in the search path, but none seems to work. By the way, in C:\Program Files (x86)\Embarcadero\Studio\23.0\lib\win32\release C:\Program Files (x86)\Embarcadero\Studio\23.0\lib\win64\debug what the win32/win64 refer to? The O.S. or the app developed (in 32 bit or 64bit)? Also. i should use the dcu from the debug folder in 23.0 if i am compiling my app in debug mode and the one from the release folder in 23.0 if i am compiling in release mode? tee.txt

HI. This is a mysterious behavior that I had never encountered for decades I have 2 showmessage(), then a messagedlg, then THIS problematic showmessage, a simple showmessage('mymessage').. The vcl.dialogs.pas (line 6940 on 12.3) Result := mrNone; if LTaskDialog.Execute then Result := LTaskDialog.ModalResult; when it gets to LTaskDialog.Execute if shows the message alright but it ALSO makes my custom form visible and I cannot close it in any way. (I must cloe the app) Any idea on how to ovrcome this behavioiur?