JohnLM

@ david - Yes. But the one's I've found (on google) are just random links I find and peek at but are not in a clean layout and not standard. And the link for the official 12.0 webpage does not list 'bug list report' or whatever its reference search naming is, during searches. https://docwiki.embarcadero.com/RADStudio/Athens/en/Main_Page

@Vandrovnik - thanks, I was wondering if there was a resource like this one.., and the rest (for previous versions) for that matter.

@Anders Melander Yep. I agree. I just didn't like the code name Yukon to be the product name and I thought that was going to be the name. But when I saw it given as Athens, I thought that was at least a better one.

Thank you! I am excited. I am looking forward to finding out what features have been added/enhanced/etc. Since I did not look at the feature list or video(s) (I don't know where it would be if one is posted) I am hoping for one in particular feature, though I doubt it will be in the 12 Athens. So far I have two installs: a 4gb laptop with win10 and 6gb laptop with win7. I mainly use the win7 laptop for this Delphi hobby. Both work fine with no known issues so far. But I would like to leave what I have installed already, but install 12 Athens on a recently purchased 6gb Chuwi 10.1" Hi10 1200x1920 intel celeron N4120 (gemini lake cpu) tablet https://www.ebay.com/itm/185886279327. - and/or possibly another new 8gb laptop 1920x1080 (icelake cpu). By the way, I do like the name they gave this one.

Hi. I'm looking for confirmation. When I purchased 12.2 Alesandria on November 11, 2022, I was told that 11.3 would be free as part of my subscription, which runs out in a few days. And now 12.0 Athens is here and available for download in "My Downloads" and still within my subscription period. So my understanding was that I would be entitled to 11.3 when it was to come out, and it did, a few months after my purchase, but I did not obtain/download 11.3 because I felt it did not have features/enhancements enough to interest me in installing it. Under "My Downloads" I see a link for ("RAD Studio, Delphi, C++Build 12.0 ISO", 7.12GB, 2012-11-07) I have not downloaded it because I am not sure that I am entitled to it. If I am entitled to download it, then I will update my subscription. So, I am asking for clarification on the download and subscription.

I finally found the method I've used for this process, using this method below and is also simple and quick, just a few ms two copy a 50k source, win7 laptop. This code snippet is from a small test project I made while learning some database processes. I have to grids, an sqlite (sqlitetable1), and a tfdmemtable (mtable2). This copies from the sqlite db/grid to the memtabble/grid. mtable2.Active:=false; mtable2.FieldDefs.Assign(SqliteTable1.FieldDefs); mtable2.Data:=SqliteTable1.Data; mtable2.Active:=true;

Using a string grid, (but I may also use a dbgrid later) how do I get the *column* number when I right-click on a column ? I've searched around but could not find the answers. Below, shows column 2 was right-click-selected. The purpose of this is to allow me to right-click on a column and a pop-up menu with options for (copy_column, create_table) will show. 1. I want to copy the text of the column to the clipboard. 2. or, create a table out of the selected column's text. (I know how to do these parts.) TIA

@Remey - your improved code snippet version is working much better than mine, thank you. It even captures my right mouse click.

Right now, I am focusing on getting the highlighting to work properly. I am able to do the following: 1. obtain the column number. 2. highlight the column in question (all cells including the header) (but that only works if I click the stringgrid cells, not the header--I want the header to be the initiator) But the above {2} is buggy. At program startup, the stringgrid highlights for column 0 (the fixed header section). The other issue-1 I am having is that I can only get the highlighting to work if I use the left mouse button. The stringgrid seems to ignore the Right-button click. No action is taken. And, issue-2 is that I cannot initiate the highlight when I click on the top fixed row header area. I need to be able to click that part only, not the cells. if button = TMouseButton.mbLeft then // success, but: if button = TMouseButton.mbRight then // fails I guess will have to first use .mbLeft, and then do .mbRight for the popup part. I will have to work that out if that is the route I will take. Here is the complete code that I managed to get working, though a bit buggy. I have to work out the pre-highlight it does on the fixed row header part at startup. There should be no highlighting at startup, not unless I click on the top fixed row header column. implementation var r,c: integer; MRect: TRect; ... procedure TForm1.sg1SelectCell(Sender: TObject; ACol, ARow: Integer; // sg1=stringgrid var CanSelect: Boolean); begin r:=arow; c:=acol; end; procedure TForm1.sg1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var Button: TMouseButton; begin if button = TMouseButton.mbLeft then // but .mbRight fails if (acol=c) then begin sg1.Canvas.Brush.Color:=clblue; sg1.Canvas.FillRect(rect); end; end; procedure TForm1.sg1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if button = tmousebutton.mbLeft then begin sg1.Invalidate; mrect := sg1.CellRect(c,r); sg1drawcell(self,c,r,mrect,[]); // TGridDrawState = set of (gdSelected, gdFocused, gdFixed, gdRowSelected, gdHotTrack, gdPressed); sg1.Canvas.Brush.Color:=clblue; sg1.Canvas.FillRect(mrect); end; sg1.Invalidate; end;

I believe I have to do the highlight steps in an .MouseDown event of the stringgrid. If down, then highlight, and then during the .MouseUp, do/show the pop-up menu.

Actually, to be more precise, I want the whole column to show as highlighted and then show the pop-up menu.

@Achim - your technique works for the stringgrid as well, thanks. However, before I found your code above, I also found this method to obtain the col/row values with this code: var i: integer; ... procedure TForm1.sg1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin i:=acol; edit1.Text:=inttostr(i); end; But my problem is trying to simulate the same as visually depicted in my original photo posted earlier.. if I right-click column 2, it would show like in the photo) and then I would call the popup menu, also shown in the photo.

