134 lines
4.1 KiB
Plaintext
134 lines
4.1 KiB
Plaintext
CoolForm 1.5 component for Delphi 3 AND 4
|
|
|
|
|
|
IMPORTANT
|
|
|
|
You can download new versions directly at http://www.lawrenz.com/coolform/
|
|
|
|
VERY IMPORTANT!!!!!!!!!!!!
|
|
As we haven't received ANY beer yet, we would strongly advise you to get in gear and send some brew. Or else!
|
|
|
|
|
|
|
|
|
|
New Features:
|
|
|
|
15.9.1998
|
|
Coolform1.5 compatible with Delphi 4
|
|
Included unit ExtMaskgenerator (see below)
|
|
Fixed several bugs
|
|
had to buy some beer
|
|
14.9.1998
|
|
got very thirsty
|
|
13.9.1998
|
|
got thirsty
|
|
3.5.1998
|
|
Added loading of masks at runtime.
|
|
Added 0.9 to the version number.
|
|
(That's what most of you've been asking for, ain't it?)
|
|
2.5.1998
|
|
Fixed the IDE Hangups when black is selected as transparent color
|
|
Replaced the OpenDialog with OpenPictureDialog
|
|
(Thanks, Garth!)
|
|
1.3.1998
|
|
CoolButton included
|
|
25.2.1998
|
|
Fixed the Access Violation Problem
|
|
Fixed the 'Canvas does not allow drawing' Problem
|
|
Improved the performance of the mask generator
|
|
|
|
|
|
|
|
Authors:
|
|
|
|
Tim Lawrenz
|
|
tim@lawrenz.com
|
|
|
|
Max Muermann
|
|
muermann@stud.uni-frankfurt.de
|
|
|
|
|
|
Legal Notice:
|
|
|
|
This component is BeerWare for personal use. No responsibilities taken whatsoever.
|
|
BeerWare means:
|
|
|
|
1) If you want to use this component for commercial use or
|
|
2) if you want to use this component for personal use and think that this
|
|
component is worth to do it,
|
|
|
|
you have to send us 20 bottles of beer (or the money for it) (or for german developers:
|
|
'nen Kasten Bier).
|
|
|
|
|
|
Installation:
|
|
|
|
From the Delphi IDE, choose Components/install packages from the menu, Select
|
|
'Add' (or something like that, only german version available here). Find Component\Cool.dpl,
|
|
Click OK. There should be a new tab in the component palette named 'Cool'.
|
|
|
|
Usage:
|
|
|
|
ExtMaskgenerator
|
|
|
|
The unit ExtMaskGenerator.pas contains one function: ExtGenerateMask(TBitmap, TColor, String);
|
|
You call the function with the bitmap you want to use as the mask, the color that will be transparent
|
|
and the filename where you want to store the mask data. You can then load the mask into a TCoolForm
|
|
with LoadMaskFromFile.
|
|
See XDollDemo.zip for some source and a nice picture.
|
|
|
|
CoolForm 1.5
|
|
|
|
Just drop the CoolForm component directly on a Form.
|
|
Load a bitmap, just like with any TImage component.
|
|
Double-click the Mask property. (the cool-looking mask editor appears)
|
|
You can use the image you just loaded as a source for the mask, or you can load an
|
|
external bmp to use as mask source.
|
|
Clicking anywhere on the image selects the transparent color. This color is
|
|
shown in the upper right corner of the window.
|
|
The Ok-Button (checkmark) starts the mask generation (takes some time, no optimizations yet),
|
|
but you'll have to do it only once.
|
|
Compile and start your program and marvel at the wonders to behold.
|
|
If you want your form to be draggable, set the Draggable property to true, otherwise don't.
|
|
You can place any standard delphi component on the CoolForm, just bear in mind that components
|
|
outside the masked area don't show. We suggest using BitButtons with Flat set to true.
|
|
Look at the demo.
|
|
|
|
|
|
Runtime loading: In the maskeditor, hit the 'save mask' AFTER having created a mask (you'll have
|
|
to bring up the maskeditor twice, sorry).
|
|
In your application, call CoolForm1.LoadMaskFromFile (FileName); It will return true if successfull,
|
|
false if not.
|
|
|
|
CoolButton 1.3
|
|
|
|
The TCoolButton component is a button derived from a standard delphi SpeedButton - only cooler.
|
|
The glyph *HAS* to contain four (4) equally sized bitmaps, of which the first describes the
|
|
button in normal state, the second is the disabled button, the third one contains the image
|
|
if the pressed button, the fourth one is displayed when the mouse cursor is over the button.
|
|
We're drunk, so don't blame us.
|
|
Oh, man, it's just a simple button! What do you want to know about it?
|
|
|
|
|
|
|
|
|
|
Future enhancements:
|
|
|
|
If we don't receive some beer soon, there will be no more enhancements. Thats it.
|
|
|
|
Bugreports:
|
|
|
|
Please report any bugs you should encounter with a detailed
|
|
description (or even some source code) to any of the abovementioned EMail-addresses
|
|
|
|
MailingList:
|
|
|
|
Visit the Coolform Homepage for instructions on how to get on the mailinglist (we don't quite remember now).
|
|
|
|
|
|
|
|
Have fun.
|
|
|
|
|
|
|