I have a form one which I want to show a file open dialog box before the full form opens. I already found that I can't do UI related stuff in FormShow, but it seems that I can in FormActivate (which I protect from being called a second time...) However, if the user cancels out of the file open dialog, I want to close the form without p...
Is there a way to disable the parent windows buttons? I have a "working" form that is called by a lot of forms, that I would like to disable the parent form buttons until it's finished doing it's thing. Then turn them back on. I'd like to do something that is attached to the OnShow event and onClose event. Thanks -Brad ...
I have created a bitmap in memory, and would like to show this in rave report design time. I don't want to create a file then load. Is there a better way? Thanks and regards, jai ...
hi all i moved my project into a DLL and in there I declared a procedure like this procedure StartApp; var myForm : TmyForm; begin myForm:=TmyForm.Create(Application); myForm.Show; end; exports StartApp; my main application's contains a dpr file containing: procedure StartAPP; external 'myDLL.dll'; begin StartAPP; end;...
Dear Programmers, Perhaps, it is very easy for you, but I am hard working on a project (for educational purposes) that is querying adsi with TADSISearch component, for several days. I'm trying to show a 'Working, Please wait..' splash screen with a man worker animated gif on Form2 while TADSISearch is searching the Active Directory. Alt...
I have pascal code (programming language actually doesn't mean anything): box[1] := 14; box[2] := 2; box[3] := 4; box[4] := 5; box[5] := 6; box[6] := 8; I want to get all possibilities. For instance, box[1] = box[6], then box[6] = box[1]. Yes, I can write it by my hand, but I guess I can make it more clever, by loop. Any ...
I'm using the code from: http://www.swissdelphicenter.ch/torry/showcode.php?id=1103 to sort my TListView, which works GREAT on everything but numbers with decimals. So I tried to do this myself, and I created a new Custom Sort called: cssFloat Created a new function function CompareFloat(AInt1, AInt2: extended): Integer; begin ...
I have a web creation program which, when building a site, creates hundreds of files. When the internet root folder is situated on the local pc, the program runs fine. If the internet root folder is situated on a network drive, the copying of a created page takes longer than creating the page itself (the creation of the page is fairly ...
Is there a StringGrid in the Cocoa Framework or has anybody implemented one that would be like the one in Delphi? ...
Hi, I'm transferring a file using ftp in Delphi. I am able to connect to the ftp account ok but when I try and upload a file the FtpOpenFile function returns nil instead of a handle the file to be uploaded. hintfile := FtpOpenFile(hintconnect,PChar(tgtfn),GENERIC_WRITE,FTP_TRANSFER_TYPE_BINARY,0); If I log into the ftp site using a...
I have the following code in my program. When I try to check if the proxy is a valid proxy or not it crashes my program. Any ideas how to fix this? I'm using indy 10. if checkproxy('http://www.google.com') label1.text:='Good' else label1.text:='bad'; If I try to call another idHTTP connect after requesting checkproxy it crashes the...
Hi all, I'm trying to format a float (extended) by the system locale's default currency settings. I have found the key proponent to this solution to be the following line: GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, format_settings); and everywhere I look, they provide the solution exactly as shown (no class specifier before, li...
In Delphi 2009, SysUtils.pas contains this in line 425: EProgrammerNotFound = class(Exception); Is this simply an easter egg or something serious? When should this exception be raised? Does it also exist in Delphi Prism and/or Free Pascal? Conclusion (after reading the answers so far): This exception might appear in fun source c...
What would be the easiest way to make a thumbnail view, where you have a panel with a vertical scroll bar, and a matrix of images describing their associated image? I'd also like it such that if the parent frame resized horizontally, the matrix would shrink to as many columns as necessary to display the thumbnails without a horizontal sc...
In my application, there are these data components linked like so: DBGrid > (DataSource > ADOQuery > ADOConnection) DBNavigator > (DataSource > ADOQuery > ADOConnection) Whenever the user selects a different row from the DBGrid, or uses the DBNavigator, the ADOQuery's current record changes. Fine, but when the user makes some changes ...
I want to add a published property into TWinControl. Is there someway to do this without the necessity of recompiling the base source code ? If not, some way to recompile the base source code without too much troubles ? Tks in advice... EDIT 'CAUSE OF NEW IDEAS Alright, What I'm thinking to do I'm trying to override the _GetMem from...
I create a Windows timer using the following FHandle := SetTimer(0, 0, 1000, TFNTimerProc(@TMyClass.MyMethod)); Is this thread shown in the Delphi "Threads" window. If Yes how I can get this Thread ID? ...
I'm busy automating our builds to include the svn revision number. We're using Delphi 2010. I added a pre-build event calling a batch file that injects the the svn revision number (read from the entries file in the .svn directory) and a specified version number into aVersionInfo.rc that is compiled with my project. The pre-build event ...
I am currently writing a Delphi application that runs queries over a DB2 database using ADO. One of the requirements is that the user should be able to define queries using dates, for example "show me all data from the last 60 days" or "show me all data between November 20th 2009 and January 18th 2010". This wouldn't be an issue, excep...
I'm sending a log message to the main form using this: For send the message: procedure LogMsg(Msg: string; Kind:TMsgType=msgNormal); var p: pChar; begin case Kind of msgError: Msg := '[Error] ' + Msg; msgInformation: Msg := '# ' + Msg; msgExternal: Msg := 'Plugin: ' + Msg; end;//if GetMem(p, (Length(Msg) + 1)*S...