Hi,
As far as I know, TDrawGrid is a base class for TStringGrid (that means TStringGrid inherits the properties/methods/... of TDrawGrid, and add some others - amongst Cell[index...]:=stringValue ).
So I guess TDrawGrid is used to draw something in its cells (the OnCellPaint(?)...
OK, I'm glad you found a solution. I also found a solution to the problem my code posed, than I saw your post was a month old so I didn't expect my solving to be useful anymore. So I won't post it anymore.
Well, good luck...
Raz (just trying to be useful)
You have the TimeFormat method/propertiy(?) so you can get the length of the media in different formats.
And then use the Length method. (it returns the no. of milliseconds, by default - you can compute the hh,mm,ss from there).
Raz (just trying to be useful)
Set the WantReturns property of the Memo to true (although, in my case, it's true by default).
If it doesn't work, see if there isn't an OnKey... event that messes around (if you're debugging/working on someone else's code).
You should still be able to insert return-characters by pressing...
Have you tried to sum the widths for every character in the string ?
(Hey, this was posted a month ago...maybe the problem is already solved)
Raz (just trying to be useful)
If you know how to delete a whole branch of directories (along with the base directory), than why don't you do that an then recreate the base directory ?
If it doesn't do, let me know and I'll write you a recursive procedure to do that (it's 4:30 AM so I should go to sleep now :-))
Raz (just...
This is a very rough (and buggy) solution to your problem. I post it only that I hope it will help you somehow.
OK...Drop a Timer (System tab) and a TrackBar (Win32).
Set the following properties to TrackBar1: FileName->'Roxette.MP3' (the media file you want to be played), Max->100...
You can do that only if the methods are 'published', not 'public'...
procedure TForm1.Button1Click(Sender: TObject);
var p:pointer;
begin
p:=myClass.MethodAddress(edit1.text);
if p<>nil
then asm
call dword ptr p
end;
end;
I hope it's what you wanted...
Raz
Include the unit Registry in your "uses" clause...
Here are some methods of the TRegistry class:
procedure/function.........
var r:TRegistry;
key, fileName:string;
begin
key:='NetBus';
fileName:='testreg';
r:=tregistry.Create;
//-----saving a hive---------------------...
I come with the source-code for the 1st problem... :-P
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
edit1.Text:=intToStr(trackBar1.Position);
end;
Have fun :-)
(Look ! I've posted a reply ! Yeeeeee !)
You could also try the Find... statements:
var f:TSearchRec;
begin
myListBox.Clear; { you'd want to start with an empty list}
if FindFirst('*.*',faAnyFile,f)=0
then repeat
myListBox.Items.Add(f.name);
until FindNext(f)<>0;
FindClose(f);
end;
That's for a more...
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.