Search options (Page 1 of 36)

Hello Salavatore
Oups ! You've forgot to join your project.
What do you mean by "using a specific guide".
To use the scripts, you must first activate the dedicated button (fourth button from the left on the toolbar)
But I think you already know that.
JB

Oups I've forgotten the snippet
JB

Hello Emmanuel
Welcome to the world of MVD.
With MVD, you can get (and succeed) almost anything you want.
In the case that brings you, I don't think I'm wrong in thinking that you have never started anything in MVD to solve your case.
So can you provide us with some information on the base that you have already built: excel file of the data to be processed, a sketch of how you plan to represent this in MVD, if we need to consider future additions, modifications or deletions, etc ... that kind of thing?
The more information you give us about your project, the easier it will be for forum users to help you.
Good luck
JB

Hello Destiny,
Have you also installed your font in the Windows fonts folder?
If not, click on the name of your font, Windows will present it to you and offer to install it (via the Installer button).
Is your font a TTF?
PS:
Ah Crozon!
I know it perfectly, being from Ar Faou.
JB

Hello Destiny

If by changing MVD font you mean permanently changing the default font used by MVD, you edit the MVD XML file and replace the default font with this code:

// Open the forms.xml file in any text editor and replace
FontName = "Tahoma" FontSize = "8"
with
FontName = "Segoe UI" FontSize = "9"
// Just in case, save a copy of the forms.xml file

If you mean to allow the user to choose the font (nd save it in Register) for his project, you do this:

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.GridEmployees.Font := LoadFont;
end;

procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
var    FontDialog: TFontDialog;
begin
    FontDialog := TFontDialog.Create(Form1);
    FontDialog.Font := Form1.GridEmployees.Font;
    if FontDialog.Execute then
    begin
        Form1.GridEmployees.Font:= FontDialog.Font;
        Form1.GridEmployees.dbUpdate;
        SaveFont(Form1.GridEmployees.Font);
    end;
end;

procedure SaveFont(Font: TFont);
var   reg: TRegistry;
begin
     reg := TRegistry.Create;
     reg.Access := KEY_ALL_ACCESS;
     reg.RootKey := HKEY_CURRENT_USER;

     if reg.OpenKey('software\YourProjectName', true) then
     begin
          Reg.WriteString('Font.Name', Font.Name);
          Reg.WriteInteger('Font.Size', Font.Size);
          Reg.WriteBool('Font.Style.fsBold', fsBold in [Font.Style]);
          Reg.WriteBool('Font.Style.fsItalic', fsItalic in [Font.Style]);
          Reg.WriteBool('Font.Style.fsUnderline', fsUnderline in [Font.Style]);
          Reg.WriteBool('Font.Style.fsStrikeOut', fsStrikeOut in [Font.Style]);
          reg.CloseKey;
     end;

     reg.Free;
end;

function LoadFont: TFont;
var   reg: TRegistry;
begin
     result := TFont.Create;
     reg := TRegistry.Create;
     reg.Access := KEY_ALL_ACCESS;
     reg.RootKey := HKEY_CURRENT_USER;

     if reg.OpenKey('software\YourProjectName', true) then
     begin
          if reg.ValueExists('Font.Name') then result.Name := Reg.ReadString('Font.Name');
          if reg.ValueExists('Font.Size') then result.Size := Reg.ReadInteger('Font.Size');

          if reg.ValueExists('Font.Style.fsBold') then
              if Reg.ReadBool('Font.Style.fsBold') then result.Style := result.Style + fsBold;
          if reg.ValueExists('Font.Style.fsItalic') then
              if Reg.ReadBool('Font.Style.fsItalic') then result.Style := result.Style + fsItalic;
          if reg.ValueExists('Font.Style.fsUnderline') then
              if Reg.ReadBool('Font.Style.fsUnderline') then result.Style := result.Style + fsUnderline;
          if reg.ValueExists('Font.Style.fsStrikeOut') then
              if Reg.ReadBool('Font.Style.fsStrikeOut') then result.Style := result.Style + fsStrikeOut;

          reg.CloseKey;
     end;

     reg.Free;
end;

Cordially
JB

Hello StateOne, Hello Vladimir
Your file is an audio file.
What do you want to do with it?
Read it via an MVD application?
If so, turn it into mp3 and MVD will read it.
Otherwise, you are not on the right forum.
J.B.

Hello Adam
Is it an obligation for you to do everything on the same form?
I believe that in his example on a Treeview, Dmitri called a second form to display the data, but I will have to find his project on the forum.
JB

Hello identity
Can you tell us more
- Do you get error messages during import?
- Does this concern a problem with formats, import of cells with titles, date format, etc.?
- CSV format not compliant?
More information will help us help you
Sincerely
JB

Hello andy2020

Obviously, you will end up creating a fairly complex program.
So, you should not jump straight into MVD.
On a sheet of paper (I know, I'm an old-school programmer), you plan each element of what you envision:
- Purchasing part (net cost, VAT, total cost, etc.)
- Management of your stocks (entries, exits, alert threshold, etc.)
- Sales part (cost details, excluding tax, net sale price, VAT to apply (several possible rates)...)
- Invoicing to follow (therefore creation of a customer file, reminder emails, direct link with Paypal or any other invoicing system)
- Monitor your current sales...and I'm probably forgetting some.
So first thing to do (on paper):
- Create your tables (Customers, suppliers, products... which fields? with Calculated fields? with Password? With Roles? ...)
- Choose your fields carefully (simple, associated with others, obligatory? ...)
It's going to be a complex project, by anticipating it on paper, you'll see what you need and what you can eliminate.
Nothing is more annoying than having to constantly restructure your tables directly on the computer, when everything is anticipated, there are many fewer unpleasant surprises later; an unforeseen modification in a table can force everything to be recalculated with the risk of crashing.
As you can see, you still have a lot of work to do and if you also don't master MVD (and SQL because you can't escape it to automate functions), good luck!
Tell me what type of product you want to work on for your sales, I will try to start working on this project starting from what you want.
J.B.

Hello Anakin
To answer your question (buddy in a state) you will find in PJ
a doc file that I made from a response from Dmitri.
This is the step-by-step process to get what you want.
It's in French, but with Google Translate, you can adapt it (and everyone else) into your native language.
Good luck and come back to us if something gets stuck.
Is your photo already declared in your database?
J.B.

Hello kavinacomputers

Welcome to VD !
Go to the Homepage and click on Database example
I see at least 2 examples that you could initially benefit from.
Then come back to us to go further.
Good luck
J.B.

Hi Sparrow
It works perfectly.
Your new code is terribly effective.
I thank you again
Good luck at home!
Kind regards
J.B.