Search options (Page 1 of 44)

Hi Derek,
Thank you very much........
It comes close enough what I was trying to do.
I guess it's complicated to do everything on form1.

Hi Sparrow,

I'm trying to do same thing if we were adding records via second form. Only difference is I like to achieve same thing on same form.
For example, If I select tree node '1111' on form1 tree and add a record, I like it to get listed in tree node '1111' on form1 not in root  (None) of the tree.
Basically, a record added to a selected node on same form, is not showing within that selected node.

There are more fields on actual project. On sample project, I only used one field and not done enabling / disabling buttons and fields which I'll do later.

Hi Sparrow,

Thank you very much for the info.

Thanks... It would have been great if it could be done both. However, what you guys have done truly appreciated...

I got the script you refer. I originally asked to Dmitry for the script - moving nodes on same level.
I get it work sometimes OK sometimes not.

For instance, the attached sample project I couldn't get it working. I checked syntax etc., but couldn't find the cause of failure.

Hi Guys,
Thank you very much for tree nodes drag n drop....
Santa arrived to MVD bit late but still truly appreciated the Gift.....

Hi Sparrow,
Thank you very much for your kind help......

I did as follows and seem it works:

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
OnChange1;
OnChange1b;
end;
//
//
procedure OnChange1;
var i,c: integer;
begin
c := form1.TableGrid1.rowCount - 1;
for i := 0 to c do
begin
if form1.TableGrid1.cells[1,i] = 'Up' then
   form1.TableGrid1.cell[1,i].Color := $0080FF80;

if form1.TableGrid1.cells[1,i] = 'Dn' then
   form1.TableGrid1.cell[1,i].Color := $003E3EFF;

if form1.TableGrid1.cells[1,i] = 'Rn' then
   form1.TableGrid1.cell[1,i].Color := $00B4B4B4;
end;
end;
//
//
procedure OnChange1b;
var i,c: integer;
begin
c := form1.TableGrid1.rowCount - 1;
for i := 0 to c do
begin
if form1.TableGrid1.cells[1,i] = 'Up' then
   Form1.TableGrid1.Cell[1,i].textColor := $0080FF80;

if form1.TableGrid1.cells[1,i] = 'Dn' then
   Form1.TableGrid1.Cell[1,i].textColor := $003E3EFF;

if form1.TableGrid1.cells[1,i] = 'Rn' then
   Form1.TableGrid1.Cell[1,i].textColor := $00B4B4B4;
end;
end;

Hi Derek and Sparrow,
Thank you very much guys for your kind help.............
Truly appreciated.................

Hi Derek,
I knew you could come up with something useful.
Great stuff.
Thank you very much......................

Hi Derek,
All good now.
Thank you very much.

Hi Derek,

Thank you very much for the info you have provided. Very kind of you.
It's shame that MVD cannot save pasted .bmp as a jpg - as I understand. I have nothing against .bmp other than it's larger file size.

Hi Sparrow,
Hi JB,

While dragging is great and does most of the image copying, there are some image sources those are not draggable. Those type of images/graphics etc., Currently, I copy using image capture utility, such as Lightshot then I paste into accommodating apps or save to a local disk then open from there for use in MVD.
I thought it also would be useful to paste the copied image to MVD dbimage if possible.