pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

JvclLaz: Improve usability of the JvDBTreeView at designtime.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8182 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-12-17 16:34:48 +00:00
parent f70da64217
commit ca31a5f9db
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/jvcllaz/run/JvDB/jvdbtreeview.pas
View File

@ -658,9 +658,8 @@ procedure TJvCustomDBTreeView.LinkActive(Value: Boolean);
begin
if not Value then
HideEditor;
if not AllFieldsValid then
if (not AllFieldsValid) and (not (csDesigning in ComponentState)) then
Exit;
//if ( csDesigning in ComponentState ) then Exit;
if ValidDataSet then
begin
RefreshChild(nil);
@ -704,6 +703,8 @@ var
cNode: TTreeNode;
fbnString: string;
flt: String;
lItemField, lDetailField: TField;
begin
// CheckDataSet;
if not ValidDataSet or UpdateLocked then
@ -711,6 +712,9 @@ begin
Inc(FUpdateLock);
with FDataLink.DataSet do
begin
lItemField := FieldByName(FItemField);
lDetailField := FieldByName(FDetailField);
BK := GetBookmark;
try
DisableControls;
@ -747,14 +751,14 @@ begin
First;
while not Eof do
begin
fbnString := FieldByName(FDetailField).AsString; // avoid overhead
fbnString := lDetailField.AsString; // avoid overhead
if FUseFilter or
(((ParentValue = Null) and
((fbnString = '') or
(Copy(Trim(fbnString), 1, 1) = '-'))) or
(FieldByName(FDetailField).Value = ParentValue)) then
(lDetailField.Value = ParentValue)) then
begin
with Items.AddChild(ANode, FieldByName(FItemField).Text) as TJvDBTreeNode do
with Items.AddChild(ANode, lItemField.Text) as TJvDBTreeNode do
begin
FMasterValue := FieldValues[FMasterField];
if FIconField <> '' then