Difference between revisions of "ColorBox"

From Lazarus wiki
m (Fixed syntax highlighting)
(Creation at runtime)
Line 53: Line 53:
  
 
<syntaxhighlight lang="pascal">
 
<syntaxhighlight lang="pascal">
 +
Uses ...ColurBox...
 +
 
procedure TForm1.Form1Create(Sender: TObject);
 
procedure TForm1.Form1Create(Sender: TObject);
 
begin
 
begin

Revision as of 15:07, 11 May 2020

Deutsch (de) English (en) français (fr)

About

ColorBox is a component that lets you select any predefined color with preview. There are two predefined palettes available:

  • cpDefault (some frequently used named colors)
  • cpFull (all named colors)

This component was designed for cross-platform applications.

Author

Darius Blaszijk

License

LGPL

Download

Warning-icon.png

Warning: This component is now part of Lazarus/the LCL; the download is only of historical interest.

The download contains the component, and a patch to make use of the cpFull option.

The download can be found on the Lazarus CCR Files page.

Change Log

  • Version 1.0 2005/05/16

Dependencies / System Requirements

  • None

Notes

Status: Beta

Issues: Tested on Windows. Needs testing on Linux.

Installation

Warning-icon.png

Warning: ColorBox is currently included in Lazarus; the instructions below only apply for manual installs

  • Apply the patch colorbox.diff
  • Install the component or create it at runtime

Creation at runtime

To create the component at runtime use the following code :

Uses ...ColurBox...

procedure TForm1.Form1Create(Sender: TObject);
begin
  cbColorBox := TColorBox.Create(Self);
  cbColorBox.Parent := Self;
  cbColorBox.Left := 100;
  cbColorBox.Top := 100;
  cbColorBox.Palette := cpFull;
end;

Make sure you don't forget to declare a global variable cbColorBox.