Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.


Welcome, Guest
Guest Settings
Help

Thread: Re: VCL.DBGrids.pas - Berlin Update1



Permlink Replies: 0 Threads: [ Previous | Next ]
Jeff Overcash (...

Posts: 1,529
Registered: 9/23/99
Re: VCL.DBGrids.pas - Berlin Update1
Click to report abuse...   Click to reply to this thread Reply
  Posted: Nov 8, 2016 4:51 PM
Amarildo Lacerda wrote:
Attach workround to vcl.dbgrid.pas.

Amarildo Lacerda wrote:
Start new vcl project.... drop one TDbGrid on it... Compile and Run

It will raise an exception: Argument out of range

+ line 2483 of VCL.DBGrids.pas -> if change it to include "if", it will work

function TCustomDBGrid.CanEditShow: Boolean;
begin
if SelectedIndex < Columns.Count then // correct except cause there are no Columns create yet.
begin
Result := (not Columns[SelectedIndex].ReadOnly) and (LayoutLock = 0) and
inherited CanEditShow;
end
else
Result := False;
end;

Edited by: Amarildo Lacerda on Sep 25, 2016 8:32 PM

Edited by: Amarildo Lacerda on Sep 25, 2016 8:44 PM


Canceled due to distributing copyrighted source code. Your first post of how to
change the code is acceptable, please do not post the embarcadero copyrighted
source code in full though. You may not redistribute this code in its entirety.

--
Jeff Overcash (TeamB)
(Please do not email me directly unless asked. Thank You)
Learning is finding out what you already know. Doing is demonstrating that you
know it. Teaching is reminding others that they know it as well as you. We are
all leaners, doers, teachers. (R Bach)
Legend
Helpful Answer (5 pts)
Correct Answer (10 pts)

Server Response from: ETNAJIVE02