Recent content by Destruktion

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

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

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...

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...

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.

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...

Ok so I added StrUtils, i thought there would be delphi own string functions and funny enough i tried MidStr but it was unidentified. Anyway, i managed to get IntToHex in there but the output has gone crazy. It is a small code could you please fix it for me thanks! here is latest attempt...

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...

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...

Wish there was an Edit function on this forum! Just wanted to add, in Button2Click procedure you use: for i := 0 to (PopupMenu1.Items.Count - 1) do PopupMenu1.Items.Delete(i); Is there any reason for this, surely PopupMenu1.Items.Clear is the same? Well I adapted your code and fixed my...

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.

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...

Thanks for the reply Glen, I should of perhaps been more clear in my initial post. The Treeview is going to be dynamic in that I will never know its actual structure, the nodes represented by a folder are to be parent menu items, nodes that are child to the folder are to be sub menus. I just...

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.

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...