Is changing of font sizes not yet implemented in LCL? I tried static and dynamic at…
Its on linux. Clicking on Button2 should change font size. The object inspector disables changing too. I've downloaded lazarus with cvs two hours ago and i'm using fpc 1.0.10.
unit unit1;
{$mode objfpc}{$H+}
interfaceuses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
StdCtrls;type
TForm1 = class(TForm)
Button1: TBUTTON;
Button2: TBUTTON;
Label1: TLABEL;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Font.Size := 20;
end;
initialization
{$I unit1.lrs}
end.Rainer Hamann
Show quoted text 13 lines
Rainer Hamann wrote:
> Is changing of font sizes not yet implemented in LCL? I tried static and
> dynamic at various components but I hat no success.
Is this on win32 or linux? In what kind of control are you trying to
change the font? TLabel, TEdit, ... ?
Micha.
_________________________________________________________________
To unsubscribe: mail with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
