Jump to content

alogrep

Members
  • Content Count

    188
  • Joined

  • Last visited

Community Reputation

0 Neutral

Recent Profile Visitors

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

  1. 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
  2. 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?
  3. alogrep

    Stringgrid objects problem

    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?
  4. alogrep

    Stringgrid objects problem

    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?
  5. alogrep

    Cannot get email with image inline

    THanks Olli73. And I found that the error was I did not add the (pure) text before ading the html part. Do you know by the way if Synapse has a way of including a Return-path? It has a Replyto, but I can't find a return-path.
  6. alogrep

    Cannot get email with image inline

    HI. I hoe there si sombody with Synapse experience willing to help. I am trying to send an email with an embedded image. The html is Trichview created. In the richview part, I add the image like thi (MMis the is TMimeMess object from synapse) for i := 0 to HTMLImages.Count-1 do begin MM.AddPartHTMLBinary(HTMLImages[i].Stream,HTMLImages[i].Name,'<'+HTMLImages[i].Name+'>',MultiPartRel); end; in the synpase part I have this funcion (by synapse) function TMimeMess.AddPartHTMLBinary(const Stream: TStream; const FileName, Cid: string; const PartParent: TMimePart): TMimepart; begin Result := AddPart(PartParent); Result.DecodedLines.LoadFromStream(Stream); Result.MimeTypeFromExt(FileName); Result.Description := 'Included file: ' + FileName; Result.Disposition := 'inline'; Result.ContentID := Cid; Result.FileName := FileName; Result.EncodingCode := ME_BASE64; Result.EncodePart; Result.EncodePartHeader; end; So the disposition IS "inline", but the recipient get the image as an attachment. I really have no idea of what "CID" (Content ID) should be, i i just pass "<filename>" Wher filename is the filename of the embedded image.
  7. alogrep

    Exception not caught

    OOps!. I got confused . What happens is this I have this bit of code begin n:=0; d:=100/n; if d>0 then n:=1; dm2.tabstable.indexname:='xyz'; The first error is ignored, no warning, no message. The second error is caught, but it does notshow the call stack, so I do not know WHERE it happens (in this case yes I know, but is a nightmare when it may happen God only know where)
  8. alogrep

    Exception not caught

    Thanks to all. No, the division by zero was an exampte (and a test I actually didi). It is all exceptions (that are not handled) The more critical one is when I set a table to an index name that does not esxist. The app just exit, no wrnings.
  9. alogrep

    Exception not caught

    Hi. It is a few days that the IDE does not catch unhandled exceptions. For example, if i put a line with a division by zero, it just goes on. Before the system caught it and the app stopped after the error message. I have checked for any 'forgotten' Application OnException in my code, but I found none. The settings in Compile and Linking are shown in the attached picture. What else should I check, please?
  10. alogrep

    Can not crate a new project

    HI. Suddenly I am unalbe to create a VCL New Project. When I launch it in the IDE it freezes for a long time. The task manager shows a strange list of proceses (see attached image. This is the project code: (form 3 does nothig, it only contains a stringgrid. Any idea? program Project4; uses Vcl.Forms, Unit3 in 'Unit3.pas' {Form3}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm3, Form3); Application.Run; end.
  11. alogrep

    Formpaint not triggered

    Thanks Remy. Yes and yes. I even reassign it at runtim (Formactivate, set to il then reasign).
  12. alogrep

    Formpaint not triggered

    HI. My Onpaint is never triggered in one form. Any idea as to why this happens?
  13. alogrep

    Partially lost Inactive code opacity

    HI. I had the adventurous idea of changing the Inactive code opacity in Tools->Editor->language->Error Insight from 30 to 40. Immediately any opacity was lost. Then I played around with values (50, 10, 40, et) and now the code inside an ifdef/endif is opaque (if not applicable) but any commented code remains without any opacity.(see attached picture) Any hint as to restore the proper opacity? Thanks
  14. alogrep

    Recovery Problem

    I have this setup but no files are saved in the __recovery directory. Do I need to setup something additionally?
×