paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-12 00:38:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

added TCheckListBox.OnItemClick

Browse Source 
git-svn-id: trunk@9603 -
This commit is contained in:
mattias 2006-07-14 12:26:39 +00:00
parent b399abb1a0
commit 0e494526fd
2 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/checklst.pas
View File

@ -33,18 +33,20 @@ uses
type
TCheckListClicked = procedure(Sender: TObject; Index: integer) of object;
{ TCustomCheckListBox }
TCustomCheckListBox = class(TCustomListBox)
private
FItemDataOffset: Integer;
FOnClickChecked : tNotifyEvent;
FOnClickChecked : TNotifyEvent;
FOnItemClick: TCheckListClicked;
function GetChecked(const AIndex: Integer): Boolean;
function GetCount: integer;
procedure SetChecked(const AIndex: Integer; const AValue: Boolean);
procedure SendItemChecked(const AIndex: Integer; const AChecked: Boolean);
procedure DoChange(var Msg); message LM_CHANGED;
procedure DoChange(var Msg: TLMessage); message LM_CHANGED;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
protected
procedure AssignItemDataToCache(const AIndex: Integer; const AData: Pointer); override;
@ -58,7 +60,8 @@ type
constructor Create(AOwner: TComponent); override;
property Checked[const AIndex: Integer]: Boolean read GetChecked write SetChecked;
property Count: integer read GetCount;
property OnClickChecked:tNotifyEvent read FOnClickChecked write FOnClickChecked;
property OnClickChecked: TNotifyEvent read FOnClickChecked write FOnClickChecked;
property OnItemClick: TCheckListClicked read FOnItemClick write FOnItemClick;
end;
@ -80,6 +83,7 @@ type
property OnDrawItem;
property OnEnter;
property OnExit;
property OnItemClick;
property OnKeyPress;
property OnKeyDown;
property OnKeyUp;
@ -138,9 +142,11 @@ begin
FItemDataOffset := inherited GetCachedDataSize;
end;
procedure TCustomCheckListBox.DoChange(var Msg);
procedure TCustomCheckListBox.DoChange(var Msg: TLMessage);
begin
clickChecked;
//DebugLn(['TCustomCheckListBox.DoChange ',DbgSName(Self),' ',Msg.WParam]);
ClickChecked;
if Assigned(OnItemClick) then OnItemClick(Self,Msg.WParam);
end;
function TCustomCheckListBox.GetCachedDataSize: Integer;

6
lcl/interfaces/gtk/gtklistsl.inc
View File

@ -135,8 +135,8 @@ function gtkListItemToggledCB(Widget: PGtkWidget; Data: gPointer): GBoolean; cde
var
GtkList: PGtkList;
LCLList: TGtkListStringList;
//ItemIndex: LongInt;
Mess: TLMessage;
ItemIndex: LongInt;
begin
Result:=true;
@ -153,7 +153,7 @@ begin
if [csDestroying,csLoading]*LCLList.Owner.ComponentState<>[] then exit;
// get itemindex and area
//ItemIndex:=g_list_index(GtkList^.children,Data);
ItemIndex:=g_list_index(GtkList^.children,Data);
if LockOnChange(PgtkObject(Widget),0) > 0 then Exit;
@ -163,6 +163,8 @@ begin
Mess.Msg := LM_CHANGED;
Mess.Result := 0;
Mess.WParam := ItemIndex;
//DebugLn(['gtkListItemToggledCB ',ItemIndex]);
DeliverMessage(LCLList.Owner, Mess);
end;