Search options (Page 1 of 41)

Hello Crozon

I often use this feature in my MVD projects—not via a button, but through a dialog box that allows the end user to select a font from those installed on Windows. I find this approach more interactive. I use this snippet of code :

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;

JB

Hello Nicklode

I used LRB (and its little brother, Longtion Application Builder).
It was efficient, relatively easy to use, and allowed for the generation of executables.
The early versions didn't support calculated fields yet, which was a bit of a drawback.
The purchase price is still a bit steep ($300 for LRB and $400 for LAB).
As soon as MVD was released, I adopted it immediately because it was so inherently efficient and truly easy to use.
Now that this superb software is no longer being updated, I’ll likely lose interest in it (though I remain very fond of it),
and I might go back to LRB (which isn't cheap but is still evolving).
But I will almost certainly turn to Lazarus, which I’ve also been using for a few years (and which is free, backed by a very strong and efficient team of volunteers).
MVD will likely face a slow decline due to a lack of new features, but competitors (both free and paid) are already out there.
It's a shame!

JB

Hello Nicklode
Do some research on the forum.
Derek created a project showcasing different types of chart layouts (but I don't remember the name).
JB

Hello Destiny, Hello Derek

Demat Crozon :
Excellent partage
La dernière fois je n'avais pas pu le télécharger entièrement.
Cette fois ci est la bonne
Merci encore
JB

Hello Adam, Hello Derek

As is often the case in MVD, the Windows environment in which the applications run is the one calling the shots.
Often, there's no other option than to "go behind the scenes," as Derek suggests.
JB

Hello Ansel

Konstantin has given a king of answer :
"The appearance of the TProgressBar component starting from Windows 7 is determined by the operating system settings. But if you use styles, then the progress bar becomes stylish too."
JB

Hello Derek
My report works perfectly from a grid, just like you and Konstantin did.

Similarly, using the Fastreport documentation and snippets found online in Delphi that I adapted for MVD, I finally got what I wanted (you can even hide blank pages).

Out of curiosity, and without meaning to copy you, what syntax did you use to achieve this?

Thanks and have a good day.
JB

K245
Hello K245

I did the same as you, I used a classic tablegrid, and it works.

But out of curiosity, I'd like to know how to prevent the parent node from being displayed if it doesn't contain any data, and only display the children of those parents.
See the attachment
JB

Hello Ansel

Find on the forum.
Derek has made a project with different kinds of charts, but I don't racal its name
JB

Hello Vicegerent
Give us more information.
Is your image an integral part of the database (via a DBImage)?
How are you storing it in the database: directly integrated via StoreFile (not a good idea) or in a dedicated folder via LinkFile and CopyTo?
You should consider these methods.
JB