Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. Destruktion

    Procedure / Function question

    I will check it out, and will post back if I manage to work it out.
  2. Destruktion

    Procedure / Function question

    Yeah I have Delphi 2009, will check those out thanks..
  3. Destruktion

    Procedure / Function question

    Hey, another question I hope someone can help with. Over the years I have been using Delphi I have created some units that contain procedures and functions that are reusable, for example: function ListBoxIsSelected(ListBox: TListBox): Boolean; begin Result:= ListBox.ItemIndex <> -1; end...
  4. Destruktion

    TActionList ImageIndex question

    Hi, I have an annoyance I hope someone can help with. I am using a TActionList where my actions are stored, these are linked to a TActionManager. The TActionManager is used for a ActionMainMenuBar (to create menu similar to that of Delphi's, Alphablended). I am also using a TToolBar which each...
  5. Destruktion

    Help me convert small VB code

    brilliant thanks Glen, cleared most of it up for me :) 100 lines to add 1? who was he trying to kid haha var i: Integer begin i:= 0; i:= i + 1; end; Thanks Glen, good job.
  6. Destruktion

    Help me convert small VB code

    Hi thanks Glen that works, but a few things.. <> how do you know the output was 3 bytes in hex and not four? <> also noticed you dont use MidStr or RightStr in your code, is that just not needed because the original source is not well coded? I always end up making code more complicated because...
  7. Destruktion

    Help me convert small VB code

    ...sLetter: String; cColor: TColor; Rev: Boolean; begin Result:= ''; cColor:= SelColor; for X:= 1 to Length(sInput) do begin (* ShowMessage(sInput[X]); // verify the length of text *) sLetter:= MidStr(sInput, X, 0); if sLetter <> ' ' then begin sConverted:=...
  8. Destruktion

    Help me convert small VB code

    Hi, thanks for the reply. If you can see in my code i commented out TColor in several places as i tried it, and it worked but no difference. I know about IntToHex already but i kept getting "There is no overloaded version of 'IntToHex' that can be called with these arguments" type errors. The...
  9. Destruktion

    Help me convert small VB code

    Hi, I am trying to convert a small fun project from VB (I did not write the VB code, found it at this site: http://www.pinoyunderground.com/showthread.php?s=1dcf8bdc1f9b40525f7bb4d2dad0d641&t=85670&page=2) Anyway this is what i got so far, it compiles and runs but I dont get the same output...
  10. Destruktion

    TreeView to Menu

    ...private procedure PopulatePopupMenu(BaseNode: TTreeNode; MenuItem: TMenuItem); end; var frmMain: TfrmMain; implementation {$R *.dfm} procedure TfrmMain.PopulatePopupMenu(BaseNode: TTreeNode; MenuItem: TMenuItem); var i: integer; SubMenuItem: TMenuItem; begin if...
  11. Destruktion

    TreeView to Menu

    Actually, to add to what I just said I noticed in the procedure declaration you actually do use MenuItem, as well SubMenuItem. BaseNode is the selected node i gather.
  12. Destruktion

    TreeView to Menu

    Thats perfect thanks Glen, I actually implemented a Directory Listbox in addition to the Drive combo to make selecting a folder easier and essentially faster by reading a desired directory and changing: rec_list_dir(DriveComboBox1.Drive + ':', nil); to...
  13. Destruktion

    TreeView to Menu

    ...cmdFullTreeviewAsMenuClick(Sender: TObject); private procedure CreateDynamicMainMenu; end; var frmMain: TfrmMain; implementation {$R *.dfm} // this is just to show how to create menu and sub menu items // to the main menu procedure TfrmMain.CreateDynamicMainMenu; var MenuItem...
  14. Destruktion

    TMaskEdit Help

    You can probably take out the 1 in the mask, i believe this is used for saving the literal characters. #8 is the key code for backspace #0 is nothing, it basically blocks further entry in the edit.
  15. Destruktion

    TMaskEdit Help

    Hi welcome to the forum. Try this: 1) Drop a Mask Edit on your form, right click and select Input Mask Editor. 2) Enter this for the input mask (or paste it): !9999;1;- 3) Enter this code for the OnKeyPress event of the Mask Edit: procedure TForm1.MaskEdit1KeyPress(Sender: TObject...
  16. Destruktion

    TreeView to Menu

    Hi, Im trying to copy the structure of a TTreeview to a popup menu, I can do this getting the caption and image of the tree nodes and adding it to the popup menu, but I cant get the parent and child relationship working. Please see my code and help me make the changes. procedure...
  17. Destruktion

    Check file is valid and not corrupt?

    Thanks Glenn for the update.
  18. Destruktion

    Playing MP3 and MIDI Sequences from TMemoryStream

    I got no errors using the stream components from the audio package by passing it to my stream, but I got no playback. I will play around with the components some more when I can.
  19. Destruktion

    Playing MP3 and MIDI Sequences from TMemoryStream

    Ok I got the components installed and have been trying to figure out how to initialize the streams, there does not seem to be a demo showing how to play from stream. I added ACS_Classes, ACS_Streams to uses clause but cant seem to put my stream into NewAC stream, like my example above...
  20. Destruktion

    Playing MP3 and MIDI Sequences from TMemoryStream

    Thanks whosrdaddy, I looked at some components but did not want to pay for the packages I saw as I only need small added support to play different files from the memory stream. I did not come across the component site you posted, but they are Free and Open Source. Will try them out. Thanks :)

Part and Inventory Search

Back
Top