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...
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...
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.
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...
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 :)
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.