Daniel Kram Message Board Activity

I found Prestwood several years ago but I never introduced myself.My name is Daniel and I've been coding in Delphi on and off, but mostly on, since 1997. At the time, COBOL and BASIC was what I was coding in a client-server environment, before most people even knew what nTier architecture meant. Heck I didn't know, but was doing it.Someone in another department came up to me, presumably after seeking permission from my manager, and asked if I knew Delphi. I said, knew what? Having never heard of Delphi I said no, but was anxious to do something new, so I was transferred to the other department.I didn't what the future was for Delphi and it wasn't to be a .Net, however, Delphi has found me and paid me well over the past decade point five.Take care and talk to you later.

Posted to MB Topic: Member Introductions « PrestwoodBoards Board

Hello and happy new year to all. I am currently in the process of writing a Point-of-Sale, POS, system. I have seen many in person recently and they have fairly simple screens with a few options usually per screen and perhaps some tabs. Color is usually present but not usually overdone. My question, I noticed they all have a gradient type of button in several formats and how do you th ink I should best approach my project to achieve a nice graident button and controls. Here is what I have looked at thus far. 1) Skinning. If I find nothing else, this is the area I will probably land. When I am finished with my research, I will post my findings. Through skinning, I can apply a theme to the Delphi application and at least get a completely different feel than the basic application colors with very little coding. 2) HMI (Human Machine Interface) I do not know much about this, yet, but this seems to be an option. 3) Just DIY, or do-it-yourself - create nice gradient designs in a paint...

Posted to MB Topic: Delphi VCL « Delphi Board

Anas: Wes is correct. Moreover, I cannot share code from the application without breaking copyright rules/laws. Yes, I wrote it, but I do not own it, my employer owns the code - not me. Follow what, Wes, indicates and see where it takes you. I do the same thing with languages I learn such as Ruby, or PHP. The other thing you probably need is a solid understanding of database design. if you do not have a DBA, or database administrator, available to you, I would suggest looking at some materials from "In a Nutshell" series about database design. Another idea: Download a POS available for demo purposes and you may be able to see the tables in SQL Server or MySQL and gather some ideas from their structure. It will help in any case with how to organize a good POS system. Finally, this is one of many great sources for Delphi info: http://delphi.about.com/ Stop back if you have specific questions. We are here to help.

Posted to MB Topic: Delphi VCL « Delphi Board

I am having problems changing the sort order on a DBgrid at runtime (I am using paradox tables). I have pre-defined an index for each field I wish to sort on (in ascending order)., , I can change which column to sort on by clicking in the column title without problems, but changing the ascend/descend order does not work., , I have stepped through my code and the index definition appears to be getting changed correctly but it seems to lose the change when the Indexdefs are updated or the table is reopened. Here is my routine that is called from the OnTitleClick event., , procedure TTimeSeriesForm.Descend(DoDescending: boolean; Column: TColumn);, var, I: Integer;, begin, CatGrid.DataSource.DataSet.DisableControls;, with Datamodule2 do, begin, CSR.Close;, for I := 0 to CSR.IndexDefs.Count - 1 do, if (CSR.IndexDefs.Items.Fields = Column.FieldName) then, begin, if (Not DoDescending) then, CSR.IndexDefs.Items.DescFields :=...

Posted to MB Topic: Delphi Single User Apps « Delphi Board

Wes:True, to your last statement, however, what do you do if the SQL syntax changes between DB systems?I pass everything through a SQL factory and it modifies the SQL statement according to the DB I am attached. For example, BETWEEN is different with Elevate than MySQL than SQL Server, so it must be massaged to be formatted correctly.I have worked with DM before, just not in about 5 years or so and I agree, they are nice in many cases, however, given my choice, I prefer to not use data aware controls - just my choiceHave a great evening, Wes.If Prestwood ever needs an extra hand (wink wink - nudge nudge)

Posted to MB Topic: Delphi Distributed Apps « Delphi Board

I am having problems using the printerSetCurrent() command, it works OK on a machine that I have admin rights on but it will not work on machines were the user does not admin rights, the program locks up when it executes the command. Can anyone confirm that the lack of admin rights is causing the problem and is there a work around? Thanks Bill

Posted to MB Topic: ObjectPAL « Paradox Board

See if this will work for you: var,   PrinterDevice,,   PrinterDriver,,   PrinterPort: array [0..255] of Char;,   PrinterHandle:                 THandle;,   PrintersIndex:                 integer;,   Loop,,   bPrinterFound:                 boolean;, begin,   { set to default printer },   PrintersIndex        := -1;,   try,     bPrinterFound := False;,     for Loop := 0 to Printer.Printers.Count - 1 do,     begin,       Printer.PrinterIndex := Loop;,       Printer.GetPrinter(PrinterDevice, PrinterDriver, PrinterPort, PrinterHandle);,       Printer...

Posted to MB Topic: ObjectPAL « Paradox Board

I have it, just the trial version, but not able to compile in VS 2008 .Net 3.5 Framework. Working on getting things hashed out.

Posted to MB Topic: Delphi Prism « Prism Board

Bought this two days ago. Easy to implement, flexible and everything it says it is: http://eurekalog.com/ Well worth the price.

Posted to MB Topic: Coding Techniques « Coder Board

I am a neophyte programmer. I have figured out how to generate a simple Delphi 7 form with a button in it which will run an executable. , , procedure TForm1.Button1Click(Sender: TObject);, begin, ShellExecute(Form1.Handle, 'open', 'c:\E3238s\bin\E3238s.exe',, nil, nil, SW_SHOWNORMAL);, end;, end., , My problem is I need to know how to access the menus that are a part of this executable. For example how would I access the FILE menu in order to select EXIT.

Posted to MB Topic: Delphi COM / ActiveX / DCOM « Delphi Board

If you created the process, then it is quite easy to close it. Here is how I accomplished this task. uses,   Windows;, ..., private,   ProcInfo: TProcessInformation;, function TfrmMyForm.StartProcesses: boolean;, var,   StartInfo:             TStartupInfo;, begin,    FillChar(StartInfo,SizeOf(TStartupInfo),#0);,    FillChar(ProcInfo,SizeOf(TProcessInformation),#0);,    StartInfo.cb := SizeOf(TStartupInfo);,   CreateProcess(nil, PChar('SomeApplicationToStart.exe'), nil, nil,False,,                 CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS,,                 nil, nil, StartInfo, ProcInfo);,   Result := True;, end; now, to close it: function TfrmMyForm.EndProcess: boolean;, begin,   TerminateProcess(ProcInfo.hPro...

Posted to MB Topic: Delphi COM / ActiveX / DCOM « Delphi Board

Hi, I am new to delphi and would like to understand more about OO techniques. The application I have developed uses ADO technology. I would like to know some basics of how to define a class that uses ADOQUery and ADODatabase objects to connect to the database and perform updates. As I come from VB background I would like to convert my query methods to classes. For example, I have a pas file which has set of query statements and I would like to convert this file to a class. There is a set of functions which takes in a parameter and returns the query string as output. Function buildtestquery(paramname:string; paramname1:string):string;How to build something which is more generic as I dont want to keep increasing the number of inputs to the function as the number of parameters increases. Do I create a class which uses TParam and define the parameters from my form when I need to execute this query? Any explanation and example code will be useful for me to understand this better.Thanks.,

Posted to MB Topic: Object Orientation (OO) « Coder Board

Okay. Sounds good. Sorry I could not write more, but I did not know how to wrap it up nicely inthe time I had at the moment.

Posted to MB Topic: Object Orientation (OO) « Coder Board

>We are also toying with Rave report instead of RTF as Rave apparently can output a PDF quite easily. [wp] I think you're on the right track - turning to a reporting tool.  Rave might do the trick, but I've found it kind of hard to work with. I haven't tried to do exactly what you're describing, but I'd be very surprised if my favorite reporting tool couldn't handle it: Fast Report.  Fast Report also does a fine job of producing PDF output. 

Posted to MB Topic: Delphi News / Other « Delphi Board

I voted. It should be fixed.

Posted to MB Topic: Delphi Object PASCAL « Delphi Board