jvcllaz: Add TJvPanel (and related infrastructure).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7001 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/design/JvCore/jvcorereg.pas

@@ -4,10 +4,18 @@ unit JvCoreReg;
 
 interface
 
-uses
-  SysUtils;
+procedure Register;
 
 implementation
 
+uses
+  PropEdits,
+  JvTypes, JvDsgnEditors;
+
+procedure Register;
+begin
+  RegisterPropertyEditor(TypeInfo(TJvPersistentProperty), nil, '', TJvPersistentPropertyEditor);
+end;
+
 end.
 

components/jvcllaz/design/JvCore/jvdsgneditors.pas

@@ -0,0 +1,932 @@
+{-----------------------------------------------------------------------------
+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: JvDsgnEditors.PAS, released on 2002-05-26.
+
+The Initial Developer of the Original Code is Peter Th�rnqvist [peter3 att users dott sourceforge dott net]
+Portions created by Peter Th�rnqvist are Copyright (C) 2002 Peter Th�rnqvist.
+All Rights Reserved.
+
+Contributor(s):
+
+Added editors for JvFooter and JvGroupHeader
+
+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 JvDsgnEditors;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  SysUtils, Classes, PropEdits;
+  {
+  Windows, Forms, Controls, Graphics, ExtCtrls, Dialogs,
+  ExtDlgs, Menus, StdCtrls, ImgList, Tabs,
+  ImgEdit, TypInfo, DsnConst,
+  RTLConsts, DesignIntf, DesignEditors, DesignMenus, VCLEditors,
+  FiltEdit,
+  Classes, SysUtils;
+  }
+
+type
+  // Special TJvPersistent property editor, that allow show event properties
+  // This is useful with version 5 and up --created by dejoy
+  TJvPersistentPropertyEditor = class(TPersistentPropertyEditor) //ComponentProperty)
+  private
+    FInstance: TPersistent;
+  protected
+    function GetInstance: TPersistent; virtual; //d5/d6
+  public
+    procedure Initialize; override; //d5/d6
+    function GetValue: string; override; //d5/d6
+    property Instance: TPersistent read GetInstance;
+  end;
+
+(********************** NOT CONVERTED ****
+  TJvHintProperty = class(TStringProperty)
+  public
+    function GetAttributes: TPropertyAttributes; override;
+    procedure Edit; override;
+  end;
+
+  TJvFilenameProperty = class(TStringProperty)
+  protected
+    procedure OnDialogShow(Sender: TObject); virtual;
+    function GetFilter: string; virtual;
+    function GetOptions: TOpenOptions; virtual;
+  public
+    procedure Edit; override;
+    function GetAttributes: TPropertyAttributes; override;
+    function GetValue: string; override;
+  end;
+
+  TJvExeNameProperty = class(TJvFilenameProperty)
+  protected
+    function GetFilter: string; override;
+  end;
+
+  TJvDirectoryProperty = class(TStringProperty)
+  public
+    procedure Edit; override;
+    function GetAttributes: TPropertyAttributes; override;
+    function GetValue: string; override;
+  end;
+
+  TJvStringsProperty = class(TStringProperty)
+  public
+    function GetAttributes: TPropertyAttributes; override;
+    procedure Edit; override;
+  end;
+
+  TJvBasePropertyEditor = class(TDefaultEditor)
+  protected
+    procedure EditProperty(const Prop: IProperty; var Continue: Boolean); override;
+    function GetEditPropertyName: string; virtual; abstract;
+  public
+    procedure ExecuteVerb(Index: Integer); override;
+    function GetVerb(Index: Integer): string; override;
+    function GetVerbCount: Integer; override;
+  end;
+
+  TJvStringsEditor = class(TJvBasePropertyEditor)
+  protected
+    function GetEditPropertyName: string; override;
+  end;
+
+  TJvItemsEditor = class(TJvBasePropertyEditor)
+  protected
+    function GetEditPropertyName: string; override;
+  end;
+
+  TJvDateTimeExProperty = class(TDateTimeProperty)
+  public
+    procedure Edit; override;
+    function GetAttributes: TPropertyAttributes; override;
+  end;
+
+  TJvDateExProperty = class(TDateProperty)
+  public
+    procedure Edit; override;
+    function GetAttributes: TPropertyAttributes; override;
+  end;
+
+  TJvTimeExProperty = class(TTimeProperty)
+  public
+    procedure Edit; override;
+    function GetAttributes: TPropertyAttributes; override;
+  end;
+
+  TJvShortCutProperty = class(TIntegerProperty)
+  public
+    function GetAttributes: TPropertyAttributes; override;
+    procedure GetValues(Proc: TGetStrProc); override;
+    function GetValue: string; override;
+    procedure SetValue(const Value: string); override;
+  end;
+
+  TJvDefaultImageIndexProperty = class(TIntegerProperty, ICustomPropertyDrawing, ICustomPropertyListDrawing)
+  protected
+    function ImageList: TCustomImageList; virtual;
+  public
+    function GetAttributes: TPropertyAttributes; override;
+    procedure GetValues(Proc: TGetStrProc); override;
+    function GetValue: string; override;
+    procedure SetValue(const Value: string); override;
+    procedure ListMeasureWidth(const Value: string;
+      ACanvas: TCanvas; var AWidth: Integer); virtual;
+    procedure ListMeasureHeight(const Value: string;
+      ACanvas: TCanvas; var AHeight: Integer); virtual;
+    procedure ListDrawValue(const Value: string;
+      ACanvas: TCanvas; const ARect: TRect; ASelected: Boolean); virtual;
+    procedure PropDrawName(ACanvas: TCanvas; const ARect: TRect;
+      ASelected: Boolean);
+    procedure PropDrawValue(ACanvas: TCanvas; const ARect: TRect;
+      ASelected: Boolean);
+  end;
+
+  TJvNosortEnumProperty = class(TEnumProperty)
+  public
+    function GetAttributes: TPropertyAttributes; override;
+  end;
+
+  TJvIntegerProperty = class(TIntegerProperty)
+  public
+    function GetValue: string; override;
+    procedure SetValue(const Value: string); override;
+  end;
+
+  TJvFloatProperty = class(TFloatProperty)
+  public
+    function GetValue: string; override;
+    procedure SetValue(const Value: string); override;
+  end;
+                  
+  TJvImageListEditor = class(TComponentEditor)
+  private
+    procedure SaveAsBitmap(ImageList: TImageList);
+  public
+    procedure ExecuteVerb(Index: Integer); override;
+    function GetVerb(Index: Integer): string; override;
+    function GetVerbCount: Integer; override;
+  end;
+
+  TJvWeekDayProperty = class(TEnumProperty)
+    function GetAttributes: TPropertyAttributes; override;
+  end;
+
+  TJvComponentFormProperty = class(TComponentProperty)
+  public
+    procedure GetValues(Proc: TGetStrProc); override;
+    procedure SetValue(const Value: string); override;
+  end;
+********************************)
+
+implementation
+
+uses
+  TypInfo,
+  JvDsgnConsts, JvTypes;
+(*
+  Math, FileCtrl, //Consts,
+  Registry,
+  Dlgs, JvDateTimeForm,
+  JvTypes, JvStringsForm, JvDsgnConsts, JvConsts;
+  *)
+
+function ValueName(E: Extended): string;
+begin
+  if E = High(Integer) then
+    Result := RsMaxInt
+  else
+  if E = Low(Integer) then
+    Result := RsMinInt
+  else
+  if E = High(Longint) then
+    Result := RsMaxLong
+  else
+  if E = Low(Longint) then
+    Result := RsMinLong
+  else
+  if E = High(Shortint) then
+    Result := RsMaxShort
+  else
+  if E = Low(Shortint) then
+    Result :=RsMinShort
+  else
+  if E = High(Word) then
+    Result := RsMaxWord
+  else
+    Result := '';
+end;
+
+function StrToValue(const S: string): Longint;
+begin
+  if CompareText(S, RsMaxLong) = 0 then
+    Result := High(Longint)
+  else
+  if CompareText(S, RsMinLong) = 0 then
+    Result := Low(Longint)
+  else
+  if CompareText(S, RsMaxInt) = 0 then
+    Result := High(Integer)
+  else
+  if CompareText(S, RsMinInt) = 0 then
+    Result := Low(Integer)
+  else
+  if CompareText(S, RsMaxShort) = 0 then
+    Result := High(Shortint)
+  else
+  if CompareText(S, RsMinShort) = 0 then
+    Result := Low(Shortint)
+  else
+  if CompareText(S, RsMaxWord) = 0 then
+    Result := High(Word)
+  else
+    Result := 0;
+end;
+
+//=== { TJvPersistentPropertyEditor } ================================================
+
+function TJvPersistentPropertyEditor.GetInstance: TPersistent;
+var
+  LInstance: TPersistent;
+  LPersistentPropertyName: string;
+begin
+  if not Assigned(FInstance) then
+  begin
+    LInstance := GetComponent(0);
+    LPersistentPropertyName := GetName;
+    if IsPublishedProp(LInstance, LPersistentPropertyName) then
+    begin
+      FInstance := TPersistent(GetObjectProp(LInstance, LPersistentPropertyName));
+    end;
+  end;
+  Result := FInstance;
+end;
+
+ //Set property name in property editor procedure "Initialize" dynamically,
+ //Do't set property name in property constructor Create,that will raise a
+ //SDuplicateName error if
+ //you have more then one TJvPersistent property in a component.
+ //Like this 'A component named xx already exists'
+procedure TJvPersistentPropertyEditor.Initialize;
+var
+  LInstance: TPersistent;
+  LPersistentPropertyName: string;
+begin
+  inherited Initialize;
+  LInstance := Instance;  
+  LPersistentPropertyName := GetName;
+  if LInstance is TComponent then
+  begin
+    if (TComponent(LInstance).Name = '') and
+    (TComponent(LInstance).Name <> LPersistentPropertyName) then
+    begin
+      TComponent(LInstance).Name := LPersistentPropertyName;
+    end;
+  end else
+  if LInstance is TJvPersistent then
+  begin
+    if (TJvPersistent(LInstance).Name = '') and
+    (TJvPersistent(LInstance).Name <> LPersistentPropertyName) then
+    begin
+      TJvPersistent(LInstance).Name := LPersistentPropertyName;
+    end;
+  end;
+end;
+
+function TJvPersistentPropertyEditor.GetValue:string;
+begin
+  FmtStr(Result, '(%s)', [GetPropType^.Name]);
+end;
+
+
+(************************** NOT CONVERTED **************************************
+
+//=== { TJvFilenameProperty } ================================================
+
+procedure TJvFilenameProperty.Edit;
+begin
+  with TOpenDialog.Create(nil) do
+  try
+    FileName := GetStrValue;
+    Filter := GetFilter;
+    Options := GetOptions;
+    OnShow := OnDialogShow;
+    if Execute then
+      SetStrValue(FileName);
+  finally
+    Free;
+  end;
+end;
+
+function TJvFilenameProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paDialog, paRevertable];
+end;
+
+function TJvFilenameProperty.GetFilter: string;
+begin
+  Result := RsAllFilesFilter;
+end;
+
+function TJvFilenameProperty.GetOptions: TOpenOptions;
+begin
+  Result := [ofHideReadOnly, ofEnableSizing];
+end;
+
+function TJvFilenameProperty.GetValue: string;
+begin
+  Result := inherited GetValue;
+  if Result = '' then
+    Result := RsFileName;
+end;
+
+//=== { TJvDirectoryProperty } ===============================================
+
+procedure TJvDirectoryProperty.Edit;
+var
+  AName: string;
+  FolderName: THintString; // (ahuser) TCaption is "type Xxxstring", THintString is "Xxxstring"
+  C: TPersistent;
+begin
+  C := GetComponent(0);
+  if C is TComponent then
+    AName := TComponent(C).Name
+  else
+  if C is TCollectionItem then
+    AName := TCollectionItem(C).GetNamePath
+  else
+    AName := C.ClassName;
+  if SelectDirectory(AName + '.' + GetName, '', FolderName) then
+    SetValue(FolderName);
+end;
+
+function TJvDirectoryProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paDialog, paRevertable];
+end;
+
+function TJvDirectoryProperty.GetValue: string;
+begin
+  Result := inherited GetValue;
+  if Result = '' then
+    Result := RsDirectory;
+end;
+
+//=== { TJvHintProperty } ====================================================
+
+function TJvHintProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := {inherited GetAttributes +} [paDialog];
+end;
+
+procedure TJvHintProperty.Edit;
+var
+  Temp: string;
+  Comp: TPersistent;
+begin
+  with TJvStrEditDlg.Create(Application) do
+  try
+    Comp := GetComponent(0);
+    if Comp is TComponent then
+      Caption := TComponent(Comp).Name + '.' + GetName
+    else
+      Caption := GetName;
+    Temp := GetStrValue;
+    Memo.Lines.Text := Temp;
+    UpdateStatus(nil);
+    if ShowModal = mrOk then
+    begin
+      Temp := Memo.Text;
+      while (Length(Temp) > 0) and (Temp[Length(Temp)] < ' ') do
+        System.Delete(Temp, Length(Temp), 1);
+      SetStrValue(Temp);
+    end;
+  finally
+    Free;
+  end;
+end;
+
+//=== { TJvStringsProperty } =================================================
+
+procedure TJvStringsProperty.Edit;
+var
+  Temp: string;
+  Comp: TPersistent;
+begin
+  with TJvStrEditDlg.Create(Application) do
+  try
+    Comp := GetComponent(0);
+    if Comp is TComponent then
+      Caption := TComponent(Comp).Name + '.' + GetName
+    else
+      Caption := GetName;
+    Temp := GetStrValue;
+    Memo.Lines.Text := Temp;
+    UpdateStatus(nil);
+    if ShowModal = mrOk then
+    begin
+      Temp := Memo.Text;
+      while (Length(Temp) > 0) and (Temp[Length(Temp)] < ' ') do
+        System.Delete(Temp, Length(Temp), 1);
+      SetStrValue(Temp);
+    end;
+  finally
+    Free;
+  end;
+end;
+
+function TJvStringsProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paDialog, paRevertable];
+end;
+
+//=== { TJvBasePropertyEditor } ==============================================
+
+procedure TJvBasePropertyEditor.EditProperty(const Prop: IProperty; var Continue: Boolean);
+var
+  PropName: string;
+begin
+  PropName := Prop.GetName;
+  if SameText(PropName, GetEditPropertyName) then
+  begin
+    Prop.Edit;
+    Continue := False;
+  end;
+end;
+
+procedure TJvBasePropertyEditor.ExecuteVerb(Index: Integer);
+begin
+  if Index = 0 then
+    Edit
+  else
+    inherited ExecuteVerb(Index);
+end;
+
+function TJvBasePropertyEditor.GetVerb(Index: Integer): string;
+begin
+  if Index = 0 then
+    Result := Format(RsFmtEditEllipsis, [GetEditPropertyName])
+  else
+    Result := '';
+end;
+
+function TJvBasePropertyEditor.GetVerbCount: Integer;
+begin
+  Result := 1;
+end;
+
+//=== { TJvDateTimeExProperty } ==============================================
+
+procedure TJvDateTimeExProperty.Edit;
+var
+  D: TDateTime;
+begin
+  D := GetFloatValue;
+  if D = 0.0 then
+    D := Now;
+  if TFrmSelectDateTimeDlg.SelectDateTime(D, dstDateTime) then
+  begin
+    SetFloatValue(D);
+    Designer.Modified;
+  end;
+end;
+
+function TJvDateTimeExProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := inherited GetAttributes + [paDialog];
+end;
+
+//=== { TJvDateExProperty } ==================================================
+
+procedure TJvDateExProperty.Edit;
+var
+  D: TDateTime;
+begin
+  D := GetFloatValue;
+  if D = 0.0 then
+    D := Now;
+  if TFrmSelectDateTimeDlg.SelectDateTime(D, dstDate) then
+  begin
+    SetFloatValue(D);
+    Designer.Modified;
+  end;
+end;
+
+function TJvDateExProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := inherited GetAttributes + [paDialog];
+end;
+
+//=== { TJvTimeExProperty } ==================================================
+
+procedure TJvTimeExProperty.Edit;
+var
+  D: TDateTime;
+begin
+  D := GetFloatValue;
+  if D = 0.0 then
+    D := Now
+  else // (p3) we need the date part or we might get a "Must be in ShowCheckBox mode" error
+    D := SysUtils.Date + Frac(D);
+  if TFrmSelectDateTimeDlg.SelectDateTime(D, dstTime) then
+  begin
+    SetFloatValue(Frac(D)); // (p3) only return the time portion
+    Designer.Modified;
+  end;
+end;
+
+function TJvTimeExProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := inherited GetAttributes + [paDialog];
+end;
+
+//=== { TJvDefaultImageIndexProperty } =======================================
+
+function TJvDefaultImageIndexProperty.ImageList: TCustomImageList;
+const
+  cImageList = 'ImageList';
+  cImages = 'Images';
+begin
+  if TypInfo.GetPropInfo(GetComponent(0), cImageList) <> nil then
+    Result := TCustomImageList(TypInfo.GetObjectProp(GetComponent(0), cImageList))
+  else
+  if TypInfo.GetPropInfo(GetComponent(0), cImages) <> nil then
+    Result := TCustomImageList(TypInfo.GetObjectProp(GetComponent(0), cImages))
+  else
+    Result := nil;
+end;
+
+function TJvDefaultImageIndexProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paValueList, paMultiSelect, paRevertable];
+end;
+
+function TJvDefaultImageIndexProperty.GetValue: string;
+begin
+  Result := IntToStr(GetOrdValue);
+end;
+
+procedure TJvDefaultImageIndexProperty.SetValue(const Value: string);
+var
+  XValue: Integer;
+begin
+  try
+    XValue := StrToInt(Value);
+    SetOrdValue(XValue);
+  except
+    inherited SetValue(Value);
+  end;
+end;
+
+procedure TJvDefaultImageIndexProperty.GetValues(Proc: TGetStrProc);
+var
+  Tmp: TCustomImageList;
+  I: Integer;
+begin
+  Tmp := ImageList;
+  if Assigned(Tmp) then
+    for I := 0 to Tmp.Count - 1 do
+      Proc(IntToStr(I));
+end;
+
+procedure TJvDefaultImageIndexProperty.ListMeasureWidth(const Value: string; ACanvas: TCanvas; var AWidth: Integer);
+var
+  Tmp: TCustomImageList;
+begin
+  Tmp := ImageList;
+  if Assigned(Tmp) then
+    AWidth := Tmp.Width + ACanvas.TextHeight(Value) + 4;
+end;
+
+procedure TJvDefaultImageIndexProperty.ListMeasureHeight(const Value: string; ACanvas: TCanvas; var AHeight: Integer);
+var
+  Tmp: TCustomImageList;
+begin
+  Tmp := ImageList;
+  if Assigned(Tmp) then
+    AHeight := Max(Tmp.Height + 2, ACanvas.TextHeight(Value) + 2);
+end;
+
+procedure TJvDefaultImageIndexProperty.ListDrawValue(const Value: string; ACanvas:
+  TCanvas; const ARect: TRect; ASelected: Boolean);
+var
+  Tmp: TCustomImageList;
+  R: TRect;
+begin
+  DefaultPropertyListDrawValue(Value, ACanvas, ARect, ASelected);
+  Tmp := ImageList;
+  if Tmp <> nil then
+  begin
+    R := ARect;
+    ACanvas.FillRect(ARect);
+    Tmp.Draw(ACanvas, ARect.Left, ARect.Top, StrToInt(Value));
+    OffsetRect(R, Tmp.Width + 2, 0);
+    DrawText(ACanvas.Handle, PChar(Value), -1, R, 0);
+  end;
+end;
+
+procedure TJvDefaultImageIndexProperty.PropDrawName(ACanvas: TCanvas;
+  const ARect: TRect; ASelected: Boolean);
+begin
+  DefaultPropertyDrawName(Self, ACanvas, ARect);
+end;
+
+procedure TJvDefaultImageIndexProperty.PropDrawValue(ACanvas: TCanvas;
+  const ARect: TRect; ASelected: Boolean);
+var
+  Tmp: TCustomImageList;
+begin
+  Tmp := ImageList;
+  if (GetVisualValue <> '') and Assigned(Tmp) then
+    ListDrawValue(GetVisualValue, ACanvas, ARect, ASelected)
+  else
+    DefaultPropertyDrawValue(Self, ACanvas, ARect);
+end;
+
+//=== { TJvShortCutProperty } ================================================
+
+function TJvShortCutProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paValueList, paMultiSelect, paRevertable];
+end;
+
+function TJvShortCutProperty.GetValue: string;
+begin
+  try
+    Result := ShortCutToText(GetOrdValue);
+    if Result = '' then
+      Result := RsNone;
+  except
+    Result := inherited GetValue;
+  end;
+end;
+
+procedure TJvShortCutProperty.GetValues(Proc: TGetStrProc);
+var
+  Key: Word;
+  Shift: TShiftState;
+begin
+  Proc(RsNone);
+
+  Shift := [ssCtrl];
+  for Key := Ord('A') to Ord('Z') do
+    Proc(ShortCutToText(ShortCut(Key, Shift)));
+
+  Shift := [ssAlt, ssCtrl];
+  for Key := Ord('A') to Ord('Z') do
+    Proc(ShortCutToText(ShortCut(Key, Shift)));
+
+  Shift := [];
+  for Key := VK_F1 to VK_F10 do
+    Proc(ShortCutToText(ShortCut(Key, Shift)));
+
+  Shift := [ssCtrl];
+  for Key := VK_F1 to VK_F10 do
+    Proc(ShortCutToText(ShortCut(Key, Shift)));
+
+  Shift := [ssShift];
+  for Key := VK_F1 to VK_F10 do
+    Proc(ShortCutToText(ShortCut(Key, Shift)));
+
+  Shift := [ssShift, ssCtrl];
+  for Key := VK_F1 to VK_F10 do
+    Proc(ShortCutToText(ShortCut(Key, Shift)));
+
+  Shift := [ssShift, ssAlt, ssCtrl];
+  for Key := VK_F1 to VK_F10 do
+    Proc(ShortCutToText(ShortCut(Key, Shift)));
+
+  Proc(ShortCutToText(ShortCut(VK_INSERT, [])));
+  Proc(ShortCutToText(ShortCut(VK_INSERT, [ssShift])));
+  Proc(ShortCutToText(ShortCut(VK_INSERT, [ssCtrl])));
+
+  Proc(ShortCutToText(ShortCut(VK_DELETE, [])));
+  Proc(ShortCutToText(ShortCut(VK_DELETE, [ssShift])));
+  Proc(ShortCutToText(ShortCut(VK_DELETE, [ssCtrl])));
+
+  Proc(ShortCutToText(ShortCut(VK_BACK, [ssAlt])));
+  Proc(ShortCutToText(ShortCut(VK_BACK, [ssAlt, ssShift])));
+end;
+
+procedure TJvShortCutProperty.SetValue(const Value: string);
+begin
+  try
+    SetOrdValue(TextToShortCut(Value));
+  except
+    inherited SetValue(Value);
+  end;
+end;
+
+//=== { TJvNosortEnumProperty } ==============================================
+
+function TJvNosortEnumProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := inherited GetAttributes - [paSortList];
+end;
+
+procedure TJvFilenameProperty.OnDialogShow(Sender: TObject);
+begin
+  SetDlgItemText(GetParent(TOpenDialog(Sender).Handle), chx1, PChar(RsStripFilePath));
+end;
+
+//=== { TJvExeNameProperty } =================================================
+
+function TJvExeNameProperty.GetFilter: string;
+begin
+  Result := RsExecutableFilesExeExeAllFiles;
+end;
+
+//=== { TJvIntegerProperty } =================================================
+
+function TJvIntegerProperty.GetValue: string;
+begin
+  Result := ValueName(GetOrdValue);
+  if Result = '' then
+    Result := IntToStr(GetOrdValue);
+end;
+
+procedure TJvIntegerProperty.SetValue(const Value: string);
+var
+  L: Longint;
+begin
+  L := StrToValue(Value);
+  if L = 0 then
+    L := StrToInt(Value);
+  inherited SetValue(IntToStr(L));
+end;
+
+//=== { TJvFloatProperty } ===================================================
+
+function TJvFloatProperty.GetValue: string;
+const
+  Precisions: array [TFloatType] of Integer = (7, 15, 18, 18, 18);
+begin
+  Result := ValueName(GetFloatValue);
+  if Result = '' then
+    Result := FloatToStrF(GetFloatValue, ffGeneral,
+      Precisions[GetTypeData(GetPropType)^.FloatType], 0);
+end;
+
+procedure TJvFloatProperty.SetValue(const Value: string);
+var
+  L: Longint;
+begin
+  L := StrToValue(Value);
+  if L <> 0 then
+    SetFloatValue(L)
+  else
+    SetFloatValue(StrToFloat(Value));
+end;
+
+procedure TJvImageListEditor.SaveAsBitmap(ImageList: TImageList);
+var
+  Bitmap: TBitmap;
+  SaveDlg: TOpenDialog;
+  I: Integer;
+begin
+  if ImageList.Count > 0 then
+  begin
+    SaveDlg := TSavePictureDialog.Create(Application);
+    with SaveDlg do
+    try
+      Options := [ofHideReadOnly, ofOverwritePrompt];
+      DefaultExt := GraphicExtension(TBitmap);
+      Filter := GraphicFilter(TBitmap);
+      if Execute then
+      begin
+        Bitmap := TBitmap.Create;
+        try
+          with Bitmap do
+          begin
+            Width := ImageList.Width * ImageList.Count;
+            Height := ImageList.Height;
+            if ImageList.BkColor <> clNone then
+              Canvas.Brush.Color := ImageList.BkColor
+            else
+              Canvas.Brush.Color := clWindow;
+            Canvas.FillRect(Bounds(0, 0, Width, Height));
+            for I := 0 to ImageList.Count - 1 do
+              ImageList.Draw(Canvas, ImageList.Width * I, 0, I);
+            HandleType := bmDIB;
+            if PixelFormat in [pf15bit, pf16bit] then
+            try
+              PixelFormat := pf24bit;
+            except
+            end;
+          end;
+          Bitmap.SaveToFile(FileName);
+        finally
+          Bitmap.Free;
+        end;
+      end;
+    finally
+      Free;
+    end;
+  end
+  else
+    Beep;
+end;
+
+procedure TJvImageListEditor.ExecuteVerb(Index: Integer);
+begin
+  { The hard typecast to TImageList is necessary because EditImageList does
+    not want a TCustomImageList but the component could be one. This seems to
+    be ok because TListView.SmallImages is also a TCustomImageList and not a
+    TImageList. So the Component Editor for TCustomImageList must also use a
+    hard typecast. } 
+  if Designer <> nil then
+    case Index of
+      0:
+        if EditImageList(TImageList(Component)) then
+          Designer.Modified;
+      1:
+        SaveAsBitmap(TImageList(Component));
+    end;
+end;
+
+function TJvImageListEditor.GetVerb(Index: Integer): string;
+begin
+  case Index of
+    0:
+      Result := SImageListEditor;
+    1:
+      Result := RsSaveImageList;
+  else
+    Result := '';
+  end;
+end;
+
+function TJvImageListEditor.GetVerbCount: Integer;
+begin
+  Result := 2;
+end;
+
+//=== { TJvWeekDayProperty } =================================================
+
+function TJvWeekDayProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paMultiSelect, paValueList];
+end;
+
+//=== { TJvComponentFormProperty } ===========================================
+
+procedure TJvComponentFormProperty.GetValues(Proc: TGetStrProc);
+var
+  Form: TComponent;
+begin
+  inherited GetValues(Proc);
+  Form := Designer.Root;
+  if (Form is GetTypeData(GetPropType)^.ClassType) and (Form.Name <> '') then
+    Proc(Form.Name);
+end;
+
+procedure TJvComponentFormProperty.SetValue(const Value: string);
+var
+  Component: TComponent;
+  Form: TComponent;
+begin
+  Component := Designer.GetComponent(Value);
+  Form := Designer.Root;
+  if ((Component = nil) or not (Component is GetTypeData(GetPropType)^.ClassType)) and
+    (CompareText(Form.Name, Value) = 0) then
+  begin
+    if not (Form is GetTypeData(GetPropType)^.ClassType) then
+      raise EPropertyError.CreateRes(@SInvalidPropertyValue);
+    SetOrdValue(NativeInt(Form));
+  end
+  else
+    inherited SetValue(Value);
+end;
+
+//=== { TJvStringsEditor } ===================================================
+
+function TJvStringsEditor.GetEditPropertyName: string;
+begin
+  Result := 'Strings';
+end;
+
+//=== { TJvItemsEditor } =====================================================
+
+function TJvItemsEditor.GetEditPropertyName: string;
+begin
+  Result := 'Items';
+end;
+*******************************************************************************)
+end.
+

components/jvcllaz/design/JvStdCtrls/images/images.txt

@@ -1,2 +1,3 @@
 tjvcheckbox.bmp
+tjvpanel.bmp
 tjvcalcedit.bmp

components/jvcllaz/design/JvStdCtrls/jvstdctrlsreg.pas

@@ -14,12 +14,14 @@ implementation
 {$R ../../resource/jvstdctrlsreg.res}
 
 uses
-  Classes, Controls, JvDsgnConsts, JvButton, JvCheckbox, JvBaseEdits;
+  Classes, Controls, PropEdits,
+  JvDsgnConsts, //JvDsgnEditors,
+  JvButton, JvCheckbox, JvBaseEdits, JVPanel;
 
 procedure Register;
 begin
-  //RegisterComponents(RsPaletteButton, [TJvButton]);
-  RegisterComponents(RsPaletteJvcl, [TJvCheckbox, TJvCalcEdit]);
+  RegisterComponents(RsPaletteJvcl, [TJvCheckbox, TJvPanel, TJvCalcEdit]);
+//  RegisterPropertyEditor(TypeInfo(TJvArrangeSettings), nil, '', TJvPersistentPropertyEditor);
 end;
 
 end.