I'm working with some windows API to create a little application. I already created the buttons, windows, alright. But the problem is the components I created don't look like the OS theme. They look very simple: See the button as example. How do I enable the Windows theme? It can be in C or Delphi. ...
Hi all I am working with Delphi 2010 and the ShellAPI. I need a little help as the program I am building grows. Here is the jest of the application: Checks to see if a certain condition exists If said condition exists it begins to execute 2 shell commands which are dependent on the previous one executing uses ShellApi; procedure...
Further to my previous question, which did not get a useful answer despite a bounty, I will try rephrasing the question. Basically, when the user clicks the ellipsis in the object inspector, Delphi opens a file/open dialog. I want to replace this handling with my own, so that I can save the image's path. I would have expected that all...
Hello! This is my code to fill a TextBox using the SendMessage function: C := 'Hey there'; SendMessage(h1, WM_SETTEXT, 1, Integer(PChar(C))); Now, how can I move the cursor to the end of the text? ...
I tried my hand at a generic class, and on a second attempt I've tried to make a generic locked pool. I almost got it to work I stumble on the spot where I want to put a generic typed class into a locked tlist obtained from tthreadlist. The main question is: Does anybody know a solution to this problem? (see "problem spot" in the s...
I have implemented a windows xp service application that starts a couple of working threads. From one of the threads i need to send custom messages back to the service. How do i do that? ...
Possible Duplicate: How can I identify and get rid of unused units in the uses clause in Delphi 7 ? Is there a wizard/tool to automatically detect all useless units? If in the current unit I "use classes" but in practice I don't need it I can of course manually remove Classes. But how can I do this automatically for all units...
I have a Delphi app that we're migrating to C++. One thing I often do while debugging my Delphi code is step into the VCL itself to understand exactly what's going on, to track some bugs. Is this possible in C++Builder? Suppose I am in C++Builder and I call "ShowMessage". Can I step into that call in my debugging session and switch to P...
Yet another in my series of questions regarding constructors in Delphi. i have a base class that has has the virtual constructor: TComputer = class(TObject) public constructor Create(Teapot: Integer); virtual; end; The constructor is virtual for the times that someone needs to call var computerClass: class of TComputer; co...
Here's two simple classes, initially both have no keywords (virtual, overload, override, reintroduce): TComputer = class(TObject) public constructor Create(Teapot: Integer); end; TCellPhone = class(TComputer) public constructor Create(Teapot: Integer; Handle: string); end; i will represent these above defintions as the slightly...
Hi, Im looking for a good and simple implementation of a linked list in Pascal. As Im a Pascal beginner it would help me alot as a study material. Thanks for any tips. ...
I have a Delphi 6 application where I have an array of TBitmaps each containing an image (sub-image) that was created by making a call to FillRect() with clWhite to flood the TBitmap's Canvas with white, followed by a call toTextOut() to print some text to the Bitmap's Canvas. I have a timer that updates the main Canvas, which belongs...
I'm having a fairly strange problem with a TImage component's width and height properties. As a test, I draw a red dot in (what is supposed to be) the center of the TImage component by taking the midpoint of the TImage's width and height and drawing the dot there so that it is centered (centerPoint2D is a TPoint): // The center point i...
Is possible using the Rtti determine if a TRttiMethod is a marked as overload,override or abstract ? thanks in advance. ...
suppose i have a unit like this unit sample; interface function Test1:Integer; procedure Test2; implementation function Test1:Integer; begin result:=0; end; procedure Test2; begin end; end. Is possible enumerate all the procedures and functions of the unit sample in runtime? ...
I am currently using this code, but does not list anything. What I'm missing? program ListAttrs; {$APPTYPE CONSOLE} uses Rtti, SysUtils; type TPerson = class private FName: String; FAge: Integer; public [NonEmptyString('Must provide a Name')] property Name : String read FName write FName; [MinimumInteger...
I have a native Delphi TFrame that emulates Roy Tanck's Cumulus Tag Cloud viewer, a WordPress Flash plug-in. What that plug-in does is create a 3D sphere of words that spin around on the surface of a "virtual" sphere. You can see it in action here: http://www.roytanck.com/2008/03/06/wordpress-plugin-wp-cumulus-flash-based-tag-cloud/ ...
I have an application that creates 3D motion on a TPaintBox Canvas using native Delphi code. In the old code I rendered the 3D image to a temporary TBitmap on a Timer event. In the TPaintBox OnPaint() event I would BitBlt() the temporary TBitmap the TPaintBox's Canvas. This approach worked fine but the motion was jerky. Because I was...
Hello. I Delphi, I need a function which determinates if the system menu (resp. window menu, the menu that appears when the icon is clicked) is opened. The reason is that I am writing a anti-keylogger functionality which sends garbage to the current active editcontrol (this also prevents keylogger which read WinAPI messages to read the ...
I want to make a report with a TDbxReader instance but don't find the way to get the name of aReader.value[index] column. Somebody could help me? aCmnd.Text := 'SELECT * FROM Country'; aCmnd.Prepare; aReader := aCmnd.ExecuteQuery; aColCount := aReader.ColumnCount; Writeln( 'Results from Query: ' + aCmnd.Text ); // wr...