You can choose the controls you want this way var i: integer; begin for i:=0 to ControlCount-1 do if Controls[i] is TButton then ShowMessage(Controls[i].Name); end; Ciao
2014-08-21 13:09 GMT+02:00 Philippe <phili...@quarta.com.br>: > I wrote about a suggestion ... a Lazarus default font ... > > may be, as far as I understand, using "Parent Font" property is the way > ... I´ll try it! > > Philippe > > Em 20.08.2014 19:54, Philippe escreveu: > > thank for your answer. > > I found the default font on my machine/windows 8 is Segoe UI. I´ll check > if it is avalaible under other version of Windows ... > > your suggestion (looping controls) is interesting, I didn´t know it, but > will change all the controls of the form ... and that is not what I need > ... I just want to change the Lazarus default. So it will change the font > of controls using font.name='Default' in the configuration/object > inspector. > > Philippe > > > > Em 20.08.2014 12:58, Salvatore Coppola escreveu: > > > > > 2014-08-16 12:40 GMT+02:00 Philippe <phili...@quarta.com.br>: > >> I wrote a program, used font.name=default for allmost everything ... it >> was looking as Arial font. Fine. >> >> It was on a Windows 8 machine. >> >> Then I copied the program to a Windows XP machine to check. >> >> Where static text and others are written with something looking as a New >> Times Roman ... >> and sometimes not fitting in the field width ... and be splitted! >> >> I undestood there is something about windows default font. Googled ... >> ... ... >> >> On the my W8 machine default font (from registers) are Microsoft Sans >> Serif and Tahoma ... diferent. >> >> I made a test. In the attached image, the first text is with default, the >> second with Arial, both with bold mode. Arial was the closest font from >> default I found ... but still a bit diferent. >> >> Question 1): which default font is used with Lazarus ? >> > the theme fonts > >> Question 2): is there a way I can set the default font in Lazarus? >> > I don't know if is possible in RAD way, but you can set the font you want > in on create event for each controls you want. > > procedure TForm1.FormCreate(Sender: TObject); > var i: integer; > begin > for i:=0 to ControlCount-1 do > Controls[i].Font:=YOURFONT; > end; > > >> Thank for your help >> >> Philippe >> >> PS. F1 in font.name ... error 404. >> >> -- >> _______________________________________________ >> Lazarus mailing list >> Lazarus@lists.lazarus.freepascal.org >> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus >> >> > -- > _______________________________________________ > Lazarus mailing > listLazarus@lists.lazarus.freepascal.orghttp://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > > > > -- > _______________________________________________ > Lazarus mailing > listLazarus@lists.lazarus.freepascal.orghttp://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > > > > -- > _______________________________________________ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > >
-- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus