Unit Iv_reg |
Classes |
Functions |
Register - IconVue is removed due to its serious bugs } { TPEIconView = class(TClassProperty) public function GetAttributes: TPropertyAttributes; override; procedure Edit; override; end;
function TPEIconView.
Types |
Constants |
Variables |
Functions |
function TPEIconView.GetAttributes: TPropertyAttributes; begin Result := [paDialog] end; procedure TPEIconView.Edit; var i: integer; begin inherited Edit; with TIconForm.Create(nil) do try IconList.Items.AddObject('', TIcon(GetOrdValue)); if ShowModal = mrOk then with IconList do if not (Items.Count = 0) and (ItemIndex > -1) then SetOrdValue(LongInt (TIcon(Items.Objects[ItemIndex])) ); with IconList.Items do begin for i := 0 to Count-1 do Objects[i].Free; Clear; end; finally Free end end;
Types |
Constants |
Variables |