201 Reply by AD1408

(10 replies, posted in General)

Thank you very much Dmitry...........


Truly appreciated..........


I put your example script between last

begin
Form1.Image1.PasteBitmapFromClipboard;
end.

obviously I'm implementing incorrectly as it didn't work.

Go to forum: General

202 Topic by AD1408

(2 replies, posted in General)

When using custom forms for treeview top and child records, I like to hide Treeview right click pop-up menu.
Followings didn't work:

form1.TreeView1.dbpopupmenu.items[0].visible := false;
...........


form1.TreeView1.dbPopupMenu.Items.Find('Add child record').visible := false;
form1.TreeView1.dbPopupMenu.Items.Find('Add top record').visible := false;
form1.TreeView1.dbPopupMenu.Items.Find('Edit record').visible := false;
form1.TreeView1.dbPopupMenu.Items.Find('Delete record').visible := false;

any help please...

Go to forum: General

203 Topic by AD1408

(10 replies, posted in General)

Hi Dmitry,


Came so far to v6... I still love MVD... Please keep up the GOOD WORK.
Isn't it time to add a PASTE button to image component?
I hope you can add this feature very soon as I need it with my current project.


Alternatively, is there a script to add the paste feature to image component that I can use now?

Go to forum: General

204 Reply by AD1408

(6 replies, posted in General)

Hi Dmitry,


Thank you very much...........
Truly appreciated........

Go to forum: General

205 Reply by AD1408

(6 replies, posted in General)

DriveSoft wrote:

Why you use additional field "childName"?
Just use the same field "Name" for child records.


I was trying to separate top and child records so that I could add a child record using custom form with buttons without a success. I still don't know how to do it?

Go to forum: General

206 Reply by AD1408

(6 replies, posted in General)

Hi Dmitry,


Great stuff....
Thank you very much....


Only missing part is replacing system tree child record form seems to be missing.
Tried to explain further with attached image

Go to forum: General

207 Topic by AD1408

(6 replies, posted in General)

1. I like to access treeview right click menu functions such as add /edit via buttons and custom forms.


2. I like to click on top or child record to select a tap page.


However, I cannot... any help please?



Sample project attached.

Go to forum: General

208 Reply by AD1408

(2 replies, posted in General)

Hi EHW,


It worked fine.
Thank you very much...............

Go to forum: General

209 Topic by AD1408

(2 replies, posted in General)

Hi All...


Trying to prevent adding new record without selecting a treeview node. Could somebody correct the following script please?


procedure Form1_btnMainTaskADD_OnClick (Sender: string; var Cancel: boolean);
begin
If (Form1.TreeView4.RowCount > - 1) and (Form1.TreeView4.SelectedRow = False) then
   Begin
   MessageBox('Please select a Tree Node first.','Error',MB_OK+MB_ICONERROR);
   Cancel := True;
   Exit;
   End;
end;

Go to forum: General

210 Reply by AD1408

(2 replies, posted in General)

Hi Derek,

Great stuff as usual..........
Thank you very much.........

Go to forum: General

211 Topic by AD1408

(2 replies, posted in General)

How can I insert
1. Current date
2. Current time
3. Current date and time

with button click event at cursor point in
a. Memo component
b. RTF component
?

Go to forum: General

212 Reply by AD1408

(8 replies, posted in General)

Hi Guys,


Using Derek's solution with slight changes. Usually, that's what I use (workaround) when I want buttons with images (icon)


1. Changed bevel type to have different pressed effect by using 2 panels top each other
2. Added mouse over color to button when mouse moves over to the button label. It can be applied to whole panel (button) instead of just label.

Go to forum: General

213 Reply by AD1408

(8 replies, posted in General)

k245 wrote:

You can pin the window of any application inside the MVD application. See an example for a calculator. It can also be used for the browser.

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    h: integer;
    Max: integer;
begin
      // run calculator
      OpenFile('calc.exe');

      // finding window's calculator
      h := 0;
      Max := 20;
      while (h = 0) and (Max > 0) do
      begin
          h := FindWindow('', 'Calculator'); // find window using caption
          Dec(Max);
          Sleep(50);
      end;

      // move the calculator to the Form1
      if h <> 0 then
      begin
          SetWindowPos( h, 0, 10, 10, 0, 0, SWP_NOSIZE); // set position x=10, y=10
          SetParent( FindWindow('', 'Calculator'), Form1.Handle);
      end;
end;

P.S. It's not work on Win10


http://myvisualdatabase.com/forum/viewtopic.php?id=2957



Thanks a lot guys...
I couldn't use the above script to pin a browser on to a form1 or panel1
I'd prefer pin to panel


Here is a sample project for a kind soul to make it work

Go to forum: General

214 Topic by AD1408

(8 replies, posted in General)

Is it possible to run default web browser on a MVD form?


Not looking for embedding a web browser; just want to run already installed web browser such as firefox, google chrome, opera etc., on MVD form.

Go to forum: General

215 Reply by AD1408

(2 replies, posted in General)

Hi Derek,
As always perfect solution.
Thank you very much........
Truly appreciated............

Go to forum: General

216 Topic by AD1408

(2 replies, posted in General)

I have a tree and table grid for displaying running balance.


What I like to do and couldn't is that each tree items (nods) has their own running balance to display on one table grid.


For instance:
If I select the Main01 node on treeview, table grid should display only Main01  running balance with its transactions;
If I select the Child01 node on treeview, table grid should display only Child01 running balance with its transactions and so on.


Please see the attached sample project, which displays same running balance.

Go to forum: General

217 Reply by AD1408

(2 replies, posted in General)

Thank you very much Dmitry..............
Truly appreciated ...........................

Go to forum: General

218 Topic by AD1408

(2 replies, posted in General)

Is it possible to change RTF Component default font from arial to another font such as Segoe UI?

Go to forum: General

219 Reply by AD1408

(3 replies, posted in General)

Hi EHW,


Thank you very much.....
Truly appreciated............

Go to forum: General

220 Topic by AD1408

(3 replies, posted in General)

frmNotes.edRR.value := ('1 : '(frmNotes.edPipsGained.value)/(frmNotes.edStop.Value));

The above seems to be not correct.
Trying to calc. and display risk:reward as:

1 : 4.6
or
1 : 5
or
1 : 6.45
and so on

Go to forum: General

221 Reply by AD1408

(15 replies, posted in General)

Hi Dmitry,


I have one issue that I cannot solve.
In your example " TreeView change position.zip " treview right click pop-up menu for adding top, child etc item takes us to frmOrg where there is hidden record count field. However, at my end same pop-up menu takes me some default window containing 1 field "Enter value". Without record count field on frmOrg, moving nodes doesn't work.
I'm using MVD 5.6.


Edit:
Sorry Dmitry, It seems that I missed to associate the form via treview form property

Go to forum: General

222 Reply by AD1408

(15 replies, posted in General)

Great stuff Dmitry..................
Thank you very much......................
Truly appreciated..................................

Go to forum: General

223 Reply by AD1408

(15 replies, posted in General)

Hi Dmitry,


For the time being, could you post a sample project that demonstrates moving treeview component nodes up-down with button click event please. At least same level nodes move.

Go to forum: General

224 Reply by AD1408

(6 replies, posted in General)

Hi Dmitry,

Now it works.
Thank you very much.....
Truly appreciated...........

Go to forum: General

225 Reply by AD1408

(6 replies, posted in General)

DriveSoft wrote:

Please attach your project.


Here it's:

Go to forum: General