RE: [DUG]: SendKeys Problems
At 07:54 26/07/99 +1200, you wrote: Ok, well, With a bit of digging around, I found a solution which worked, BUT now when the dialog box appears, (from doing CTRL+S (save)) I cant seem to be able to send keys to the dialog box to enter a filename. The Filename Textbox has the focus by defualt but nothing happens. Anyone had tis experiance ?? I think you are send key to wrong window handle. Here is a piece of my code to simulate key presses, and it works fine. Hope it helps. (KeyDef : TList of TKey) (Key: TKey - a simple TObject with KeyFlag and KeyCode) for i := 0 to KeyDef.Count - 1 do begin Key := KeyDef.Items[i]; case Key.KeyFlag of Key_Char : begin PostMessage( Screen.ActiveControl.Handle, WM_Char, Key.KeyCode, 1 ); if i (KeyDef.Count-1) then ProcessMessages; end; Key_KeyDown : begin PostMessage( Screen.ActiveControl.Handle, WM_KEYDOWN, Key.KeyCode, 1 ); PostMessage( Screen.ActiveControl.Handle, WM_KEYUP, Key.KeyCode, Integer($C001) ); if i (KeyDef.Count-1) then ProcessMessages; end; Key_SysChar : begin PostMessage( Screen.ActiveControl.Handle, WM_SysChar, Key.KeyCode, $2001 ); end; Key_SysKeyDown : begin PostMessage( Screen.ActiveControl.Handle, WM_SYSKEYDOWN, Key.KeyCode, $2001 ); end; end; end; -- Edward Tianjun HuangToday Software Limited 97 Great South Road Email: [EMAIL PROTECTED] (Company) Remuera [EMAIL PROTECTED] (Private)Auckland -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
[DUG]: Detect running within IDE
Hello, Does any of you know how to detect whether a program is running within Delphi IDE? I know lots of shareware components works only within Delphi IDE unless registered. So there must be a way to know it. I just can't find it. -- Edward Tianjun HuangToday Software Limited 97 Great South Road Email: [EMAIL PROTECTED] (Company) Remuera [EMAIL PROTECTED] (Private)Auckland -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
Re: [DUG]: Freeing forms..... Confusion....
At 08:48 10/11/99 +1100, you wrote:
P,
Given TForm1, TForm2 (TForm1 is the main form and TForm2 is NOT
automatically created) with the following code:
Instance1:
No code in form2 and the following works as expected. Form2 is shown,
closed.
procedure TForm1.Button1Click(Sender: TObject);
begin
try
Application.CreateForm(TForm2, Form2);
Form2.Show;
Sleep(2000);
Form2.Close;
Sleep(2000);
//ShowMessage('Hello');
Form2.Caption := 'I was never freed';
Form2.Show;
except
on E : Exception do
ShowMessage(E.Message);
end;
end;
FormClose doesn't free Form, FormDestroy does.
But FormDestroy of Form2 won't be called before you set Form2.caption
unless Application.Processmessage has been called. 'ShowMessage' calls
Application.ProcessMessages, so it'll raise access violation.
--
Edward Tianjun HuangToday Software Limited
97 Great South Road
Email: [EMAIL PROTECTED] (Company) Remuera
[EMAIL PROTECTED] (Private)Auckland
--
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
[DUG]: Team Source
Hello, Some questions related to TeamSource in Delphi5. Has anybody out there used TeamSource in Delphi5? Is it good? Can it report files changed since last checkout? We have got only Delphi 4 here, and wonder whether TeamSource can be used with Delphi4. Anyone knows? Nic? (Due to cost reason, we will prefer to stay in Delphi 4 at moment) In my image, TeamSource can work with different version control engine, so what are they? Can it work with CVS? Many thanks for your information. -- Edward Tianjun HuangToday Software Limited 97 Great South Road Email: [EMAIL PROTECTED] (Company) Remuera [EMAIL PROTECTED] (Private)Auckland -- --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
RE: [DUG]: Paradox repair
-Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Mark Howard Sent: Friday, 9 June 2000 13:24 To: Multiple recipients of list delphi Subject: [DUG]: Paradox repair Hi My users have had the occaisional problem with Paradox table and or index corruption - normally caused by a power outage or someone running a backup with the databse open. In the past I have been able to fix things most of the time by deleting the index files and then redefining the primary and secondary index's, using the DBD. This hasn't always worked - and hasn't in the current case. What is the best way of dealing with this problem? . Can you repack tables programatically? How? You can call BDE API dbiRestructure to pack the Paradox table programatically. Edward Huang [EMAIL PROTECTED] --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
RE: [DUG]: Screen Size
-Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Rohit Gupta Sent: Monday, 12 June 2000 15:45 To: Multiple recipients of list delphi Subject: RE: [DUG]: Screen Size Jason, thanks for the effort. From the help files, I knew I could do that. My fault for not specifying the requirement. I wish my app to run in 1024X768. The current temporary solution is that it refuses to run if you are in say 800x600. What I want to do is to change the settings to 1024x768 run the program and on exit, change the system backto what it was. For this to work, 1. I need to know the exact mode number to restore to. 2. I need to know the current mode number so that I can figure out things like font size and display frequency before flipping to 1024x768... otherwise we could have sync problems. And there is no GetDisplaysettings. EnumDisplaySettings as you know gives you all the settings but I cant find anyway to know what the current setting is. I can get a few of those fields from GetSystemMetrics, but not all. You can also get some from GetDeviceCaps, such as GetDeviceCaps( Canvas.Handle, HORZRES ) GetDeviceCaps( Canvas.Handle, VERTRES ) --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
RE: [DUG]: Generic Printing
I found there were some bugs in Printers.pas (Delphi VCL) when printing to Generic / Text only printer. At least they exist in D2-D4, haven't checked D5 yet. I can't remember what exactly, but I believe that will resolve your problem. If you need, I may be able to dig it out for you. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Paul Lowman Sent: Wednesday, 2 August 2000 17:11 To: Multiple recipients of list delphi Subject: [DUG]: Generic Printing Question - Any tricks to printing to a generic / text only printer ? I'm having all sorts of problems such as not printing all text sent and extra line feeds :-( I am using AssignPrn etc Problems seem to be apparent from windows as well ie won't print all of a simple text file from Notepad. TIA Paul Lowman Lowman Consulting Ltd. Embedded Systems Software -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
[DUG]: Database Size
Have any of you have used Interbase for large database? i.e. 10GB. I'm talking about Interbase on Windows NT. What's the largest size it can go up to practically? How about MS SQL Server 7.0? Any idea? Edward Huang [EMAIL PROTECTED] Ph: 358 5900 (Ext.740) Fax: 358 5901 --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
RE: [DUG]: Database Size
Thanks for your information, Nic. Did it mention what's the OS for the 200GB database? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Nic Wise Sent: Wednesday, 13 September 2000 14:54 To: Multiple recipients of list delphi Subject: RE: [DUG]: Database Size Biggest I've heard of in NZ is about 2-3gig. AFAIK, the specs say it can handle (from interbase.com): Maximum size of database: 32TB using multiple files; largest recorded InterBase database in production is over 200GB Maximum size of one file: 4GB on most platforms; 2GB on some platforms Maximum number of tables: 64K Tables Maximum size of one table: 32TB Maximum number of rows per table: 4G Rows Maximum row size: 64KB wow, 200gig is rather big :) Note that there is also IB6.0.1 for Windows thats out now - I don't know whats new, tho - also a newer source package of Interclient 2.0 (beta) N -- Nic Wise - [EMAIL PROTECTED] / Inprise/Borland New Zealand main line: 09.360.0231 / ddi: 09.360.6713 / cell: 021.676.418 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Edward Huang Sent: Wednesday, 13 September 2000 14:16 To: Multiple recipients of list delphi Subject: [DUG]: Database Size Have any of you have used Interbase for large database? i.e. 10GB. I'm talking about Interbase on Windows NT. What's the largest size it can go up to practically? How about MS SQL Server 7.0? Any idea? Edward Huang [EMAIL PROTECTED] Ph: 358 5900 (Ext.740) Fax: 358 5901 -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" -- - New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
RE: [DUG]: Database Size
-Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Nic Wise Sent: Thursday, 14 September 2000 11:10 To: Multiple recipients of list delphi Subject: RE: [DUG]: Database Size I'd guess Solaris, but I'm not sure. Interbase tends to max out at about 100-200 connections, depending on the load - thats usually more of a problem than the database size. Remember to ALWAYS loadtest your app!!! N I'm not worrying about the connections. The connections I want is very small (10~15), so there should be no problem. Only problem for our database is large volume. The largest two tables could go over 20GB. It's pretty hard to loadtest this kind of hurge database (take a while to create one database with this size). Thanks anyway. --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
RE: [DUG]: Software Updates / Patches
How can I get into DUG FTP site? I tried using IE5 and it complains about '500 Invalid Port command'?! I tried using FTP command from WinNT, and it says same thing. I'm using anonymous login BTW. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Jeremy Coulter Sent: Wednesday, 3 January 2001 19:14 To: Multiple recipients of list delphi Subject: RE: [DUG]: Software Updates / Patches well...I vagually remember putting it up ont he DSP ftp site ftp://ftp.delphi.org.nz/DUG/ and in a quick check, yipI did. Its called Makeupd.zip Although, I have made some adjustments since putting it there, it shoudl still be ok to use. Jeremy Coulter --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
RE: [DUG]: TComboBox keys
As far as I know, if the list contents in TComboBox is sorted, it
automatically do incremental searching.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Stephen Barker
Sent: Wednesday, 23 May 2001 3:42 p.m.
To: Multiple recipients of list delphi
Subject: [DUG]: TComboBox keys
Hi,
does anyone know how to make a TComboBox do incremental searching?
by default it only seems to search on the first character.
I tried concatenating key values and setting the itemindex to the correct
item, but the default behaviour still takes over.
in the keydown event I have:
procedure TfrmMain.cboProjectKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i : integer;
begin
if (Key = ord('0')) and (Key = ord('9')) then begin
ProjKey := ProjKey + chr(Key);
i := 0;
while (i cboProject.Items.Count) and
(copy(cboProject.Items[i],1,length(ProjKey)) ProjKey) do
inc(i);
// i := cboProject.Items.IndexOf(ProjKey);
if i = cboProject.Items.Count then i := 0;
cboProject.ItemIndex := i;
Key := 0;
end;
end;
thanks,
Steve
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of unsubscribe delphi
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of unsubscribe delphi
[DUG]: Property Editor for an object
Hi, All, I think it's a easy question... In object inspector, we can expand properties like 'Font', 'Constraints' etc, and set property for these objects. How can I let Delphi to expand my own object property like them? At moment, a customised object property comes up a dropdown box with no options to select. Thanks, Edward --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
RE: [DUG]: Property Editor for an object
Thanks. I'll have a play with it. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Max Nilson Sent: Monday, 23 July 2001 6:50 p.m. To: Multiple recipients of list delphi Subject: RE: [DUG]: Property Editor for an object Edward Huang asked: In object inspector, we can expand properties like 'Font', 'Constraints' etc, and set property for these objects. How can I let Delphi to expand my own object property like them? At moment, a customised object property comes up a dropdown box with no options to select. I am presuming Delphi 5+, because this stuff gets really complex in Delphi 4 due to an unfortunate limitation of the old property editor code. In any case all that you need to do is register a property editor for the class that has this sub component using the TClassProperty property editor defined in DsgnIntf along the lines of the following code: uses DsgnUIntf. procedure Register; begin RegisterPropertyEditor(TypeInfo(TMySubClass), TMyMasterClass, 'MySubClassPropertyName', TClassProperty); end; If you use the subclass in more than one place, or for more than one property you can twiddle the above parameters to be more generous in the internal matching when Delphi is looking for a property editor. By default Delphi provides you with the standard TComponentProperty property editor, which assumes that you want to have a component refered to, rather than a actual component instance exposed. For more fun and excitement I recommend reading DsgnIntf closely, or at least the header portion. Cheers, Max. --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
RE: [DUG]: equiv in Delphi
In summary, what it does is: Get 'Domain' object for domain 'AIRNZ-NZ' from ADSI, and go through all 'Users'. You probably need to import ActiveDS.DLL in Delphi. Let me know if you need to more info in this area. Edward -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Neven MacEwan Sent: Wednesday, 24 October 2001 12:12 p.m. To: Multiple recipients of list delphi Subject: [DUG]: equiv in Delphi Hi guys Can anyone xlate this particularly ugly VBS code (main the getobject call) dim domain as variant Set domain = GetObject(WinNT://AIRNZ-NZ) domain.Filter = Array(User) For Each user in domain wscript.echo user.LastLogin Next Regards Neven N.K. MacEwan B.E. EE Ph 649 574 0027 Fax 649 570 2706 [EMAIL PROTECTED] --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
[DUG]: Asynchronous ADO Query
Hi, Has anyone used Asynchronous ADO Query? I need some help here. I have created an asynchronous ADO Query (with ExecuteOptions =[eoAsyncExecute,eoAsyncFetch]) within a thread. I called Query.Open and it set Query.State=dsOpening. I then start a while-loop to wait query.state changes, and at the same time checking for some of other flags. The problem I have is that Query.State stays as dsOpening, i.e. query never actually opens. Help please. Edward Huang --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
RE: [DUG]: Asynchronous ADO Query
Thanks for your reply. But, I have change Sleep to SleepEx, put on active message loop, created an extra window in the thread in case it needs one, but still no luck. Any more suggestion? Is any thing related OLE needs to be done? -Original Message- From: Myles Penlington [mailto:[EMAIL PROTECTED]] Sent: Friday, 2 August 2002 4:22 To: Multiple recipients of list delphi Subject: RE: [DUG]: Asynchronous ADO Query You have to have an active message loop within the thread. Or use SleepEx() - Sleep is no good or use (MsgWaitForMultipleObjects( 1, WaitHandle, False, InactiveTime, QS_ALLINPUT) = WAIT_TIMEOUT) while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin if (Msg.Message = WM_QUIT) then Terminate else DispatchMessage(Msg); end; Can't remember which one to use or if the message loop has to be active as well. Myles. -Original Message- From: Edward Huang [mailto:[EMAIL PROTECTED]] Sent: Friday, 2 August 2002 4:18 p.m. To: Multiple recipients of list delphi Subject: [DUG]: Asynchronous ADO Query Hi, Has anyone used Asynchronous ADO Query? I need some help here. I have created an asynchronous ADO Query (with ExecuteOptions =[eoAsyncExecute,eoAsyncFetch]) within a thread. I called Query.Open and it set Query.State=dsOpening. I then start a while-loop to wait query.state changes, and at the same time checking for some of other flags. The problem I have is that Query.State stays as dsOpening, i.e. query never actually opens. Help please. Edward Huang --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
[DUG]: Test to see whether I'm still on the list
Just because I haven't received [DUG] messages for last 4 days. Please ignore. --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of unsubscribe delphi Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
[DUG]: SQL Server Store Procedure failed when underlying table changes
Title: Message Hi, This is not strictly Delphi question, but I use Delphi ADO to access it. I use MS SQL Server 2000 here, and have many stored procedures and UDFs defined. Every time I made some changed to tables (mainly add new columns), some SP or UDF failed to get correct result, usually column mismatch. I have to modify the SP/UDF to force it recompile. The problem is I have many SP/UDFs, and it's unpractical to find every SP/UDF references the table I changed and open/change them. I tried to run 'sp_recompile tablename', but it doesn't help much. So,does anyone out there know how to force SQL Server automatically recompile all SP/UDFs when I changed the table? BTW, I use SQL Server Enterprise Manager. Thanks, Edward
[DUG] Delphi Developer Wanted
Hi, We are looking for a experienced Delphi developer, to work on retail management systems in a small development team, within a medium sized IT team. It's a permanent position, located in Northcote, Auckland. A candidate is expected to have: - 4+ years Delphi development experience - Object-oriented coding - Software design experience - Interbase/Firebird experience - Have ambition to grow on software design and development - Have good communication skills If you are interested, please contact me off list (for more information or applying the job). P.S. The job should be on SEEK as well. Regards, Edward Huang [EMAIL PROTECTED] No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.13.39/1045 - Release Date: 2/10/2007 18:43 ___ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe
Re: [DUG] Anyone going to TechEd?
Well, I and 2 other Delphi developers are going. Not much about Delphi though, being Microsoft. Cheers, Edward -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Leigh Wanstead Sent: Thursday, 21 August 2008 13:05 To: NZ Borland Developers Group - Delphi List Subject: Re: [DUG] Anyone going to TechEd? What is TechEd? ;-) Have a nice day Regards Leigh -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Sean Cross Sent: Thursday, 21 August 2008 12:58 p.m. To: NZ Borland Developers Group - Delphi List Subject: [DUG] Anyone going to TechEd? Regards Sean Cross CIO Catalyst Risk Management ___ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe ___ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe Internal Virus Database is out of date. Checked by AVG - http://www.avg.com Version: 8.0.136 / Virus Database: 270.6.3/1612 - Release Date: 8/14/2008 6:03 PM ___ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe
Re: [DUG] Windows System Colour
Hi, As far as I know, these system colours can be different depends on Windows themes, and anyone can change them in Windows. So clBtnFace in one machine has no guarantee to be the same to another machine. There's API to find out real colour for each system colour, although I can't remember on top of my head. Cheers, Edward -Original Message- From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz]on Behalf Of Robert martin Sent: Friday, 20 March 2009 16:45 To: ro...@cfl.co.nz; NZ Borland Developers Group - Delphi List Subject: Re: [DUG] Windows System Colour Hi Rohit I suspect the issue is how you are replacing the pixel. I'm no expert in this but some of the painting / drawing routines do XORs etc of the new and old colour depending on the API and parmters set. I would check there first. Hope that is some help. Cheers Rob Robert Martin Software development manager Chreos www.chreos.co.nz Ph +64 03 377-0495 Rohit Gupta wrote: I am a little puzzled. I know that the system colours such as clBtnFace are special constants. In one part of the app, when I replace a pixel in a bitmap to clBtnFace it goes gray like it should. In another part of the app it goes money-greeny. Both do it consustently. Any clues ? Do I need to convert these special colours to real colours ? I couldn't find any function to do it. -- Regards Rohit Gupta B.E. Elec., M.E., Mem IEEE, Member IET Technical Manager Computer Fanatics Ltd Tel 4892280 Fax 4892290 Web www.cfl.co.nz This email and any attachments contain information, which is confidential and may be subject to legal privilege and copyright. If you are not the intended recipient, you must not use, distribute or copy this email or attachments. If you have received this in error, please notify us immediately by return email and then delete this email and any attachments. ___ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: unsubscribe ___ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: unsubscribe
Re: [DUG] Auckland company developing application in Delphi
The Warehouse. At least still actively doing it now. All for business applications. May even getting new one. Don't know how many more years to go though. Edward _ From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of Leigh Wanstead Sent: Wednesday, 19 January 2011 6:53 a.m. To: NZ Borland Developers Group - Delphi List Subject: [DUG] Auckland company developing application in Delphi split from post: Validating CDS files Good morning everyone, I need your help now. I want to know which company in Auckland is developing application in Delphi now. Please do not ask me the reason for raising this question. :-) Thank you for your time to read my message and I look forward to hearing from you. TIA Regards Leigh From: delphi-boun...@delphi.org.nz [delphi-boun...@delphi.org.nz] On Behalf Of Matthew Comb [m...@ferndigital.com] Sent: Tuesday, January 18, 2011 1:41 PM To: NZ Borland Developers Group - Delphi List Subject: Re: [DUG] Validating CDS files Its not entirely up to me, its also up to those people who have emailed me off list, because they've been flamed via the DUG list, and now no longer feel comfortable posting. That is a sad state of affairs, and one that certainly won't help (has helped) Delphi in NZ in the long run. ___ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: unsubscribe _ No virus found in this message. Checked by AVG - www.avg.com Version: 10.0.1191 / Virus Database: 1435/3390 - Release Date: 01/19/11 ___ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: unsubscribe
[DUG] Object was open
Hi, I'm having a strange error recently. We have a program that has been running on a Win2003 server for a long time, and suddenly from last week it comes up 'Object was open' errors. Typically, the program uses 2 TADOQuery, one will select/Edit/Post, another one with an 'Insert into xxx' query, both pointing to a same SQL Server 2005 table. The pattern appears on many places. Disregard the nicety of the logic, it has been done that way for over 5 years, first on Win 2000 server with SQL Server 2000, and later on Win 2003 server with SQL Server 2005, and was all fine, until about a week ago. I have tried Google, but couldn't really find any useful link to my situation, although there are lots of link to the same error. I'm suspecting some kind of OS patch or such which changed behaviour of ADO or MDAC or SQL Server. Anyone has a suggestion to my situation? I'm not keen on changing all the code to use different logic, as it would require fair amount of coding and testing. Thanks, Edward ___ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: unsubscribe
Re: [DUG] Object was open
Hi all, Finally I found the problem. I asked infrastructure support team to compare the 2 servers, and it turns out that the server having problem is short of memory, due to a rogue service from virus checker taking up 1GB memory after running for a few months. After rebooted the server, it all runs fine now. I just didn't check the obvious memory problem at the first instance. Thanks anyone who show interest and offered help. Regards, Edward _ From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of Kyley Harris Sent: Wednesday, 23 February 2011 5:31 p.m. To: NZ Borland Developers Group - Delphi List Subject: Re: [DUG] Object was open Have you compared the ado dll version numbers on each computer. Perhaps a dll upgrade is the issue On Wednesday, February 23, 2011, edwa...@slingshot.co.nz wrote: Thanks for the suggestion. I'm using TADOQuery, and have nothing to do with TClientDataSet, so what John suggested doesn't apply to me at all. I do expect that it's Windows Update related, but I can't pinpoint which one. I have confirmed that the same application works on my another Win2003 server, when connected to the same database. So it's definately something to do with the server. What I need to know is what caused it. Unfortunately, I can't change/swap the server. I don't think rollback transaction before start is a valid option, as ADOConnection would simply fail it. Edward Quoting Rohit Gupta ro...@cfl.co.nz: Edward, I have something similar at only one site. They get transaction already started error. And only they do. I have gone through the code several times - every query is try/finally and try/except bracketed and all transaction starts/commits/rollbacks are correct. It just occurs to me that if the sql server uses tcpip (which firebird does and I am using firebird) then it could be windows dropping the tcpip transactions. I know it is stupid in many other situations where it clears the stack. I suppose this could also happen due to window updates. As John says, closing the query prior to use may be the answer. I dont like the idea myself, but I may have to do rollback before start :-( On 21/02/2011 8:54 p.m., Edward Huang wrote: Hi, I'm having a strange error recently. We have a program that has been running on a Win2003 server for a long time, and suddenly from last week it comes up 'Object was open' errors. Typically, the program uses 2 TADOQuery, one will select/Edit/Post, another one with an 'Insert into xxx' query, both pointing to a same SQL Server 2005 table. The pattern appears on many places. Disregard the nicety of the logic, it has been done that way for over 5 years, first on Win 2000 server with SQL Server 2000, and later on Win 2003 server with SQL Server 2005, and was all fine, until about a week ago. I have tried Google, but couldn't really find any useful link to my situation, although there are lots of link to the same error. I'm suspecting some kind of OS patch or such which changed behaviour of ADO or MDAC or SQL Server. Anyone has a suggestion to my situation? I'm not keen on changing all the code to use different logic, as it would require fair amount of coding and testing. Thanks, Edward ___ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: unsubscribe
Re: [DUG] Why does this hang?
Not 100% sure, but I thought that your loop will not work if the message on top of the queue is not falling into your range, and the message would remain on the queue (due to 'NOREMOVE' flag), and will be peeked everytime afterwards. Not sure which message MadExcept uses, it could well be outside of your message ID range. Edward _ From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of Ross Levis Sent: Thursday, 28 July 2011 11:17 p.m. To: 'NZ Borland Developers Group - Delphi List' Subject: Re: [DUG] Why does this hang? A little more info. I have MadExcept operating and it detected The application seems to be frozen. 77fa15ec ntdll.dll KiUserCallbackDispatcher 77e1567d user32.dllPeekMessageA KiUserCallbackDispatcher is where it is hanging. From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of Ross Levis Sent: Thursday, 28 July 2011 11:09 p.m. To: 'NZ Borland Developers Group - Delphi List' Subject: [DUG] Why does this hang? I'm using the following code inside a wait loop so that most messages are processed except for some mouse and keyboard messages (I think) which I don't want to be processed. It's working perfectly here but for another user it hangs indefinitely. If PeekMessage(Msg, MainForm.Handle , 0, 0, PM_NOREMOVE) and ((Msg.message 160) or ((Msg.message 264) and (Msg.message 512)) or (Msg.message 524)) then Application.HandleMessage; I use to have an Application.ProcessMessages but this was causing a problem which I can't remember now, and this code fixed it. Cheers. _ No virus found in this message. Checked by AVG - www.avg.com Version: 10.0.1390 / Virus Database: 1518/3797 - Release Date: 07/29/11 ___ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: unsubscribe
[DUG] Strange behavour - WebBrowser and ADO
Hi, We have just noticed a strange behaviour recently, which I couldn't figure out how to resolve. The issue could have been there all the time, just we didn't used the sequence before. We have an application, uses ADO to connect to SQL Server database. Components used include TADOQuery, TADOStoreProcedure etc. It all works fine. Then we have a form which contains among other things, a TWebBrowser and a 'Print' button. On click event of the Print button, we call: WebBrowser_Help.ExecWB(OLECMDID_PRINT, 1); Which will bring up printing dialog and print the contents of the TWebBrowser component. The strange thing is that after the Print button clicked, subsequent access to database via ADO components all failed with Exception. The following is a sample exception message: Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another I have tried to close ADOConnection, reopen etc, the database access still doesn't success. Anyone knows how to fix this issue? Edward ___ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: unsubscribe
