[b]Borland to Offer Delphi 6 Personal Edition for Free[/b], , [i]Scotts Valley, CA (August 3, 2001)[/i] - Borland Software Corp. is offering Borland Delphi 6 Personal Edition for free. Delphi 6 Personal enables new users to learn how to develop high-performance, non-commercial applications for the Windows platform with the latest technology standards and protocols., , Complete with a 32-bit, optimizing, native code compiler, online help, and examples, Delphi 6 Personal shortens development cycles and can increase developer productivity. The Personal Edition also features a VCL of more than 85 pre-built and reusable, customizable components, including menus, dialogs, TreeViews, and text boxes., , Borland Delphi 6 is the first RAD environment for Windows that fully supports new and emerging Web Services. With Delphi 6, corporate, or individual developers can create next-generation e-business applications quickly and easily. Major features include BizSnap, WebSnap, and DataSnap to enable ...

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

[b]Version Info[/b]: Works with Delphi 2 and higher, , [b]Category[/b]: Multimedia, , [b]Description[/b]: , Use SetWindowRgn API call to make a round form., , The SetWindowRgn function sets the window region of a window. The window region determines the area within the window where the operating system permits drawing. The operating system does not display any portion of a window that lies outside of the window region., , Simply use this function in the FormCreate event:, , , [b]procedure[/b] TForm.FormCreate(Sender: TObject);, [b]var[/b], R1: HRGN;, R2: HRGN;, , [b]begin[/b], R1 := CreateEllipticRgn(1, -1, Width - 1, Height);, R2 := CreateEllipticRgn(50, 50, Width - 50, Height - 50);, CombineRgn(R2, R1, R2, RGN_XOR);, SetWindowRgn(Handle, R2, True);, [b]end[/b];, , , , ------------------, Larry J. Rutledge, , Programmer / Analyst, Prestwood Software & Consulting, 7525 Auburn Blvd., #8, Citrus Heights, CA 95610, , [URL=http://www.prestwood.com]www.pr...

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

I have an excellent beginner's reference to the Clipboard in an article, but I don't remember the source so I am including the text of the article here., ,

---

, , [b]Clipboard in General[/b], As you probably know, the Clipboard can [i]hold[/i] only one piece of data for [i]cut, copy and paste[/i] at one time. In general, it can hold only only one piece of the same kind of data at a time. If we send new information of the same format to the Clipboard, we wipe out what was there before. The contents of the Clipboard stays with the Clipboard even after we paste those contents into another program., , [b]TClipboard[/b], In order to use the Windows Clipboard in our applications, we must add the [b]ClipBrd[/b] unit to the uses clause of the project, except when we restrict cutting, copying and pasting to the components that have built in support for Clipboard methods. Those components are TEdit, TMemo, TOLEContainer, TDDEServerItem, TDBEdit, TDBImage, and TDBMemo., , The ClipBrd unit automa...

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

You can always check Application.ExeName to get the path and filename of the currently running executable. If you only want the Path portion, pass it to ExtractFilePath and if you only want the filename, pass it to ExtractFileName., , Hope this helps,, Larry

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

If all you want is to obtain a list of subdirectories within a specified path, you can use FindFirst/FindNext as in the following code:, , [b]procedure[/b] Form1.GetDirList(sPath: [b]string[/b]);, [b]var[/b], Found: Integer;, SearchRec: TSearchRec;, [b]begin[/b], Found := SysUtils.FindFirst(IncludeTrailingBackslash(sPath) , + '*.*', faDirectory, SearchRec);, [b]try[/b], [b]while[/b] Found = 0 [b]do[/b], [b]begin[/b], [b]if[/b] ((SearchRec.Attr [b]and[/b] faDirectory) = faDirectory) [b]and[/b] (SearchRec.Name[1] <> '.') [b]then[/b], ListBox1.Items.Add(SearchRec.Name);, Found := SysUtils.FindNext(SearchRec);, [b]end[/b];, [b]finally[/b], SysUtils.FindClose(SearchRec);, [b]end[/b];, [b]end[/b];However, if you want to get the subdirectories within a specified path AND the subdirectories under those, then you need to use a recursive procedure. A recursive procedure (or function) is one that calls itself. ([b]NOTE[/b]: The most important th...

Posted to MB Topic: Delphi Object PASCAL « Delphi Board

Thanks for letting me know. I hadn't checked the file, so I was unaware. I will remove the message immediately!

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