diff --git a/components/jvcllaz/design/JvCtrls/images/images.txt b/components/jvcllaz/design/JvCtrls/images/images.txt
index 0e69eec03..65c80bbcd 100644
--- a/components/jvcllaz/design/JvCtrls/images/images.txt
+++ b/components/jvcllaz/design/JvCtrls/images/images.txt
@@ -25,6 +25,7 @@ tjvgroupheader_200.png
tjvrollout.png
tjvrollout_150.png
tjvrollout_200.png
+tjvbehaviorlabel.bmp
tjvcombolistbox.bmp
tjvlookupautocomplete.bmp
tjvinstalllabel.bmp
diff --git a/components/jvcllaz/design/JvCtrls/images/tjvbehaviorlabel.bmp b/components/jvcllaz/design/JvCtrls/images/tjvbehaviorlabel.bmp
new file mode 100644
index 000000000..a778da179
Binary files /dev/null and b/components/jvcllaz/design/JvCtrls/images/tjvbehaviorlabel.bmp differ
diff --git a/components/jvcllaz/design/JvCtrls/images/tjvmovablebevel_150.png b/components/jvcllaz/design/JvCtrls/images/tjvmovablebevel_150.png
new file mode 100644
index 000000000..98dfd5d99
Binary files /dev/null and b/components/jvcllaz/design/JvCtrls/images/tjvmovablebevel_150.png differ
diff --git a/components/jvcllaz/design/JvCtrls/images/tjvmovablebevel_200.png b/components/jvcllaz/design/JvCtrls/images/tjvmovablebevel_200.png
new file mode 100644
index 000000000..827b01e3e
Binary files /dev/null and b/components/jvcllaz/design/JvCtrls/images/tjvmovablebevel_200.png differ
diff --git a/components/jvcllaz/design/JvCtrls/jvbehaviorlabeleditor.pas b/components/jvcllaz/design/JvCtrls/jvbehaviorlabeleditor.pas
new file mode 100644
index 000000000..e1c48aa51
--- /dev/null
+++ b/components/jvcllaz/design/JvCtrls/jvbehaviorlabeleditor.pas
@@ -0,0 +1,97 @@
+{-----------------------------------------------------------------------------
+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: JvBandsReg.PAS, released on 2002-05-26.
+
+The Initial Developer of the Original Code is John Doe.
+Portions created by John Doe are Copyright (C) 2003 John Doe.
+All Rights Reserved.
+
+Contributor(s):
+
+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 JvBehaviorLabelEditor;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils,
+ PropEdits;
+// DesignEditors, DesignIntf;
+
+type
+ TJvLabelBehaviorProperty = class(TStringProperty)
+ public
+ function AutoFill: Boolean; override;
+ procedure SetValue(const Value: string); override;
+ procedure GetValues(Proc: TGetStrProc); override;
+ function GetAttributes: TPropertyAttributes; override;
+ end;
+
+implementation
+
+uses
+ JvBehaviorLabel; //, JvDsgnTypes;
+
+function TJvLabelBehaviorProperty.AutoFill: Boolean;
+begin
+ Result := inherited AutoFill;
+ // if you want to fix the flickering when double-clicking a value, uncomment line below:
+ // Result := False;
+end;
+
+function TJvLabelBehaviorProperty.GetAttributes: TPropertyAttributes;
+begin
+ Result := [paValueList, paRevertable, paMultiSelect];
+end;
+
+procedure TJvLabelBehaviorProperty.GetValues(Proc: TGetStrProc);
+var
+ S: TStringList;
+ I: Integer;
+begin
+ S := TStringList.Create;
+ try
+ GetRegisteredLabelBehaviorOptions(S);
+ S.Sort;
+ for I := 0 to S.Count -1 do
+ Proc(S[I]);
+ finally
+ S.Free;
+ end;
+end;
+
+procedure TJvLabelBehaviorProperty.SetValue(const Value: string);
+{
+var wp -- to do
+ List: IDesignerSelections;
+ LDesigner: IJvFormDesigner;
+ }
+begin
+ inherited SetValue(Value);
+ {
+ List := CreateSelectionList;
+ Designer.GetSelections(List);
+ LDesigner := Designer; // keep Designer alive
+ LDesigner.SetSelections(nil);
+ LDesigner.SetSelections(List);
+ //Designer.Modified;
+ }
+end;
+
+end.
diff --git a/components/jvcllaz/design/JvCtrls/jvctrlsreg.pas b/components/jvcllaz/design/JvCtrls/jvctrlsreg.pas
index 13688eec5..556d7d2c1 100644
--- a/components/jvcllaz/design/JvCtrls/jvctrlsreg.pas
+++ b/components/jvcllaz/design/JvCtrls/jvctrlsreg.pas
@@ -15,6 +15,7 @@ implementation
uses
Classes, Controls, ActnList, PropEdits, JvDsgnConsts,
+ JvBehaviorLabel, JvBehaviorLabelEditor,
JvMovableBevel, JvRuler, JvGroupHeader, JvRollOut,
JvHtControls, JvHint, JvHTHintForm, JvComboListBox, JvInstallLabel,
JvOfficeColorPanel,
@@ -23,11 +24,13 @@ uses
procedure Register;
begin
RegisterComponents(RsPaletteJvclVisual, [
+ TJvBehaviorLabel,
TJvMovableBevel, TJvMovablePanel, TJvRuler, TJvGroupHeader, TJvRollOut,
TJvHint, TJvHTLabel, TJvHTListbox, TJvHTCombobox, TJvComboListBox,
TJvOfficeColorPanel,
TJvLookupAutoComplete, TJvInstallLabel
]);
+ RegisterPropertyEditor(TypeInfo(TJvLabelBehaviorName), TJvBehaviorLabel, 'Behavior', TJvLabelBehaviorProperty);
RegisterPropertyEditor(TypeInfo(TCaption), TJvHTLabel, 'Caption', TJvHintProperty);
RegisterActions(RsJVCLActionsCategory, [TJvRollOutAction], nil);
end;
diff --git a/components/jvcllaz/examples/JvBehaviorLabel/JvBehaviorLabelDemo.lpi b/components/jvcllaz/examples/JvBehaviorLabel/JvBehaviorLabelDemo.lpi
new file mode 100644
index 000000000..f042cd9fd
--- /dev/null
+++ b/components/jvcllaz/examples/JvBehaviorLabel/JvBehaviorLabelDemo.lpi
@@ -0,0 +1,81 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+