Unit Iv_reg

Classes

TPEImageView -

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


procedure Register;

IconVue is removed due to its serious bugs } { TPEIconView = class(TClassProperty) public function GetAttributes: TPropertyAttributes; override; procedure Edit; override; end;

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