Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Реализовать функцию удаления файлов и каталогов https://www.cyberforum.ru/ delphi-beginners/ thread2354039.html
Здравствуй, помоги мне реализовать функцию удаление файлов и каталогов: Function Delete (List:TStringList):Integer List:TstringList- список полных имён удаляемых файлов Integer - выходной параметр кол-во удаляемых файлов и каталогов
Delphi Шестиугольное окно
Нужно разработать программу построения окна в виде шестиугольника. Помогите пожалуйста...
Delphi Обработка параметром Sender as TObject https://www.cyberforum.ru/ delphi-beginners/ thread2353947.html
Подскажите как отладить код с параметром Sender такого типа : TForm1 = class(TForm) Shape1: TShape; Shape2: TShape; Shape3: TShape; Button1: TButton; Button2: TButton; Button3: TButton; Label1: TLabel; procedure Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Delphi Реализация чтения текстового файла в форме https://www.cyberforum.ru/ delphi-beginners/ thread2353833.html
Возникла такая проблема, мне нужно сделать программу для обучения и необходимо выложить соответствующую теорию. Возник вопрос, как можно текстовый файл к примеру документ word засунуть в форму для чтения и при этом чтобы была возможность прокрутки колесом мыши. т.е. грубо говоря необходимо как в режиме чтения ознакомиться с текстовым файлом. Если так нельзя, то посоветуйте какое-либо решение....
Delphi Разработайте программу ввода исходных данных из текстового файла в массив записей
Разработайте программу ввода исходных данных из текстового файла в массив записей. Исходные данные и необходимые результаты представьте на форме с помощью подходящих компонентов и запишите в текстовый файл. Требуемые функции выбирается с помощью меню. Сведения о наличии билетов на рейсы самолетов: - номер рейса; - пункт назначения; - время вылета; - время прибытия; - количество свободных...
Delphi Использование комплексных чисел Делается программа для тестирования. т.е. есть edit, в который учеником вводится число, после чего выводится уже верное число в соседний edit (ну, естественно, они сравниваются и пишется, если ученик ошибся) Исходные данные: L:=0.22; Cp:=150; a:=199440; И, считая по формуле w:=Sqrt(1/(L*Cp*0.000001*0.000001)-sqr(a)); мы получаем комплексное число (*0.000001*0.000001 - т.к. real не может в... https://www.cyberforum.ru/ delphi-beginners/ thread2353764.html
Delphi Сделать большими все буквы в тех словах, в которых нет ни одной пары подряд идущих согласных букв Сделать большими все буквы в тех словах, в которых нет ни одной пары подряд идущих согласных букв. https://www.cyberforum.ru/ delphi-beginners/ thread2353738.html Delphi Все гласные буквы заменить символом "&"
Операции над множествами. Задание: Все гласные буквы заменить символом "&"
Delphi Переделать код с Pascal на Delphi https://www.cyberforum.ru/ delphi-beginners/ thread2353723.html
Необходимо переделать данный код под Delphi. Ответить, желательно, не ссылкой на похожий вопрос, а кодом и объясненем. uses CRT; type tTrip = record // рейс theNumber : Integer; // номер рейса theDestination : String; // пункт назначения timeOfDeparture : String; // время вылета timeOfArrival : String; // время прилёта
Delphi Проблемы с тестом на делфи с оператором case Всем привет, у меня при создании теста возникла очень непонятная проблема. При компилировании программы почему то выводится сразу 3 ий вопрос и соответствующие ответы вот код: unit Unit5; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; type https://www.cyberforum.ru/ delphi-beginners/ thread2353464.html
Как сделать автоматический сдвиг label ? Delphi
Как сделать автоматический сдвиг в право label2(Код продукта) от label1(отсутствует) ? Caption обоих label'ов постоянно меняется и иногда они налезают друг на друга
Delphi Поиск в ListBox https://www.cyberforum.ru/ delphi-beginners/ thread2353053.html
Добрый день. Необходимо сделать поиск в listbox при указании текста в edit. Необходимо чтобы, было следующего плана: начинаешь вписывать текст, и чтобы оставались подходящие listboxItem, а после очищения edit снова возвращались все listboxitem. Ранее делал через labeledEdit, все получалось. А сейчас пробую на форме multi-device через edit (так как тут нет labeledEdit) и ничего не выходит...
9 / 9 / 4
Регистрация: 11.07.2012
Сообщений: 200
0

Кастомная отрисовка в компонентах DevExpress - Delphi - Ответ 13073085

19.11.2018, 09:19. Показов 2211. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Всем доброго времени суток.

Вопрос по DevExpress (TcxTreeList - CustomDrawDataCell)

Если кто нибудь реализовывал в своих проектах кастомную отрисовку текста (содержимого в ячейках грида).

Встала задача раскрасить посимвольно текст в ячейке, и она реализована в событии CustomDrawDataCell

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TFrmLog.tlLogCustomDrawDataCell(Sender: TcxCustomTreeList;
  ACanvas: TcxCanvas; AViewInfo: TcxTreeListEditCellViewInfo;
  var ADone: Boolean);
var
  ManagerCustomDrawCell: IManagerCustomDrawCell;
begin
  if (AViewInfo.Column.ItemIndex = 2) then
  begin
    ADone := True; // сами полностью всё пророисовываем
 
    ACanvas.FillRect(AViewInfo.ContentRect); 
 
    ManagerCustomDrawCell := TManagerCustomDrawCell.Create(
      AViewInfo.Node.Texts[2], 
      AViewInfo.ContentRect, ACanvas);
 
    ManagerCustomDrawCell.DoTextOut;
  end;
end;
 
  ........................
 
procedure TManagerCustomDrawCell.RangeTextOutByTag(const AItemTag: TItemTag;
  const AParseStr: string; const ATop, ABottom: Integer);
var
  RangeStr: string;
begin
  RangeStr := Copy(AParseStr, AItemTag.FPosBeginTag,
    (AItemTag.FPosEndTag + 1) - AItemTag.FPosBeginTag);
 
  FCanvas.Font.Color := AItemTag.FColor;
 
  FCanvas.DrawText(RangeStr, Rect(AItemTag.FRectLeft, ATop,
    AItemTag.FRectRight, ABottom), cxShowEndEllipsis);
end;
Частично привел код который этим занимается.
Теперь текст раскрашивается соглассованно с заранее построеной картой тэгов (сам текст также заранее в эти теги
обрамлен) и все хорошо но одно НО

Когда сдвигаешь правую границу столбца в котором текст отрисован кастомно то она наползает на содержимое
этого стобца вместе с текстом следующего столбца.

Если сделать.
Delphi
1
ADone := False;
то TcxTreeList сам начинает рулить отрисовкой содержимого
в инспекторе обьектов можно настроить авто перенос строки можно без него но влюбом случае текст
скрывается за границей не что не на что не налазит но и посимвольно раскрасить нельзя можно только
всю строку.

Все это относится не только к
Delphi
1
TcxTreeList
но и к другим
Delphi
1
DevExpress
контролам.

Подскажите что где нужно подкрутить, ни где не могу найти похожего примера / случая.

Вернуться к обсуждению:
Кастомная отрисовка в компонентах DevExpress Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2018, 09:19
Готовые ответы и решения:

Кастомная отрисовка виджета
Всем привет. Столкнулся с такой проблемой: В общем есть виджет, который отображает некоторые...

Кастомная клавиатура
Доброго времени суток!Как сделать кастомную клавиатуру в собственном приложении?Весь Интернет...

Кастомная оболочка
Начал изучать JavaFX. Новичок совсем. Хочу создать свое приложение с кастомным графическим...

кастомная валидация
Здравствуйте. Не могу написать правильно валидацию. Есть таблица компании и таблица юзеры. При...

1
19.11.2018, 09:19
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2018, 09:19
Помогаю со студенческими работами здесь

Кастомная таблица
Здравствуйте, у меня такой вопрос возник с версткой в Django. возможно ли сделать такое? если да,...

Кастомная авторизация
В общем зачем мне это надо, ответ прост - начальство как всегда самое умное... Так вот в общем-то...

Кастомная пагинация страниц
Доброго времени, форумчане! Подскажите идею как можно сделать следующее - пагинация в таком виде ...

Кастомная сборка программ
Требуется собрать установщики программ в один, и произвести тихую установку — чтобы за один клик...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru