Show dlgPickList.pas syntax highlighted
{-----------------------------------------------------------------------------
Unit Name: dlgPickList
Author: Kiriakos Vlahos
Date: 10-Mar-2006
Purpose: Generic Pick List dialog
History:
-----------------------------------------------------------------------------}
unit dlgPickList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, CheckLst, Menus, TBXDkPanels;
type
TPickListDialog = class(TForm)
CheckListBox: TCheckListBox;
Panel2: TPanel;
OKButton: TBitBtn;
BitBtn2: TBitBtn;
PickListPopUp: TPopupMenu;
mnSelectAll: TMenuItem;
mnDeselectAll: TMenuItem;
TBXButton1: TTBXButton;
TBXButton2: TTBXButton;
Bevel1: TBevel;
imgIcon: TImage;
lbMessage: TLabel;
procedure mnDeselectAllClick(Sender: TObject);
procedure mnSelectAllClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure SetScrollWidth;
end;
var
PickListDialog: TPickListDialog;
implementation
uses dmCommands, Math;
{$R *.dfm}
procedure TPickListDialog.mnSelectAllClick(Sender: TObject);
var
i : integer;
begin
for i := 0 to CheckListBox.Items.Count - 1 do
CheckListBox.Checked[i] := True;
end;
procedure TPickListDialog.SetScrollWidth;
var
i: integer;
ItemMaxWidth: integer;
begin
ItemMaxWidth := 0;
with CheckListBox do
begin
// Calculate the Max Length
for i := 0 to CheckListBox.Items.Count - 1 do
ItemMaxWidth := Max(CheckListBox.Canvas.TextWidth(CheckListBox.Items[i]),
ItemMaxWidth);
ScrollWidth := ItemMaxWidth + 5;
end;
end;
procedure TPickListDialog.FormCreate(Sender: TObject);
begin
imgIcon.Picture.Icon.Handle := LoadIcon(0, IDI_INFORMATION);
end;
procedure TPickListDialog.mnDeselectAllClick(Sender: TObject);
var
i : integer;
begin
for i := 0 to CheckListBox.Items.Count - 1 do
CheckListBox.Checked[i] := False;
end;
end.
See more files for this project here