Правильная ссылка на эту страницу
http://az-design.ru/Support/SoftWare/Delphi/D3/SB21GetDisplayName.shtml

Глава 21. TCollection.GetDisplayName

Метод GetDisplayName

Затрагиваемые объекты TStatusPanel
Назначение Получает внутреннее представление имени для объекта TStatusPanel. Это может быть либо текст, содержащийся в панели состояния, либо строка идентификатора класса 'TStatusPanel', если строка текста для конкретного объекта TStatusPanel пуста.
Объявление function GetDisplayName: string;
Пример синтаксиса
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
                           Panel: TStatusPanel; const Rect: TRect);
var
   tempPanel: TStatusPanel;
   Bitmap1: TBitmap;

begin
// выполнить желаемое рисование на TStatusPanel
// Вызов осуществляется для каждой панели, когда система определяет, что
// панель нуждается в перерисовании. В основном это происходит при
// изменении размеров формы или перемещении ее наверх после того, как
// она располагалась под другими формами.
   Bitmap1 := TBitmap.Create;
// Следующие условия определяют, какая из трех панелей на линейке
// состояния будет перерисовываться, и затем выполняется загрузка в нее
// соответствующей графики.
// Смотрите главу 21 Супербиблии Delphi 3, где приведено обсуждение
// альтернативного метода доступа к отдельным TCollectionIterns списка
// TCollection с использованием функции FindItemID
   If (Panel=StatusBar.Panels[0]) then begin
      Bitmap1.LoadFromFile('с:\windows\tartan.bmp');
      StatusBar.Panels[0].Text := 'one';
      Edit1.Text := StatusBar.Panels[0].GetDisplayName;
   end else 
       if (Panel = StatusBar.Panels[1]) then begin
          Bitmap1.LoadFromFile('с:\windows\Marble.bmp');
          Edit2.Text := StatusBar.Panels[1].GetDisplayName;
       end else
          if (Panel=StatusBar.Panels[2]) then begin
             Bitmap1.LoadFromFile('с:\windows\MetalLinks.bmp');
             Edit3.Text := StatusBar.Panels[2].GetDisplayName;
          end;
// рисовать две версии битовых изображений для обеспечения полного 
// покрытия  области холста панели.
   StatusBar1.Canvas.Draw(Rect.Left,Rect.Top,Bitmap1);
   StatusBar1.Canvas.Draw(Rect.Left+Bitmap1.Width,
                          Rect.Top,Bitmap1);
   Bitmap1.Free;

end;
Описание        Данный пример взят из образца проекта и иллюстрирует использование функции GetDisplayName. В случае, когда метод DrawPanel вызывается для панели 0, текст соответствующей панели устанавливается в значение T, которое возвращается методом GetDisplayName и в свою очередь размещается в компоненте Edit1. Два других случая не имеют строкового присваивания, поэтому GetDisplayName будет возвращать 'TStatusPanel' и эта строка будет появляться в двух других элементах управления редактированием.

[Метод Add] [Свойство Alignment] [Свойство AllowClick] [Метод Assign] [Свойство AssignedValues] [Метод BeginUpdate] [Свойство Bevel] [Свойство ButtonStyle] [Свойство Caption] [Метод Clear] [Свойство Collection] [Свойство Color] [Свойство Count] [Метод Create] [Метод CreateTitle] [Метод DefaultAlignment] [Метод DefaultColor] [Метод DefaultFont] [Метод DefaultReadOnly] [Метод DefaultWidth] [Метод Destroy] [Свойство DropDownRows] [Метод EndUpdate] [Свойство Field] [Свойство FieldName] [Метод FindItemID] [Свойство Font] [Метод GetDisplayName] [Метод GetGrid] [Метод GetItem] [Свойство Grid] [Свойство Index] [Свойство Items] [Свойство Left] [Свойство MaxWidth] [Свойство MinWidth] [Свойство Owner] [Свойство PickList] [Свойство ReadOnly] [Метод RebuildColumns] [Метод RestoreDefaults] [Свойство Right] [Метод SetIndex] [Свойство State] [Свойство Style] [Свойство Text] [Свойство Title] [Свойство Width] [Свойство WidthType]


<<< Пред. Оглавление
Начало раздела
След. >>>




Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:55 MSK


Постоянный адрес статьи:
http://az-design.ru/Support/SoftWare/Delphi/D3/SB21GetDisplayName.shtml