12 replies to this topic

[Boki (Berg)]

Dear Users,

Here I will post updates on v6 of NextGrid.

Today I have added a Font (TFont) property to the TNxCell class:

This property is nil by default, to save memory if not used. If user write something like this:

NextGrid61.Cell[1, 3].Font := TFont.Create;
NextGrid61.Cell[1, 3].Font.Name := 'Georgia';
NextGrid61.Cell[1, 3].Font.Size := 12;
NextGrid61.Cell[1, 3].Font.Style := [fsItalic];
NextGrid61.Cell[1, 3].Font.Color := $000080FF;

Font for this cell will be created and set.

Font is automatically released upon cell destroying.

I hope that you like my solution for this long requested feature. Feature is added, but memory is saved when different font is not needed.

[Boki (Berg)]

I also like to note that page for v6 of NextGrid is now active:
http://www.bergsoft....d6/overview.htm

[DeddyH]

The user has to create the font himself? I do not think this is a handy solution, perhaps you could use lazy initialization?

[Boki (Berg)]

Hello,

Grid check if Font property is nil, and then if is not - it use it. I may add a CreateFont method (with parameters to set in same call)

[Boki (Berg)]

Now thinking, I may use something like IsFontSet method which will only check for nil, BUT not create a TFont object.

[nano]

I support the idea of DeddyH. Lazy initialization is probably the most comfortable way to develope.

property Font: TFont read GetFont;

function GetFont: TFont;
begin
  if not Assigned( FFont )
    FFont:= TFont.Create;
  Result:= FFont;
end;
//
NextGrid61.Cell[1, 3].Font.Name := 'Georgia';

[nano]

Ps. The Demolink on the Grid v6-Website (http://www.bergsoft....d6/overview.htm) is dead:)

[Boki (Berg)]

Hi,

I will do this way. Problem was that I am checking Font property when drawing too. I will add IsFontSet method for this.

ps.I will fix link.

[DeddyH]

Here is my suggestion (not tested):

property Font: TFont read GetFont write SetFont;

function GetFont: TFont;
begin
  if not Assigned(FFont) then
    FFont := TFont.Create;
  Result := FFont;
end;

procedure SetFont(const Value: TFont);
begin
  if not Assigned(Value) then
    FreeAndNil(FFont)
  else
    Font.Assign(Value);
end;

function IsFontSet: Boolean;
begin
  Result := Assigned(FFont);
end;

[Boki (Berg)]

Hi,

Thank you, I have done it in same way.

[Boki (Berg)]

Updated demo project on:
http://www.bergsoft....d6/overview.htm

[Boki (Berg)]

Hello,

Here is what is happened when you click on Column's icon in columns editor (or you press Enter key):

 Screenshot_4_3_13_12_38.png   45.08KB   4 downloads

A dialog with common properties will open. I will add several specific properties for each column type in this dialog.

[Boki (Berg)]

Hello,

Here is a small update to the Columns Editor, Quick Properties feature.

I found this feature very neat and handy. I am thinking about improving it even more.

For some properties, I have add a suggested value which is set after you click on button (orange arrow pointing it).

This is very neat for FormatMask and similar properties because saves you for remembering all this masks.

I hope that you like it.

Who is interested in Beta (D2010, DXE2, DXE3), may contact me.

Attached Files

•  Screenshot_4_9_13_4_01.png   55.2KB   10 downloads