Search options (Page 18 of 42)

Great!!!
I'm hoping and praying that we'll have it soon.
I understand not having visual components for plugin libraries.

Hi Derek,

Agreed.
Thank you very much for the alternative........................
Truly appreciated...................................................

Thank you very much for the info.......

Great stuff EHW !!!

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

Perhaps Dmitry can add a ready made splash form component that we can use in not so distant future hopefully. Splash form that's in line of your solution.
♦ Splash form that starts immediately without the wait of app load
♦ And it closes once MVD app loaded (form1)

Hi JB,

Thank you very much.......

I used your code as follows (added missing var for iTimer)

Var Timer, Timer2 : TTimer;
    iTimer : integer;

procedure OnTimer2 (Sender: TObject);       //  On initialise le splash
begin
iTimer := iTimer + 1;
if iTimer > 2 then                     //    The 5 seconds are gone
  begin
    Timer2.Enabled := False;          //  We unload the Timer2
    frmSplash.Close;                     // We close Splash form
    Timer2.Free;                      //  Essentiel : on libère le Timer2
    //Waiting.Show;
    Application.ProcessMessages;      //  To avoid Windows to freeze the application
  end;
end;


begin
  Timer2 := TTimer.Create(nil);             // Pour l'activation de l'écran d'accueil
  Timer2.OnTimer  := @OnTimer2;             // event procedure
  Timer2.Interval := 1000;                             // 1 sec
  Timer2.Enabled  := True;                //  Le Timer est déclenché
  frmSplash.ShowModal;                      //  On affiche l'écran d'accueil
end.

I couldn't understand what Waiting.Show; does refers to?

However, I still see windows progress circle showing for noticeable time though.
What I like to do is splash form shows after as soon as double clicking on MVD app and closes once the Form1 is loaded. In order to achieve this, splash form needs to run straight away, as it's own form without MVD app initialized I'm thinking?

Thank you very much for your kind help Dmitry.......................

I tried to add couple of lines to have cursor turns into handpoint only when there is a link item within a cell

procedure FORM2_TableGrid3_OnMouseEnter (Sender: string);
var ACol, ARow: Integer;
begin
if (Pos('http',  Form2.TableGrid3.Cells[ACol,ARow]) =1) or (Pos('www',  Form2.TableGrid3.Cells[ACol,ARow]) =1)  then
   begin
   FORM2.TableGrid3.Columns[1].Cursor := crHandPoint;
   end;

if Pos('@', Form2.TableGrid3.Cells[ACol,ARow]) > 0 then
   begin
   FORM2.TableGrid3.Columns[2].Cursor := crHandPoint;
   end;
end;

However, it didn't work as usual

Good point.
However, user may just type www.myvisualdatabase.com instead of c/p or type full url http://myvisualdatabase.com/index.html
Plus there are urls with https such as https://www.google.com

If possible best solution would be to include all 3 by making the following line to work:

if Pos('https' or 'http' or 'www', Form2.TableGrid3.Cells[ACol,ARow]) > 0 then

My intention was not to change actual tablegrid. Rather duplicate keyboard and mouse actions associated with the tablegrid such as on the image below.

Adding, editing, deleting and saving tablegrid actions are available via keyboard or mouse clicks.
Delete action works with button already.

I'm still not clear why we cannot add, edit and save via buttons too like with delete button.
Add and Edit buttons are not so important, in fact it's more convenient via keyboard an mouse. However, SAVE button is needed in certain circumstances (as explained on previous posts on this topic)

Hi Derek,

Thanks for the beep sample for manixs.

I have tried to apply it to a field such as:

procedure Form2_TableGrid1_OnClick (Sender: string); 
begin
if not (Form2.ComboBox2.Text = '') then Beep(600,1000);
end;

but couldn't get it working?

What I wanted to do is, if combobox2 contains a value, it'd beep on display of the record, if empty no beep.
Would you be so kind to correct my attempt please?

Thanks a lot Dmitry.....
Done. Now, browsing suppliers records works.

It seems, I'm missing something else.
After clicking on "Manage Suppliers" button on Form1, I get an error message:
"Cannot focus a disabled or invisible window."