Specs: Win7, Delphi 11.2, VCL I wrote some functions to convert string to byte and byte to string. These functions work. For testing, I added several tbuttons and a memo on the form and began testing my ideas shown below. function str2byte(str: string): TBytes; begin setlength(str,length(str)); result := TEncoding.utf8.getbytes(str); end; function byte2str(byt: TBytes): string; begin result := TEncoding.ascii.getstring(byt); end; usage: procedure TForm1.Button1Click(Sender: TObject); var strs: string; bytes: TBytes; begin bytes := str2byte('ABC'); // string strs := byte2str(bytes); // bytes memo1.Lines.Add(byte2str(bytes)); // show it strs := byte2str([68,69,70]); // bytes bytes := str2byte(strs); // string memo1.Lines.Add(byte2str(bytes)); // show it end; Now, I'd like to extend that to include an additional parameter to the encoding format (ansi, ascii, utf-16-big-endian unicode, utf-16 unicode, utf-7 and utf-8) as found here: https://docwiki.embarcadero.com/Libraries/Alexandria/en/System.SysUtils.TEncoding (And then later, possibly extend upon it by building a class component of it (and other library functions/procedures that I build)). The issue I am having now is how to give the parameters their name. I do not know if there are already built-in types for these and don't want to cause issues later on. But so far, I thought about using these: (_ansi, _ascii, _utf7, _utf8, _utf16be and _utf16u). Or, maybe create an enumerated list, i.e., type TMyEncoding = (_ansi, _ascii, _utf7, _utf8, _utf16be, _utf16u); And rewriting the above output snippet: type TMyEncoding = (_ansi, _ascii, _utf7, _utf8, _utf16be, _utf16u); function _byte2str(byt: TBytes; enc: TMyEncoding): string; begin case integer(enc) of 0: result := TEncoding.ascii.getstring(byt); 1: result := TEncoding.ansi.getstring(byt); 2: result := TEncoding.utf7.getstring(byt); 3: result := TEncoding.utf8.getstring(byt); // ... end; end; procedure TForm1.Button4Click(Sender: TObject); var strs: string; bytes: TBytes; begin bytes := str2byte('_ansi'); // string strs := _byte2str(bytes,_ansi); // bytes memo1.Lines.Add(_byte2str(bytes,_ansi)); // show it // strs := byte2str([68,69,70]); // bytes // bytes := str2byte(strs); // string // memo1.Lines.Add(byte2str(bytes)); // show it end; So I am looking for some advice/suggestions on how to implement the names for each of the encodings that will not interfer with Delphi's built-in names. TIA.

@ jonnyg - you are correct. I got side-tracked. The days of doing a fresh install on that win7 laptop are long gone now. I have too many large apps installed and other complicated issues that prevent me from doing that and is also the reason I have another laptop or two. They are all win10. I will eventually replace this laptop with one of those. I'm just not ready nor in any rush to make that happen as yet.

@ jonnyg - I have a Windows 10 laptop 64GB (eMMC) and 4GB of ram, and with Delphi 11.2 installed and running fine. I had stopped using it because it ran down my remaining hdd (eMMC) space down to about 400mb, but recently I learned that I regained some of it back and now have 2.5GB space left, more than enough to continue my small casual Delphi hobbies. I use my win7 laptop as my main workstation. It has XE7 and D11.2 on it. I sometimes run both side-by-side when necessary. I have no problems with D11.2, except for that recent rare occasion I just mentioned in my previous post.

Specs: Delphi 11.2, Win7 My experience thus far with D11.2 under Win7. . . I have worked in Delphi for many years. I can't remember ever having the IDE crash (or freeze) on me, ever until I started working with Classes and Generics. Granted, I am new to that area. But we all have to start somewhere, and crashes/freezes will happen when using advanced areas of coding. Now that I am in the classes and generics area of programming I am finding that the IDE will crash or freeze often, though mostly in access violation territory while closing the app as I learn, etc. For example, yesterday while testing some code, the IDE froze and was unresponsive. And I could not close down the faulty app in Task Manager. After 10 minutes of frustration, I learned that the DSP had crashed (it was showing 25% usage on my win7 laptop in Task Manager--the 25% CPU value is the default value for when an app or something for that matter has crashed or become unresponsive) I could not do anything in Delphi and/or the App in question until I killed the process for the DSP. Then, I had to shut down Delphi and reload that project. in my unique case, I discovered that Delphi 11.2 no longer works properly with the Class/Generic app I was working with. It constantly crashes with access violations. In order to resolve this, I have to shut down my laptop completely. It would not be such a problem if my laptop did not take 40 minutes to boot up--a situation that I have not been able to figure out how to resolve.--it used to boot up in under a minute when brand new. I don't know where nor when exactly this long boot-up started. Anyway. So crashes like this I can't afford to have with a 40-minute bootup every time I encounter this sort of major Delphi crash. But this type of crash is difficult to document exactly how it happens in Delphi.

