delphi - Disable/de-activate a custom component with published property -

-

i working on custom component in delphi -7 have published properties

   private      { private declarations }      ffolderzip  ,fimagezip,ftextzip,factivatezipcomp   : boolean;      fmessagebo : string;    published     { published declarations }     {component properties}     {#1.folder zip}     property zipfolder : boolean read ffolderzip  write ffolderzip  default false;     {#2.send imagezip ?}     property zipimage : boolean read fimagezip   write fimagezip   default false;     {#3.text files}     property ziptext : boolean read ftextzip   write ftextzip   default false;     {#4.message}     property zipmessage: string read fmessagebo write fmessagebo ;      {#5.activate }     property activatezipper: boolean read factivatezipcomp write  factivatezipcomp default false;    end;

when user drops component on application, activatezipper properties give use option activate/enable or deactivate/disable component executing. component creates file in constructor have this, createatextfileproc create file in application folder.so if check in constructor if activatezipper true or false..

i have constructor

     constructor tcomproj.create(aowner: tcomponent);      begin        inherited;        if activatezipper createatextfileproc;      end;

the activatezipper false if set true in object inspector. how can component disabled doing working published property?

the constructor early. design-time property values have not been streamed component yet. need wait until component's loaded() method called before can act on values. if create component dynamically @ run-time, need property setter since there no dfm values , loaded() not called.

type   tcomproj = class(tcomponent)   private      ...     procedure setactivatezipper(value: boolean);   protected     procedure loaded; override;   published      property activatezipper: boolean read factivatezipcomp write setactivatezipper;    end;   procedure tcomproj.setactivatezipper(value: boolean); begin   if factivatezipcomp <> value   begin     factivatezipcomp := value;     if activatezipper , ((componentstate * [csdesigning, csloading, csloading]) = [])       createatextfileproc;    end; end;  procedure tcomproj.loaded; begin   inherited;   if activatezipper createatextfileproc;  end;

Comments

Post a Comment

Popular posts from this blog

c# - SVN Error : "svnadmin: E205000: Too many arguments" -

-
i trying reposotries using c# code process svncommand = null; var psi = new processstartinfo("svnadmin"); psi.redirectstandardoutput = true; psi.redirectstandarderror = true; psi.useshellexecute = false; psi.arguments= @"dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump"; using (svncommand = process.start(psi)) { var myoutput = svncommand.standardoutput; var myerror = svncommand.standarderror; debug.write("output :" + environment.newline + environment.newline + myoutput.readtoend() + environment.newline + "error :" + environment.newline + environment.newline + myerror.readtoend()); svncommand.close(); } when use dump command commandline svnadmin dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump it works fine when try ...
Read more

c# - Copy ObservableCollection to another ObservableCollection -

-
how copy observablecollection item observablecollection without reference of first collection? here observablecollection item value changes affecting both collections. code private observablecollection<ratemodel> _allmetalrate = new observablecollection<ratemodel>(); private observablecollection<ratemodel> _metalrateondate = new observablecollection<ratemodel>(); public observablecollection<ratemodel> allmetalrate { { return this._allmetalrate; } set { this._allmetalrate = value; notifypropertychanged("metalrate"); } } public observablecollection<ratemodel> metalrateondate { { return this._metalrateondate; } set { this._metalrateondate = value; notifypropertychanged("metalrateondate"); } } foreach (var item in metalrateondate) allmetalrate.add(item); what causing , how can solve it? you need clone object referenced item before it's a...
Read more

All overlapping substrings matching a java regex -

-
is there api method returns (possibly overlapping) substrings match regular expression? for example, have text string: string t = 04/31 412-555-1235; , , have pattern: pattern p = new pattern("\\d\\d+"); matches strings of 2 or more characters. the matches are: 04, 31, 412, 555, 1235. how overlapping matches? i want code return: 04, 31, 41, 412, 12, 55, 555, 55, 12, 123, 1235, 23, 235, 35. theoretically should possible -- there obvious o(n^2) algorithm enumerates , checks substrings against pattern. edit rather enumerating substrings, safer use region(int start, int end) method in matcher . checking pattern against separate, extracted substring might change result of match (e.g. if there non-capturing group or word boundary check @ start/end of pattern). edit 2 actually, it's unclear whether region() expect zero-width matches. specification vague, , experiments yield disappointing results. for example: string line = "xx90xx"; strin...
Read more