Jump to content

David Duffy

Members
  • Content Count

    16
  • Joined

  • Last visited

Community Reputation

0 Neutral

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. David Duffy

    Watch me coding in Delphi on YouTube

    Good to see a headset in your latest videos. The audio is much better.
  2. David Duffy

    Best way to play short sound file?

    Use the Bass audio library (DLLs) ?
  3. David Duffy

    Delphi 11.3 : FORSAKEN

    I've not found that to be the case on my machines.
  4. David Duffy

    Audio/DSP librarys for use in FireMonkey

    Maybe take a look at the Bass audio library?
  5. David Duffy

    Printer port

    No idea sorry. I would guess most users set up the printer once.
  6. David Duffy

    Printer port

    Do you really need to change the port for the printer, or do you want to select a specific printer to print to?
  7. David Duffy

    TPopupMenu with group headers

    I have it working nicely with fixed colours. Having it theme aware would have been nice but is not a real issue. It was more about learning.
  8. David Duffy

    TPopupMenu with group headers

    OK, is there a way to get the ActiveStyle another way in XE ?
  9. David Duffy

    TPopupMenu with group headers

    Is TStyleManager available in Delphi XE ?
  10. David Duffy

    TPopupMenu with group headers

    @nglthach what was the component / solution you posted the image of?
  11. David Duffy

    TPopupMenu with group headers

    I think TMS have a menu that can do that.
  12. David Duffy

    Run Time Sub Menu Gap

    Yes, sorry I didn't realise at the time of posting that it was specific to the TMS version.
  13. David Duffy

    Run Time Sub Menu Gap

    It was and by a very smart guy! 😄
  14. David Duffy

    Tab Order Confusion..

    My guess is that the greyed out ones have TabStop set to false.
  15. David Duffy

    Run Time Sub Menu Gap

    Here's the code: procedure TfmMain.UpdateHelpMenu; var MI: TMenuItem; x: Integer; begin while mnShortcutList.Count > 0 do mnShortcutList.Delete(0); for x := 0 to Prefs.Shortcuts.Count-1 do begin MI := TMenuItem.Create(mnShortcutList); MI.Caption := Prefs.Shortcuts[x].HelpCaption; MI.ShortCut := Prefs.Shortcuts[x].Shortcut; mnShortcutList.Add(MI); end; end;
×