Forum > General
Stange behaviour of Lazarus Trunk version
madref:
I recently updated from Trunk Version 998 to Trunk Version 2071
And now I have some strange behaviour.
In the source code nothing has changed but in version 998 (Blue) I get my referees nicely selected as is stored in the database.
BUT in version 2071 (Red) I get (MEMO) on all my referees.
See attachments.
WTF has happend?
jamie:
Well, it's up to Version 2074 now :D
But really, how are we to know? Do those fields get read in from a Database file or some configuration file?
And also, where do the colors get decided on, hardcoded or read from a file?
If they are file related, then I would start looking there.
Bart:
--- Quote from: madref on June 02, 2024, 06:14:07 pm ---I recently updated from Trunk Version 998 to Trunk Version 2071
--- End quote ---
What does that mean?
I don't suppose you "updated" Lazarus to svn revision 2071 :)
Bart
dsiders:
--- Quote from: Bart on June 02, 2024, 10:59:46 pm ---
--- Quote from: madref on June 02, 2024, 06:14:07 pm ---I recently updated from Trunk Version 998 to Trunk Version 2071
--- End quote ---
What does that mean?
I don't suppose you "updated" Lazarus to svn revision 2071 :)
Bart
--- End quote ---
It is the information returned by svn2revision, generated using:
git describe --long --first-parent
main_3_99-2075-g346b890f26
paweld:
(MEMO) appears in controls associated with the ftMemo / ftWideMemo data type. The TDBGrid has a dgDisplayMemoText option whose enabling shows the contents of the cell in the grid. For other controls, you can get around this by setting the OnGetText event for each field:
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TForm1.dbmemoGetText(Sender: TField; var aText: string; DisplayText: Boolean);begin if (Sender.DataType = ftmemo) or (Sender.DataType = ftWideMemo) then aText := Sender.AsString;end; procedure TForm1.FormCreate(Sender: TObject);var i: Integer; begin query.SQL.Text := ' select * from table '; query.Open; for i := 0 to query.Fields.Count - 1 do query.Fields[i].OnGetText := @dbmemoGetText; end;
Navigation
[0] Message Index
[#] Next page