home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 March / pcp161b.iso / full / delphi / DELPHI16 / TECHINFO / DELPHI / TIS / TI2812.FX < prev    next >
Encoding:
Text File  |  1995-08-24  |  1.3 KB  |  61 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.   PRODUCT  :  Delphi                                 NUMBER  :  2812
  8.   VERSION  :  All
  9.        OS  :  Windows
  10.      DATE  :  July 14, 1995                            PAGE  :  1/1
  11.  
  12.     TITLE  :  Control Font Styles
  13.  
  14.  
  15.  
  16.  
  17. Control Font Styles:
  18.  
  19. This code will change the font style of a Edit
  20. when selected. This code could be implemented to
  21. control font style on other objects.
  22.  
  23. With a Edit(Edit1) and a ListBox(ListBox1) on a form
  24. Add the following Items to the ListBox:
  25.    fsBold
  26.    fsItalic
  27.    fsUnderLine
  28.    fsStrikeOut
  29.  
  30. procedure TForm1.ListBox1Click(Sender: TObject);
  31. var
  32.   X : Integer;
  33. type
  34.   TLookUpRec = record
  35.     Name: String;
  36.     Data: TFontStyle;
  37.   end;
  38. const
  39.   LookUpTable: array[1..4] of TLookUpRec =
  40.   ((Name: 'fsBold'; Data: fsBold),
  41.    (Name: 'fsItalic'; Data: fsItalic),
  42.    (Name: 'fsUnderline'; Data: fsUnderline),
  43.    (Name: 'fsStrikeOut'; Data: fsStrikeOut));
  44. begin
  45.   X := ListBox1.ItemIndex;
  46.   Edit1.Text := ListBox1.Items[X];
  47.   Edit1.Font.Style := [LookUpTable[ListBox1.ItemIndex+1].Data];
  48. end;
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57. DISCLAIMER: You have the right to use this technical information
  58. subject to the terms of the No-Nonsense License Statement that
  59. you received with the Borland product to which this information
  60. pertains.
  61.