Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 193

•  TDictionary Custom Sort  6 255

•  Fast Watermark Sources  6 051

•  3D Designer  8 951

•  Sik Screen Capture  6 377

•  Patch Maker  6 796

•  Айболит (remote control)  6 781

•  ListBox Drag & Drop  5 654

•  Доска для игры Реверси  96 310

•  Графические эффекты  6 996

•  Рисование по маске  6 281

•  Перетаскивание изображений  5 171

•  Canvas Drawing  5 542

•  Рисование Луны  5 242

•  Поворот изображения  4 790

•  Рисование стержней  3 387

•  Paint on Shape  2 645

•  Генератор кроссвордов  3 529

•  Головоломка Paletto  2 820

•  Теорема Монжа об окружностях  3 631

•  Пазл Numbrix  2 374

•  Заборы и коммивояжеры  3 057

•  Игра HIP  2 012

•  Игра Go (Го)  1 937

•  Симулятор лифта  2 296

•  Программа укладки плитки  1 999

•  Генератор лабиринта  2 453

•  Проверка числового ввода  2 137

•  HEX View  2 473

•  Физический маятник  2 089

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Производная TOutline



Автор: Craig Osterloh

Я пытаюсь создать компонент, производный от TOutline и хотел бы использовать несколько иконок для изображения папок, документов и т.п. Только не знаю как.

Если установлен стиль otOwnerDraw, вы можете сами отрисовывать компонент. В этом режиме вы можете вывести какие угодно изображения. Примечание: чтобы получить OwnerDraw для работы, вы должны установить свойство Scrollbar в vsVertical.

Затем обрабатывайте событие OnDrawItem для рисования каждой строчки OutLine.

Для получения правильного индекса узла используйте GetItem(Rect.Left, Rect.Top). Индекс в drawItem неверен.

Вот пример из моего приложения. Надеюсь это вам поможет.


procedure TfrmMain.Outline2DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  Node: TOutlineNode;
  NodeIdx: Integer;
  Offset: Integer;
  NowBitmap: TBitmap;
  NowAstValue: string;
begin
  NodeIdx := Outline2.GetItem(Rect.Left, Rect.Top);
  Node := Outline2.Items[NodeIdx];
  NowAstValue := PAstRec(Outline2.Items[NodeIdx].Data)^.AstValue;
  with Outline2.Canvas do
  begin
    Font.Name := 'MS Sans Serif';
    Font.Size := 8;
    Offset := MulDiv(Font.Size, 150, 100);
    fillRect(Rect);
    Rect.Left := Rect.Left + ((Node.Level - 1) * Offset + 2);
    if Node.HasItems then
    begin
      if Node.Expanded then
        NowBitmap := Outline2.PictureMinus
      else
        NowBitmap := Outline2.PicturePlus;
      {рисуем иконку}
      BrushCopy(Rect, NowBitmap,
        Bounds(0, 0, Rect.Right - Rect.Left, Rect.Bottom -
        Rect.Top),
        NowBitmap.TransparentColor);
    end;
    Rect.Left := Rect.Left + Offset + 2;
    {выводим текст}
    TextOut(Rect.left, Rect.Top, Node.Text);
    {создаем суммирующую колонку с правым выравниванием}
    Rect.Left := Rect.Right - TextWidth(NowAstValue) - 2;
    TextOut(Rect.Left, Rect.Top, NowAstValue);
  end;
end;

А как работает функция PAstRec() и как получить указатель на данные?


function TfrmMain.LoadAssetNodes(fName: string; header: string): Double;
var
  headerIdx: Integer;
  NowClientID: string;
  TotAssetValue: Double;
  AstRecPtr: PAstRec;
  sqlText: string;
  HeadPtr: PAstRec;
begin
  with qryAssets do
  begin
    NowClientID := dtbClients.Fields[0].AsString;
    sqlText := 'Select * from ' + fName + ' where ClientID = ' +
      NowClientID;
    SQL.Clear;
    SQL.Add(sqlText);
    Open;
    First;
    TotAssetValue := 0;
    new(HeadPtr);
    headerIdx := outAssets.AddObject(0, header, HeadPtr);
    while not EOF do
    begin
      new(AstRecPtr);
      AstRecPtr^.AstValue := format('%8.0n',
        [FieldByName('AssetValue').AsFloat]);
      TotAssetValue :=
        TotAssetValue + FieldByName('AssetValue').AsFloat;
      outAssets.AddChildObject(headerIdx,
        FieldByName('AssetName').AsString,
        AstRecPtr);
      Next;
    end;
    HeadPtr^.AstValue := format('%8.0n', [TotAssetValue]);
    Result := TotAssetValue;
  end;
end;








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте