You've already forked lazarus-ccr
dbe8be2238
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6614 8e941d3f-bd1b-0410-a28a-d453659cc2b4
155 lines
4.0 KiB
ObjectPascal
155 lines
4.0 KiB
ObjectPascal
{-----------------------------------------------------------------------------
|
|
The contents of this file are subject to the Mozilla Public License
|
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
|
with the License. You may obtain a copy of the License at
|
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
|
|
|
Software distributed under the License is distributed on an "AS IS" basis,
|
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
|
the specific language governing rights and limitations under the License.
|
|
|
|
The Original Code is: JvOwnerDrawViewer.PAS, released on 2003-12-01.
|
|
|
|
The Initial Developer of the Original Code is: Peter Thörnqvist
|
|
All Rights Reserved.
|
|
Lazarus port: Micha³ Gawrycki
|
|
|
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
|
located at http://jvcl.delphi-jedi.org
|
|
|
|
Known Issues:
|
|
-----------------------------------------------------------------------------}
|
|
// $Id$
|
|
|
|
unit JvOwnerDrawViewer;
|
|
|
|
{.$I jvcl.inc}
|
|
{$MODE OBJFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, Graphics, JvCustomItemViewer;
|
|
|
|
type
|
|
TJvOwnerDrawViewerOptions = class(TJvCustomItemViewerOptions)
|
|
published
|
|
property Alignment;
|
|
property AutoCenter;
|
|
property BrushPattern;
|
|
property DragAutoScroll;
|
|
property Height;
|
|
property HorzSpacing;
|
|
property HotTrack;
|
|
property Layout;
|
|
property LazyRead;
|
|
property MultiSelect;
|
|
property RightClickSelect;
|
|
property ScrollBar;
|
|
property ShowCaptions;
|
|
property Smooth;
|
|
property Tracking;
|
|
property VertSpacing;
|
|
property Width;
|
|
end;
|
|
|
|
TJvOwnerDrawViewer = class(TJvCustomItemViewer)
|
|
private
|
|
function GetOptions: TJvOwnerDrawViewerOptions;
|
|
procedure SetOptions(const Value: TJvOwnerDrawViewerOptions);
|
|
protected
|
|
function GetOptionsClass: TJvItemViewerOptionsClass; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
property Count;
|
|
property Items;
|
|
published
|
|
property Options: TJvOwnerDrawViewerOptions read GetOptions write SetOptions;
|
|
property SelectedIndex;
|
|
property OnDrawItem;
|
|
property OnOptionsChanged;
|
|
property OnItemChanging;
|
|
property OnItemChanged;
|
|
property OnItemHint;
|
|
property OnDeletion;
|
|
property OnInsertion;
|
|
|
|
property Align;
|
|
property Anchors;
|
|
// property BiDiMode;
|
|
property BorderSpacing;
|
|
property BorderStyle;
|
|
property BorderWidth;
|
|
property Color;
|
|
property Constraints;
|
|
property DockSite;
|
|
property DragCursor;
|
|
property DragKind;
|
|
property DragMode;
|
|
property Enabled;
|
|
property Font;
|
|
// property ParentBiDiMode;
|
|
property ParentColor;
|
|
property ParentFont;
|
|
property ParentShowHint;
|
|
property PopupMenu;
|
|
property ShowHint;
|
|
property TabOrder;
|
|
property TabStop;
|
|
property Visible;
|
|
property OnClick;
|
|
property OnContextPopup;
|
|
property OnDblClick;
|
|
property OnDragDrop;
|
|
property OnDockDrop;
|
|
property OnDockOver;
|
|
property OnDragOver;
|
|
property OnEndDock;
|
|
property OnEndDrag;
|
|
property OnEnter;
|
|
property OnExit;
|
|
property OnGetSiteInfo;
|
|
property OnMouseDown;
|
|
property OnMouseMove;
|
|
property OnMouseUp;
|
|
property OnMouseEnter;
|
|
property OnMouseLeave;
|
|
property OnMouseWheel;
|
|
property OnMouseWheelDown;
|
|
property OnMouseWheelUp;
|
|
property OnKeyDown;
|
|
property OnKeyUp;
|
|
property OnKeyPress;
|
|
property OnResize;
|
|
property OnStartDock;
|
|
property OnStartDrag;
|
|
property OnUnDock;
|
|
property OnUTF8KeyPress;
|
|
end;
|
|
|
|
implementation
|
|
|
|
|
|
constructor TJvOwnerDrawViewer.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
Color := clWindow;
|
|
end;
|
|
|
|
function TJvOwnerDrawViewer.GetOptions: TJvOwnerDrawViewerOptions;
|
|
begin
|
|
Result := TJvOwnerDrawViewerOptions(inherited Options);
|
|
end;
|
|
|
|
function TJvOwnerDrawViewer.GetOptionsClass: TJvItemViewerOptionsClass;
|
|
begin
|
|
Result := TJvOwnerDrawViewerOptions;
|
|
end;
|
|
|
|
procedure TJvOwnerDrawViewer.SetOptions(const Value: TJvOwnerDrawViewerOptions);
|
|
begin
|
|
inherited Options := Value;
|
|
end;
|
|
|
|
end.
|