

alogrep
Members-
Content Count
200 -
Joined
-
Last visited
Community Reputation
0 NeutralRecent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
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
-
showmessage('mymessage') opend 1 of my forms that cannot close unless i exit the application
alogrep posted a topic in VCL
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? -
Thank you all. I came up with another solution, wich seems to work The objects are either integer (very low, from 1-8)) or a typed (defined) object. So I do this: s:=''; try s:=objects[c,r].classname; // only the integer objects do not have a classname except end; if s<> '' then objects[c,r].free Anybody sees some unseen problem with this?
-
HI. I have some stringgrids that use objects. For most of them the object is simply an integer (MySg.objects[c,r]:=Tobject(mynumber);; A few use complext object that I declare and assign a Create/destroy consctructor/desctuctor. Now when i try to delete an object of the "comples type" all works fine: the destructor takes care of it.. If i do if assigned(MySg.objects[c,r]) then MySg.objects[c,r].free On the Integer type, I get an AV exception. Perhaps the integer type object does not need to be freed. But then how do I inpect if the object is of integer type or not? MySG.objects[c,r].classname gives me a "not acessible" message. Any helop, please?