Thanks again -- here is image of program. I'll put the link as well, in case it does not show up. And I think I'll try listing the code, although it may not turn out correctly displayed.
http://i13.tinypic.com/339kjg0.jpg
http://www.daniweb.com/techtalkforum....jpg%5B/img%5D
http://i13.tinypic.com/339kjg0.jpg
http://i13.tinypic.com/2rmthj6.jpg
{There may be a problem at TinyPic - cutting off bottom of image.}
{{NO -- I think it's Firefox 2, check in Internet Explorer 7, and image is OK. Such is life.}}
----
Have
Form > Miscellaneous
AlphBlend > set to True
AlphaBlendValue > set to 230 (Usually 255)
FormStyle > fsStayOnTop
Visual > BorderIcons > set to biMaximize False
*Change Button text to Bold > does not appear to work? >> nor colour?
I used to have Componet > dsFancyButton ?? also, that makes great looking buttons.
(Put a credit for (Lord) Loren Soth major help in the exe version info.
Goes well with i8Spooky
)
In days gone by used ASPack to compress my exe's. Reduces size by about 50%.
(This program is for a free forum I set up for BigPond ISP Aust. members.)
http://www.aokforums.com/bigbillabong/bigbillabong.html
It's a Powered by phpBB © 2001-2003 phpBB Group board.
** Interesting thing -- I took a screen capture with Irfanview, and it just captured behind the Form!
So, it was the invisable Form. Maybe capture can handle -- Alpha blend???
-----
unit forum1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, huwStrutils, StdCtrls;
type
TMainForm = class(TForm)
Label1: TLabel;
Label2: TLabel;
ebinput1: TEdit;
ebinput2: TEdit;
Button1add: TButton;
codecombine: TEdit;
Button2selectcopy: TButton;
Button3clear: TButton;
Button4exit: TButton;
procedure Button1addClick(Sender: TObject);
procedure Button2selectcopyClick(Sender: TObject);
procedure Button3clearClick(Sender: TObject);
procedure Button4exitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.Button1addClick(Sender: TObject);
begin
codecombine.text:= '(url=' + ebinput1.text + ')(b)' + ebinput2.text + '(/b)(/url)';
end;
procedure TMainForm.Button2selectcopyClick(Sender: TObject);
begin
codecombine.SelectAll;
codecombine.CopyToClipboard;
end;
procedure TMainForm.Button3clearClick(Sender: TObject);
begin
codecombine.SelectAll;
codecombine.Clear;
end;
procedure TMainForm.Button4exitClick(Sender: TObject);
begin
Close;
end;
end.
I changed the Forum Code from end brackets to () like you suggested.
Yes -- just found F1 Delphi help again.
*I couldn't get a scroll bar on the Edit3 (codecombine), but may not need.
---
XP crashed :evil: -- or FROZE while I was writing this -- had to reboot and drop my Net connection. Luckily Firefox 2 loaded all tabs again, and fortunately the message was still there!
---
Oh, oh, better recompile -- looks like I left 'huwStrutils' in.
Unsolved 
Offline 