Yes, this is for process and learning. I am learning about how to build Classes and Generics, and this idea came to me and I went with it to see how far I would get.

Ah, I knew about the 'not' and used it in similar situations but not used often enough to remember exactly in this case.

I learned something new. This works as described..,, minimal code and easy to follow. I added an addition in case I were to want a toggle type set of on/off controls for certain situations, but slightly more code: for var btn in [Button1, Button2, Button3, Button4, button5] do if btn.Enabled = true then btn.Enabled:=false else btn.Enabled:=true;

I don't know if the OP (or anyone else) are aware of this website for checking files/URL's for nasties, but I use it a lot. It uses many vendors. It might be useful for others here. http://www.virustotal.com/ So, I just uploaded a test file I compiled in Delphi 11.2 to this site to see the results I would get. It reported 2/62 or 2 out of 62 scans and reported the results, below.

In Delphi 11.2, you can change the ComboBox dropdown width using: .DropDownWidth := width, but it is also in the Object Inspector window. And, .AutoDropDownWidth is a boolean, and also in the Object Inspector window. If true, then the width of the cbx will be whatever is the largest text inside the dropdown. When set to false (which is its default), the standard default width is used.

I prefer my nested if/then/else code in this block format as this gives me the least ripples=visual noise, and I have done the same with for/loops, since the days of old (Delphi 6 and earlier). procedure begin if condition then begin ... ... end else begin ... ... end; end; procedure begin if condition then begin ... ... end else if condition then begin ... ... end; end; procedure var r,c: integer; begin for r:=1 to 10 do begin ... ... for c:=1 to 100 do begin ... ... end; ... ... end; end;

I have been searching via google but not turned up any answer to this. 1. Say I have multiple files of similar text and I save them. 2. Then, when I load (or open) any of those text files in TMemo, I want to maintain the last screen layout (line) within the dimensions. I am comparing structures of column (hex/ascii) data in these text files and if I am in the middle of the file in the tmemo and I decide to load another file to quickly compare back/forth with, I want the layout the remain the same but not start from the top of the text file. I know I have to save the last topmost line in a variable but I don't know how to go further in this. TIA. Fig A - this is the layout that opens by default for every load. But I want Fib B if I am scrolling down and stop and decide to load another file. Fig B - if I open at the last layout position this is what I want to see.., not Fig A.

Hi. I had found something that works (but does not account for the cursor at this time) but had not the time to post back how I did it. But I will read/consider your method as a possible option, thank you. The method that I have been testing is below. I have a [Load] button that loads streams that I save using the sfBinary format of TStream/TMemoryStream. var form1: TForm1; topline: integer=0; ... procedure TForm1.btnLoadClick(Sender: TObject); begin if mem1.Active then begin mem1.LoadFromFile(txtFilename.text,sfjson); // store the top line of memo into global var on load TopLine := memo1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0); end; btnbufArray.Click; // process array into hex and ascii code and show in memo1 // now, if at any time I was in the memo and scrolling up/down and TopLine > 0 then I update the memo's viewing position. if TopLine > 0 then begin SendMessage(memo1.Handle, EM_LINESCROLL, 0, TopLine); end;

I am a beginner just learning a few things about Stream, how to Write and Read from it. For instance, given the code snippet below, I can write and read a text string into a TEdit. This is bare basic without Try/Finally. * code snippet extracted from one of my projects. var s: string; procedure TForm1.btnStrToStreamClick(Sender: TObject); // save/write to a stream begin s := 'this is a test.'; strmSize := length(s); // 15 chars strm.Write(s, strmSize); end; procedure TForm1.btnStrmToStringClick(Sender: TObject); // load/read into a tedit control begin strm.Read(s, strmSize); // read back the 15 chars eb2.Text := s; // show in tedit control end; I was wondering how FireDAC's tmemtable stores the data when the user uses the memtable.SaveToStream method. I am asking because I would like to Paste some data into a dbgrid. I don't mean to past it directly into the dbgrid. I mean to pass the data in the clipboard into a stream that a TMemTable can deal with via Streams. A lot of times when I have various sources that I copy/select from (web page selections, notepad, excel, ms access, etc.) and I would like to just Paste it into a dbgrid via the database memtable The process flow would go something like this: (selected data -> clipboard -> [custom format/structure for dest] -> a stream -> database -> viewing control ie dbgrid) So, I would like to know if anyone knows what the structure used in the .SaveToStream is, so that I can build the same and send the clipboard contents over to it.