testunit1.pas(65,9) Error: identifier idents no member "SetSpecificCaption" testunit1.pas(66,20) Error: Incompatible types: got "untyped" expected "<procedure variable type of procedure(TObject) of object;Register>" testunit1.pas(75) Fatal: There were 2 errors compiling module, stopping lines 65 & 66 follow: sg1.SetSpecificCaption( b, X_str + inttostr(b) ); sg1.OnClick := Button1Click(self); From buttonlist.pas procedure TCustomButtonList.SetSpecificCaption(num : integer; Str : String); begin if (num > High(FButtons)) or (num < Low(FButtons)) then raise Exception.Create('Set Caption Out of range'); FButtons[num].Caption := Str; end;

On Mon, 2010-08-30 at 22:45 +0300, ik wrote: > Hi Peter, > > Your requests are not supported by the component, but it can be > rewritten like so: > > TAdvancedCustomButtonList = class(TCustomButtonList) > > Note that you have access to FButtons (it's the actual array of the > buttons). > > so a procedure like so can be written: > > procedure TAdvancedCustomButtonList.SetSpecificCaption(num : integer; > Caption : String); > begin > if num > High(FButtons) or num < Low(FButtons) then > raise Exception.Create('Out of range'); > > FButtons[num].Caption := Caption; > end; > > and also: > > procedure TAdvancedCustomButtonList.SetFont(num : integer; Font : > TFont); > begin > if num >Hi Lazarus list,

testunit1.pas(65,9) Error: identifier idents no member "SetSpecificCaption" testunit1.pas(66,20) Error: Incompatible types: got "untyped" expected "<procedure variable type of procedure(TObject) of object;Register>" testunit1.pas(75) Fatal: There were 2 errors compiling module, stopping lines 65 & 66 follow: sg1.SetSpecificCaption( b, X_str + inttostr(b) ); sg1.OnClick := Button1Click(self); From buttonlist.pas procedure TCustomButtonList.SetSpecificCaption(num : integer; Str : String); begin if (num > High(FButtons)) or (num < Low(FButtons)) then raise Exception.Create('Set Caption Out of range'); FButtons[num].Caption := Str; end;

On Mon, 2010-08-30 at 22:45 +0300, ik wrote: > Hi Peter, > > Your requests are not supported by the component, but it can be > rewritten like so: > > TAdvancedCustomButtonList = class(TCustomButtonList) > > Note that you have access to FButtons (it's the actual array of the > buttons). > > so a procedure like so can be written: > > procedure TAdvancedCustomButtonList.SetSpecificCaption(num : integer; > Caption : String); > begin > if num > High(FButtons) or num < Low(FButtons) then > raise Exception.Create('Out of range'); > > FButtons[num].Caption := Caption; > end; > > and also: > > procedure TAdvancedCustomButtonList.SetFont(num : integer; Font : > TFont); > begin > if num > High(FButtons) or num < Low(FButtons) then > raise Exception.Create('Out of range'); > > FButtons[num].Font.Assign(Font); > end; > > Please note that I have not tried it myself, but that's the idea of > how to do it. > > I hope that helps, and feel free to ask more questions, or to be > pointed for additional information. > > Ido > > http://ik.homelinux.org/ > > > On Mon, Aug 30, 2010 at 22:06, Peter E Williams > wrote: > Hi Ido, > > I am using your component, ButtonList, and creating it at > runtime. I am > having some problems doing the following: > > Assigning a caption to the x'th button: > > what I want to do is this... > > var > BtnList : TButtonList; > > begin > BtnList := TButtonList.Create(self); > BtnList.parent := self; > BtnList.visible := true; > BtnList.count := 8; > > // this next line is the problem > > BtnList.caption[x] := 'hello'; > > but I see that you have a procedure 'Captions' which accepts a > TStringList as it's parameter. I don't have a TStringList, and > I don't > want to reset every caption, only the x'th one. > > Likewise, I want to set the font color for the x'th button, > like: > > BtnList.font[x].color := clBlue; > > Can I do this or something similar??? > > Best Regards, > PEW > Hobart, Tasmania, Australia > > -- > Proudly developing Quality Cross Platform Open Source Games > Since 1970 with a Commodore PET 4016 with 16 KRAM > http://pews-freeware-games.org (<--- brand new) > High(FButtons) or num < Low(FButtons) then > raise Exception.Create('Out of range'); > > FButtons[num].Font.Assign(Font); > end; > > Please note that I have not tried it myself, but that's the idea of > how to do it. > > I hope that helps, and feel free to ask more questions, or to be > pointed for additional information. > > Ido > > http://ik.homelinux.org/ > > > On Mon, Aug 30, 2010 at 22:06, Peter E Williams > wrote: > Hi Ido, > > I am using your component, ButtonList, and creating it at > runtime. I am > having some problems doing the following: > > Assigning a caption to the x'th button: > > what I want to do is this... > > var > BtnList : TButtonList; > > begin > BtnList := TButtonList.Create(self); > BtnList.parent := self; > BtnList.visible := true; > BtnList.count := 8; > > // this next line is the problem > > BtnList.caption[x] := 'hello'; > > but I see that you have a procedure 'Captions' which accepts a > TStringList as it's parameter. I don't have a TStringList, and > I don't > want to reset every caption, only the x'th one. > > Likewise, I want to set the font color for the x'th button, > like: > > BtnList.font[x].color := clBlue; > > Can I do this or something similar??? > > Best Regards, > PEW > Hobart, Tasmania, Australia > > -- > Proudly developing Quality Cross Platform Open Source Games > Since 1970 with a Commodore PET 4016 with 16 KRAM > http://pews-freeware-games.org (<--- brand new) >

Hi Lazarus list, I am making public a private message between myself and Ido, re some changes to ButtonList.pas. Please find attached buttonlist.pas and testunit1.pas which contains the relevant code. > testunit1.pas(65,9) Error: identifier idents no member > "SetSpecificCaption" > testunit1.pas(66,20) Error: Incompatible types: got "untyped" expected > "<procedure variable type of procedure(TObject) of object;Register>" > testunit1.pas(75) Fatal: There were 2 errors compiling module, > stopping > > lines 65 & 66 follow: > sg1.SetSpecificCaption( b, X_str + inttostr(b) ); > sg1.OnClick := Button1Click(self); > >From buttonlist.pas > procedure TCustomButtonList.SetSpecificCaption(num : integer; Str : > String); > begin > if (num > High(FButtons)) or (num < Low(FButtons)) then > raise Exception.Create('Set Caption Out of range'); > > FButtons[num].Caption := Str; > end; > I would appreciate your help debugging these errors. :-))) Best Regards, PEW (Peter) Hobart, Tasmania, Australia > > On Mon, 2010-08-30 at 22:45 +0300, ik wrote: > > Hi Peter, > > > > Your requests are not supported by the component, but it can be > > rewritten like so: > > > > TAdvancedCustomButtonList = class(TCustomButtonList) > > > > Note that you have access to FButtons (it's the actual array of the > > buttons). > > > > so a procedure like so can be written: > > > > procedure TAdvancedCustomButtonList.SetSpecificCaption(num : > integer; > > Caption : String); > > begin > > if num > High(FButtons) or num < Low(FButtons) then > > raise Exception.Create('Out of range'); > > > > FButtons[num].Caption := Caption; > > end; > > > > and also: > > > > procedure TAdvancedCustomButtonList.SetFont(num : integer; Font : > > TFont); > > begin > > if num >Hi Lazarus list, I am making public a private message between myself and Ido, re some changes to ButtonList.pas. Please find attached buttonlist.pas and testunit1.pas which contains the relevant code. > testunit1.pas(65,9) Error: identifier idents no member > "SetSpecificCaption" > testunit1.pas(66,20) Error: Incompatible types: got "untyped" expected > "<procedure variable type of procedure(TObject) of object;Register>" > testunit1.pas(75) Fatal: There were 2 errors compiling module, > stopping > > lines 65 & 66 follow: > sg1.SetSpecificCaption( b, X_str + inttostr(b) ); > sg1.OnClick := Button1Click(self); > >From buttonlist.pas > procedure TCustomButtonList.SetSpecificCaption(num : integer; Str : > String); > begin > if (num > High(FButtons)) or (num < Low(FButtons)) then > raise Exception.Create('Set Caption Out of range'); > > FButtons[num].Caption := Str; > end; > I would appreciate your help debugging these errors. :-))) Best Regards, PEW (Peter) Hobart, Tasmania, Australia > > On Mon, 2010-08-30 at 22:45 +0300, ik wrote: > > Hi Peter, > > > > Your requests are not supported by the component, but it can be > > rewritten like so: > > > > TAdvancedCustomButtonList = class(TCustomButtonList) > > > > Note that you have access to FButtons (it's the actual array of the > > buttons). > > > > so a procedure like so can be written: > > > > procedure TAdvancedCustomButtonList.SetSpecificCaption(num : > integer; > > Caption : String); > > begin > > if num > High(FButtons) or num < Low(FButtons) then > > raise Exception.Create('Out of range'); > > > > FButtons[num].Caption := Caption; > > end; > > > > and also: > > > > procedure TAdvancedCustomButtonList.SetFont(num : integer; Font : > > TFont); > > begin > > if num > High(FButtons) or num < Low(FButtons) then > > raise Exception.Create('Out of range'); > > > > FButtons[num].Font.Assign(Font); > > end; > > > > Please note that I have not tried it myself, but that's the idea of > > how to do it. > > > > I hope that helps, and feel free to ask more questions, or to be > > pointed for additional information. > > > > Ido > > > > http://ik.homelinux.org/ > > > > > > On Mon, Aug 30, 2010 at 22:06, Peter E Williams > > wrote: > > Hi Ido, > > > > I am using your component, ButtonList, and creating it at > > runtime. I am > > having some problems doing the following: > > > > Assigning a caption to the x'th button: > > > > what I want to do is this... > > > > var > > BtnList : TButtonList; > > > > begin > > BtnList := TButtonList.Create(self); > > BtnList.parent := self; > > BtnList.visible := true; > > BtnList.count := 8; > > > > // this next line is the problem > > > > BtnList.caption[x] := 'hello'; > > > > but I see that you have a procedure 'Captions' which accepts > a > > TStringList as it's parameter. I don't have a TStringList, > and > > I don't > > want to reset every caption, only the x'th one. > > > > Likewise, I want to set the font color for the x'th button, > > like: > > > > BtnList.font[x].color := clBlue; > > > > Can I do this or something similar??? > > > > Best Regards, > > PEW > > Hobart, Tasmania, Australia > > > > -- > > Proudly developing Quality Cross Platform Open Source Games > > Since 1970 with a Commodore PET 4016 with 16 KRAM > > http://pews-freeware-games.org (<--- brand new) > > High(FButtons) or num < Low(FButtons) then > > raise Exception.Create('Out of range'); > > > > FButtons[num].Font.Assign(Font); > > end; > > > > Please note that I have not tried it myself, but that's the idea of > > how to do it. > > > > I hope that helps, and feel free to ask more questions, or to be > > pointed for additional information. > > > > Ido > > > > http://ik.homelinux.org/ > > > > > > On Mon, Aug 30, 2010 at 22:06, Peter E Williams > > wrote: > > Hi Ido, > > > > I am using your component, ButtonList, and creating it at > > runtime. I am > > having some problems doing the following: > > > > Assigning a caption to the x'th button: > > > > what I want to do is this... > > > > var > > BtnList : TButtonList; > > > > begin > > BtnList := TButtonList.Create(self); > > BtnList.parent := self; > > BtnList.visible := true; > > BtnList.count := 8; > > > > // this next line is the problem > > > > BtnList.caption[x] := 'hello'; > > > > but I see that you have a procedure 'Captions' which accepts > a > > TStringList as it's parameter. I don't have a TStringList, > and > > I don't > > want to reset every caption, only the x'th one. > > > > Likewise, I want to set the font color for the x'th button, > > like: > > > > BtnList.font[x].color := clBlue; > > > > Can I do this or something similar??? > > > > Best Regards, > > PEW > > Hobart, Tasmania, Australia > > > > -- > > Proudly developing Quality Cross Platform Open Source Games > > Since 1970 with a Commodore PET 4016 with 16 KRAM > > http://pews-freeware-games.org (<--- brand new) > > -- Proudly developing Quality Cross Platform Open Source Games Since 1970 with a Commodore PET 4016 with 16 KRAM http://pews-freeware-games.org (<--- brand new) -- _______________________________________________ Lazarus mailing list http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus