[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    Control Font Styles:

    This code will change the font style of a Edit
    when selected. This code could be implemented to
    control font style on other objects.

    With a Edit(Edit1) and a ListBox(ListBox1) on a form
    Add the following Items to the ListBox:
       fsBold
       fsItalic
       fsUnderLine
       fsStrikeOut

    procedure TForm1.ListBox1Click(Sender: TObject);
    var
      X : Integer;
    type
      TLookUpRec = record
        Name: String;
        Data: TFontStyle;
      end;
    const
      LookUpTable: array[1..4] of TLookUpRec =

      ((Name: 'fsBold'; Data: fsBold),
       (Name: 'fsItalic'; Data: fsItalic),
       (Name: 'fsUnderline'; Data: fsUnderline),
       (Name: 'fsStrikeOut'; Data: fsStrikeOut));
    begin
      X := ListBox1.ItemIndex;
      Edit1.Text := ListBox1.Items[X];
      Edit1.Font.Style := [LookUpTable[ListBox1.ItemIndex+1].Data];
    end;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]