type
TBoldComponentNameProperty =
class(TComponentNameProperty)
public
procedure PropDrawName(Canvas: TCanvas; 
const Rect: TRect; Selected: Boolean); override;
end;

procedure TBoldComponentNameProperty.PropDrawName(
Canvas: TCanvas; const Rect: TRect; Selected: Boolean);
var
Style: TFontStyles;
begin
  Style := Canvas.Font.Style;
  Canvas.Font.Style := Canvas.Font.Style + [fsBold];
  try
    inherited;
    finally
    
    //恢复字体的样式以便Delphi正确的画属性值
Canvas.Font.Style := Style;
  end;
end;

procedure ListDrawValue(const Value: string;
Canvas: TCanvas; const Rect: TRect; Selected: Boolean);
procedure ListMeasureHeight(const Value: string;
Canvas: TCanvas; var Height: Integer);
procedure ListMeasureWidth(const Value: string;
Canvas: TCanvas; var Width: Integer);

// 在下拉列表框的每一个列表项旁边画一个复选框
procedure TSetPropertyEx.ListDrawValue(const Value: string;
Canvas: TCanvas; const Rect: TRect; Selected: Boolean);
var
IsChecked: Boolean;
OrdValue: Integer;
begin
  OrdValue := GetOrdValue;
  IsChecked := GetEnumValue(EnumInfo, Value) in
  TIntegerSet(OrdValue);
  Canvas.FillRect(Rect);
  Canvas.TextRect(Rect, Rect.Left + Checked.Width + 2,
  Rect.Top + 1, Value);
  if IsChecked then
  Canvas.Draw(Rect.Left + 1, Rect.Top + 1, Checked)
  else
  Canvas.Draw(Rect.Left + 1, Rect.Top + 1, Unchecked);
end;

procedure TSetPropertyEx.ListMeasureHeight(
const Value: string; Canvas: TCanvas; 
var Height: Integer);
begin
  if Height < Checked.Height then
  Height := Checked.Height;
end;

procedure TSetPropertyEx.ListMeasureWidth(
const Value: string; Canvas: TCanvas;
var Width: Integer);
begin
  Width := Width + Checked.Width + 2;
end;

//根据True或者False来画一个复选框及布耳值的文本标签
procedure DrawBoolCheckBox(Canvas: TCanvas;
const Rect: TRect; const Value: string);
begin
  Canvas.FillRect(Rect);
  Canvas.TextRect(Rect, Rect.Left + Checked.Width + 2,
  Rect.Top + 1, Value);
  if Value = BooleanIdents[False] then
  Canvas.Draw(Rect.Left + 1, Rect.Top + 1, UnChecked)
  else
  Canvas.Draw(Rect.Left + 1, Rect.Top + 1, Checked);
end;

{ TSetElementPropertyEx }

// 每个列表项旁边显示一个复选框，用户必须双击
//而不是单击才能切换复选框状态 
procedure TSetElementPropertyEx.PropDrawValue(
Canvas: TCanvas; const Rect: TRect; Selected: Boolean);
begin
  DrawBoolCheckBox(Canvas, Rect, Value);
end;

{ TBoolPropertyEx }

// 为ByteBool, WordBool和LongBool类型显示复选框
procedure TBoolPropertyEx.PropDrawValue(Canvas: TCanvas;
const Rect: TRect; Selected: Boolean);
begin
  DrawBoolCheckBox(Canvas, Rect, Value);
end;

//为全部的集合属性注册一个统一的属性编辑器 
function SetMapper(Obj: TPersistent; PropInfo: PPropInfo):
TPropertyEditorClass;
begin
  if PropInfo.PropType^.Kind = tkSet then
  Result := TSetPropertyEx
  else
  Result := nil;
end;

procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(TFont), nil, '''''''',
  TVisualFontProperty);
  RegisterPropertyEditor(TypeInfo(TGraphic), nil, '''''''',
  TVisualGraphicProperty);
  RegisterPropertyEditor(TypeInfo(TComponentName),
  TComponent, ''''Name'''', TBoldComponentNameProperty);
  RegisterPropertyEditor(TypeInfo(Boolean), nil, '''''''',
  TBooleanPropertyEx);
  RegisterPropertyEditor(Type

上一页  [1] [2] [3]  下一页