Проблема с кодировкой в OpenDialog

@kavabanga2019 · Регистрация: 25.05.2019

Студворк — интернет-сервис помощи студентам

Возникла проблема не пойму почему так просто мистика. Вот беру код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  i: Integer;
begin
  if not OpenDialog1.Execute then
    exit;
  sl := TStringList.Create;
  for i := 0 to OpenDialog1.Files.Count - 1 do
  begin
    sl.Add(OpenDialog1.Files[i]);
  end;
  Memo1.Text := sl.Text;
end;

И выбираю более 5000 файлов за раз, и в Memo показывается вот такой текст:

C:\Users\admin\Desktop\Files\Новый текстовый документ (1).txt
C:\Users\admin\Desktop\Files\Новый текстовый документ (2).txt
C:\Users\admin\Desktop\Files\Новый текстовый документ (3).txt
C:\Users\admin\Desktop\Files\Новый текстовый документ (4).txt
C:\Users\admin\Desktop\Files\Новый текстовый документ (5).txt
C:\Users\admin\Desktop\Files\Новый текстовый документ (6).txt
... и т.д.
C:\Users\admin\Desktop\Files\Новый текстовый документ (5328).txt
C:\Users\admin\Desktop\Files\Новый текстовый документ (5329).txt
C:\Users\admin\Desktop\Files\Новый текстовый документ (5330).txt

Все нормально пути файлов правильные. Но если я в опциях выберу любую тему оформления для программы например "Sky" и использую тот же код с теме же 5000+ файлами то в Memo показывается уже вот такой текст:

儇\Новый текстовый документ (1).txt
儇\Новый текстовый документ (2).txt
儇\Новый текстовый документ (3).txt
儇\Новый текстовый документ (4).txt
儇\Новый текстовый документ (5).txt
儇\Новый текстовый документ (6).txt
... и т.д.
儇\Новый текстовый документ (5328).txt
儇\Новый текстовый документ (5329).txt
儇\Новый текстовый документ (5330).txt

Показываются не правильные пути файлов. Почему так? После смены темы используется другая процедура определения пути в OpenDialog? Почему кодировка слетает? Как можно это исправить?

Delphi
1
sl.Add(OpenDialog1.Files[i]); // <--- В этой строчке нужно в ручную кодировку делать или как?

Помогите эту мистику победить.

@AzAtom · 17.08.2019, 17:50

Не пытались найти место в коде OpenDialog, где портятся имена файлов? Если его найти, то теоретически можно исправить, не меняя никаких исходников.

@kavabanga2019 · 17.08.2019, 18:26 **[ТС]**

AzAtom, Я пытался найти но именно сам момент когда путь портится не нашел. Но мне кажется все сводится к Vcl.Dialogs и этим участкам кода:

Delphi
1
2
3
function TOpenDialog.DoExecute(Func: Pointer; ParentWnd: HWND): Bool;
const
  MultiSelectBufferSize = High(Word) - 16;

и

Delphi
1
2
3
4
5
if ofAllowMultiSelect in FOptions then
      nMaxFile := MultiSelectBufferSize else
      nMaxFile := MAX_PATH;
    SetLength(TempFilename, nMaxFile + 2);
    lpstrFile := PChar(TempFilename);

а так там уже в OpenFileName - lpstrFile сразу кракозябры, причем портится только папка (путь) а само имя файла всегда нормально отображается. Я далеко не специалист, а только начинающий так что для меня непонятно в чем причина

Может вам понятно будет.

Rayvenor, Спасибо за помощь.

Кто нибудь может рассказать про:

В чем принципиальная разница между OpenDialog и FileOpenDialog из Vista Dialogs? У OpenDialog по умолчанию стоят опции ofEnableSizing и ofHideReadOnly а у FileOpenDialog вообще их нет на что они влияют?

и:

Взять обычный OpenDialog и сделать так чтобы он открывался без темы оформления?

Это точно как то можно сделать так как я находил тему на форуме не так давно и там у людей были сами формы программы в теме оформления но при этом все диалоги выбора файлов, папок и т.д. открывались без темы оформления. Как и где отключить темы оформления у диалогов? В коде, устанавливать какие флаги, просто где то в самих настройках проекта или настройках Delphi?

Flip · 17.08.2019, 19:04

Тут описана твоя проблема, и вроде бы как найдено решение... может чем-то да и поможет

@kavabanga2019 · 17.08.2019, 19:40 **[ТС]**

Flip, Спасибо но чет не совсем пойму VCL Styles Utils это просто модуль для стилизации диалогов или всей программы? Чем она лучше того что уже есть по умолчанию в Delphi? В ней нет всех этих багов?

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

Кто пользовался VCL Styles Utils можете поделится опытом использования да и вообще рассказать что это?

Flip · 17.08.2019, 19:56

kavabanga2019, У тебя жёсткий БАН в переводчике Гугл? Переведи, там же всё написано...

В Стили Utils VCL библиотека Delphi , которые расширяют стили RAD Studio VCL , добавляя уникальные функции , такие как поддержка классических и новых общих диалоговых окон , Task Dialogs , стайлинга всплывающих и оболочки меню , Non клиентской области компонентов и многое другое.

Vcl.Styles.SysControls добавляет поддержку стиля стандартных диалогов Windows.

Модуль Vcl.Styles.Fixes Исправление нескольких отчетов о контроле качества, связанных со стилями VCL.

Модуль Vcl.Styles.Hook для включения исправления методов Windows API и Windows Style.

Вот тебе его блог, где он ковыряет эти визуальные стили, посмотри, много интересного там...

@kavabanga2019 · 17.08.2019, 22:15 **[ТС]**

Flip, Спасибо попробую разобраться что там к чему.

Добавлено через 2 часа 7 минут
Установил VCL Styles Utils ни чего не изменилось, как были кракозябры так и остались, походу не помогает или я что то не так делаю.

Вот вставил код как там в примерах себе в проект:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
program Project1;
 
uses
  SysUtils,
  IOUTils,
  Types,
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1} ,
  Vcl.Themes,
  Windows,
  Vcl.Styles,
  Vcl.Styles.Utils.SysControls,
  Vcl.Styles.Hooks,
  Vcl.Styles.Fixes,
  Vcl.Styles.Utils,
  Vcl.Styles.Ext;
 
{$R *.res}
 
function PathCanonicalize(lpszDst: PChar; lpszSrc: PChar): LongBool; stdcall;
  external 'shlwapi.dll' name 'PathCanonicalizeW';
 
function ResolvePath(const RelPath, BasePath: string): string;
var
  lpszDst: array [0 .. MAX_PATH - 1] of char;
begin
  PathCanonicalize(@lpszDst[0], PChar(IncludeTrailingPathDelimiter(BasePath) +
    RelPath));
  Exit(lpszDst);
end;
 
procedure LoadVCLStyles;
var
  f, s: string;
  LFiles: TStringDynArray;
begin
  s := ExtractFilePath(ParamStr(0));
  LFiles := TDirectory.GetFiles(s, '*.vsf');
  if Length(LFiles) > 0 then
  begin
    for f in TDirectory.GetFiles(s, '*.vsf') do
      if TStyleManager.IsValidStyle(f) then
        TStyleManager.LoadFromFile(f);
  end
  else
  begin
    s := ResolvePath('..\Styles', ExtractFilePath(ParamStr(0)));
    for f in TDirectory.GetFiles(s, '*.vsf') do
      if TStyleManager.IsValidStyle(f) then
        TStyleManager.LoadFromFile(f);
  end;
end;
 
begin
  LoadVCLStyles;
  TStyleManager.TrySetStyle('Carbon');
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Программа запускается с темой оформления, на форме в кнопку вписал код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  i: Integer;
begin
  if not OpenDialog1.Execute then
    exit;
  sl := TStringList.Create;
  for i := 0 to OpenDialog1.Files.Count - 1 do
  begin
    sl.Add(OpenDialog1.Files[i]);
  end;
  Memo1.Text := sl.Text;
end;

Проверяю те же 5000+ файлов все тоже самое что и раньше

Что я не так сделал?

@kavabanga2019 · 19.08.2019, 10:36 **[ТС]**

Может кто помочь с VCL Styles Utils?

@kavabanga2019 · 01.09.2019, 13:25 **[ТС]**

В FileOpenDialog из Vista Dialogs при его открытии с права отображается область предварительного просмотра, как ее можно отключить чтобы при открытии FileOpenDialog эта область не отображалась?

Добавлено через 2 минуты
И где можно найти описание всех опций FileOpenDialog из Vista Dialogs? Описание опций обычного OpenDialog есть, а вот на FileOpenDialog не могу найти

Flip · 01.09.2019, 15:43

Vista Dialogs и FileOpenDialog

@D1973 · 02.09.2019, 05:27

Сообщение от kavabanga2019

как ее можно отключить чтобы при открытии FileOpenDialog эта область не отображалась?

1. В режиме Run-Time:

Delphi
1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  FileOpenDialog1.Options := FileOpenDialog1.Options - [fdoForcePreviewPaneOn];
end;

2. В режиме Design-Time:
В Object Inspector опцию fdoForcePreviewPaneOn компонента FileOpenDialog установить в false

Сообщение от kavabanga2019

где можно найти описание всех опций FileOpenDialog из Vista Dialogs?

Не особо-то они от стандартных отличаются... Более того, все и так понятно, если название перевести...

@kavabanga2019 · 09.09.2019, 19:42 **[ТС]**

D1973, Спасибо. Возник еще вот такой вопрос. Когда я выбираю много файлов то имена файлов в OpenDialog (в его Edit) пропадают, то есть как бы Edit становится пустым и при этом в самой программе в Edit (дублируются имена туда из OpenDialog) тоже становится как бы пустым, почему как бы? Потому что в Edit не чего не отображается но если проверить его на пустоту условием, то оно не выполняется как будто там есть текст. Как определить тогда этот момент что в Edit (в программе) есть текст когда он не отображается?

@kavabanga2019 · 09.09.2019, 21:16 **[ТС]**

Пробовал разные файлы с разными именами и выяснилось что количество файлов не влияет на исчезновение текста в Edit, их может быть и 20 файлов и 1000 файлов, влияет именно длинна строки в которой находятся все эти имена файлов но при выборе файлов с именами на русском и английском или других символов длинна до исчезновения текста из Edit всегда разная, я так понимаю оно там байтами измеряется а не количеством самих символов? Если да то как узнать при каком количестве байт начинает исчезать текст из Edit?

@D1973 · 10.09.2019, 09:33

kavabanga2019, мне не совсем понятно, зачем ориентироваться на поле ввода имени файла при выборе нескольких файлов. Вот появился у Вас на экране FileOpenDialog... У вас просто не получится нажать кнопку "Открыть" этого диалога без того, чтобы не выбрать хотя бы один файл... А после того, как Вы выбрали несколько файлов - список этих файлов и их количество Вы можете узнать, анализируя свойство Files типа TStrings компонента...

Delphi
1
2
with FileOpenDialog1 do
  if Execute then ShowMessage(Format('Выбрано файлов - %d', [Files.Count]));

@kavabanga2019 · 10.09.2019, 11:27 **[ТС]**

D1973, Я просто сильно намудрил с вопросом и просто наверно непонятна суть, у меня есть Edit в программе и в него выводится имена выбранных файлов по типу как в OpenDialog, то есть 1.нажимается кнопка 2.открывается OpenDialog 3.выбираются файлы 4.жмем кнопку выбрать 5.в Edit программы выводятся все имена выбранных файлов. Если например выбрать файлов 10 то в Edit все имена отображаются нормально, но если выбрать много файлов то в Edit не отображаются эти имена файлов (сам текст не отображается) но если проверить этот Edit на пустоту то по условию показывается что Edit не пустой. И при этом я могу в конец строки Edit поставить курсор (как будто в нем одни пробелы так как текст не отображается) и если например начать удалять с конца бекспейсом, то через некоторое количество удаленных символов текст в Edit появляется. Проблема в том что при выборе кучи файлов и при этом в Edit не отображаются имена, то непонятно выбрались файлы или нет, поэтому нужно условие чтобы определить что в Edit всетаки есть текст но он не отображается и если это так то вывести в Edit другой текст ну например тот что вы и предложили 'Выбрано файлов - %d'. Пока пытался понять в чем проблема выяснил вот это:

Сообщение от kavabanga2019

Пробовал разные файлы с разными именами и выяснилось что количество файлов не влияет на исчезновение текста в Edit, их может быть и 20 файлов и 1000 файлов, влияет именно длинна строки в которой находятся все эти имена файлов но при выборе файлов с именами на русском и английском или других символов длинна до исчезновения текста из Edit всегда разная, я так понимаю оно там байтами измеряется а не количеством самих символов? Если да то как узнать при каком количестве байт начинает исчезать текст из Edit?

@mr-Crocodile · 10.09.2019, 12:01

Сообщение от kavabanga2019

Когда я выбираю много файлов то имена файлов в OpenDialog (в его Edit) пропадают

код свой покажи, как ты имена файлов добавляешь в Edit
потому как меня терзают смутные сомнения, что у тебя там переводы строки попадают.

@kavabanga2019 · 10.09.2019, 12:54 **[ТС]**

mr-Crocodile, Тут проблема даже не в добавлении имен файлов в Edit через OpenDialog, а проблема в самом Edit получается так как я вставил в Edit просто текст и эфект тот же. Вот попробуйте вставить в Edit этот текст:

абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁ ЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклм нопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУ ФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъ ыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯаб вгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗ ИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмно прстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХ ЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыь эюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвг деёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙ КЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопр стуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧ ШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэю яАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгде ёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛ МНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрст уфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩ ЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяА БВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёж зийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМН ОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуф хцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫ ЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВ ГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзи йклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОП РСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхц чшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭ ЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГД ЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийк лмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРС ТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчш щъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁ ЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклм нопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУ ФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъ ыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯаб вгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗ ИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмно прстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХ ЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыь эюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвг деёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙ КЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопр стуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧ ШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэю яАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгде ёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛ МНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрст уфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩ ЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяА БВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёж зийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМН ОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуф хцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫ ЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВ ГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзи йклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОП РСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхц чшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭ ЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГД ЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийк лмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРС ТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчш щъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁ ЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклм нопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУ ФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъ ыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯаб вгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗ ИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмно прстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХ ЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыь эюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвг деёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙ КЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопр стуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧ ШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэю яАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгде ёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛ МНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрст уфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩ ЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяА БВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёж зийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМН ОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуф хцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫ ЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВ ГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзи йклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОП РСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхц чшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭ ЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГД ЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийк лмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРС ТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчш щъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁ ЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклм нопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУ ФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъ ыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯаб вгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗ ИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмно прстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХ ЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыь эюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвг деёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙ КЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопр стуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧ ШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэю яАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгде ёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛ МНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрст уфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩ ЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяА БВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёж зийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙ

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

@GoodWeather · 10.09.2019, 15:37

оооо!!!! Прекрасный баг в мою коллекцию!))))

Для тестирования использую Delphi Rio и чуток другой код:

Delphi
1
2
3
4
5
6
7
Procedure TForm1.Button1Click(Sender: TObject);
Begin
If OpenDialog1.Execute Then
  ShowMessage('Files.Count == ' + IntToStr(OpenDialog1.Files.Count) + #13#10#13#10 + OpenDialog1.Files[3])
Else
  ShowMessage('Can not Execute');
End;

При первом нажатии кнопки мне сообщает:

---------------------------
Files.Count == 3448

猯\file #0000000C.txt
---------------------------

Хотя выделял всё при помощи нажатия Ctrl+A, а файлов в папке было ровнёхонько 5000, а вовсе не 3448.
3448 на первый взгляд кажется число постоянное. Ну и путь должен был быть "C:\TMP\a_lot_of_files\file #0000000C.txt".

Выключаем этот чёртов Appearance - и всё становится норм. По крайней мере для 5000 файлов.

Добавлено через 3 минуты
хм? Плюс ещё при последующих нажатиях кнопки уже показывает исключительно:

---------------------------
Can not Execute
---------------------------

Почему об этом никто не написал?

Добавлено через 7 минут
хох)) Ещё забавнее: уменьшаем количество файлов точно до этого самого 3448 - и теперь вылетает с... с... барабанная дробь...

Project Project1.exe raised exception class EStringListError with message 'List index out of bounds (3)'.

А если строго меньше этого магического числа (ну хотя бы 3447 файлов) - оп-ля, тогда резко всё становится нормально. %))

Добавлено через 57 минут
...потому что если выбрать ровно 3448 файлов...
...то Files.Count равно единице...
...а в Files.Text грубо говоря одна пустая строчка (если точнее - три каких-то пробельных символа)...

Добавлено через 53 минуты
Именно поэтому я всегда не рекомендую использование Embarcadero VCL Themes Styles Appearance... Никому не ведомо что там где ещё вылезет...
Или оставить системные стили ОС, или брать уже проверенный зарекомендовавший себя скин-движок.

@kavabanga2019 · 10.09.2019, 15:47 **[ТС]**

GoodWeather, Да я тоже в шоке до сих пор нахожусь от этих багов

А проверяли то что я писал в посте 36? Этот баг проявляется и без темы оформления.

@GoodWeather · 10.09.2019, 16:04

Не очень понял, "в конец этого текста в Edit дописать любой символ" - это программно или просто с клавиатуры?
Пустой проект и с клавиатуры - всё нормально. Но насколько я помню Appearance особенно неадекватно себя ведёт при включённом DoubleBuffered.

@kavabanga2019 · 10.09.2019, 16:24 **[ТС]**

GoodWeather, Просто взять тот текст который я постил и вставить его в Edit потом встать в конец всей этой строки и с клавиатуры ввести любые символы, текст должен пропасть, а если удалить символы который ввели с клавиатуры то текст появляется обратно.

Добавлено через 3 минуты
Хахаха сейчас попробовал скопировал свой текст который постил и вставил его в Edit текст пропал сразу хотя если этот же текст копирую из текстового документа то он показывается. О боже

И все это происходит на чистом проекте одна форма и на ней Edit и больше не чего нет и тем оформления тоже нет.

Добавлено через 2 минуты
Люди добрые проверьте кто может у всех ли будет нормально текст в Edit показываться? А если его дважды скопировать и вставить? Может у меня просто проблемы с Delphi или Windows а я сижу мучаюсь((

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@AzAtom Модератор 4153 / 2362 / 814 Регистрация: 15.11.2015 Сообщений: 9,496
	17.08.2019, 17:50
	Не пытались найти место в коде OpenDialog, где портятся имена файлов? Если его найти, то теоретически можно исправить, не меняя никаких исходников. 0

Flip 335 / 173 / 67 Регистрация: 25.02.2018 Сообщений: 616
	17.08.2019, 19:04
	Тут описана твоя проблема, и вроде бы как найдено решение... может чем-то да и поможет 0

@kavabanga2019 0 / 0 / 0 Регистрация: 25.05.2019 Сообщений: 34
	17.08.2019, 19:40 [ТС]
	Flip, Спасибо но чет не совсем пойму VCL Styles Utils это просто модуль для стилизации диалогов или всей программы? Чем она лучше того что уже есть по умолчанию в Delphi? В ней нет всех этих багов? Если это просто стилизация диалогов мне точно не подходит так как по сути мне диалоги в стиле и не нужны главное чтобы сама программа была в стиле а диалоги пускай будут как были (без стиля) главное чтобы они работали правильно. Кто пользовался VCL Styles Utils можете поделится опытом использования да и вообще рассказать что это? 0

Flip 335 / 173 / 67 Регистрация: 25.02.2018 Сообщений: 616
	17.08.2019, 19:56
	kavabanga2019, У тебя жёсткий БАН в переводчике Гугл? Переведи, там же всё написано... В Стили Utils VCL библиотека Delphi , которые расширяют стили RAD Studio VCL , добавляя уникальные функции , такие как поддержка классических и новых общих диалоговых окон , Task Dialogs , стайлинга всплывающих и оболочки меню , Non клиентской области компонентов и многое другое. Vcl.Styles.SysControls добавляет поддержку стиля стандартных диалогов Windows. Модуль Vcl.Styles.Fixes Исправление нескольких отчетов о контроле качества, связанных со стилями VCL. Модуль Vcl.Styles.Hook для включения исправления методов Windows API и Windows Style. Вот тебе его блог, где он ковыряет эти визуальные стили, посмотри, много интересного там... 0

@kavabanga2019 0 / 0 / 0 Регистрация: 25.05.2019 Сообщений: 34
	19.08.2019, 10:36 [ТС]
	Может кто помочь с VCL Styles Utils? 0

@kavabanga2019 0 / 0 / 0 Регистрация: 25.05.2019 Сообщений: 34
	01.09.2019, 13:25 [ТС]
	В FileOpenDialog из Vista Dialogs при его открытии с права отображается область предварительного просмотра, как ее можно отключить чтобы при открытии FileOpenDialog эта область не отображалась? Добавлено через 2 минуты И где можно найти описание всех опций FileOpenDialog из Vista Dialogs? Описание опций обычного OpenDialog есть, а вот на FileOpenDialog не могу найти 0

Flip 335 / 173 / 67 Регистрация: 25.02.2018 Сообщений: 616
	01.09.2019, 15:43
	Vista Dialogs и FileOpenDialog 0

@kavabanga2019 0 / 0 / 0 Регистрация: 25.05.2019 Сообщений: 34
	09.09.2019, 19:42 [ТС]
	D1973, Спасибо. Возник еще вот такой вопрос. Когда я выбираю много файлов то имена файлов в OpenDialog (в его Edit) пропадают, то есть как бы Edit становится пустым и при этом в самой программе в Edit (дублируются имена туда из OpenDialog) тоже становится как бы пустым, почему как бы? Потому что в Edit не чего не отображается но если проверить его на пустоту условием, то оно не выполняется как будто там есть текст. Как определить тогда этот момент что в Edit (в программе) есть текст когда он не отображается? Миниатюры 0

@kavabanga2019 0 / 0 / 0 Регистрация: 25.05.2019 Сообщений: 34
	09.09.2019, 21:16 [ТС]
	Пробовал разные файлы с разными именами и выяснилось что количество файлов не влияет на исчезновение текста в Edit, их может быть и 20 файлов и 1000 файлов, влияет именно длинна строки в которой находятся все эти имена файлов но при выборе файлов с именами на русском и английском или других символов длинна до исчезновения текста из Edit всегда разная, я так понимаю оно там байтами измеряется а не количеством самих символов? Если да то как узнать при каком количестве байт начинает исчезать текст из Edit? 0

@kavabanga2019 0 / 0 / 0 Регистрация: 25.05.2019 Сообщений: 34
	10.09.2019, 12:54 [ТС]
	mr-Crocodile, Тут проблема даже не в добавлении имен файлов в Edit через OpenDialog, а проблема в самом Edit получается так как я вставил в Edit просто текст и эфект тот же. Вот попробуйте вставить в Edit этот текст: абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁ ЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклм нопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУ ФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъ ыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯаб вгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗ ИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмно прстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХ ЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыь эюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвг деёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙ КЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопр стуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧ ШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэю яАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгде ёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛ МНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрст уфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩ ЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяА БВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёж зийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМН ОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуф хцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫ ЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВ ГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзи йклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОП РСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхц чшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭ ЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГД ЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийк лмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРС ТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчш щъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁ ЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклм нопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУ ФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъ ыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯаб вгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗ ИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмно прстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХ ЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыь эюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвг деёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙ КЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопр стуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧ ШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэю яАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгде ёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛ МНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрст уфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩ ЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяА БВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёж зийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМН ОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуф хцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫ ЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВ ГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзи йклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОП РСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхц чшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭ ЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГД ЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийк лмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРС ТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчш щъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁ ЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклм нопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУ ФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъ ыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯаб вгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗ ИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмно прстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХ ЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыь эюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвг деёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙ КЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопр стуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧ ШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэю яАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгде ёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛ МНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрст уфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩ ЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяА БВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёж зийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМН ОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуф хцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫ ЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВ ГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзи йклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОП РСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхц чшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭ ЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГД ЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийк лмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРС ТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчш щъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁ ЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклм нопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУ ФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъ ыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯаб вгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗ ИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмно прстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХ ЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыь эюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвг деёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙ КЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопр стуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧ ШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэю яАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгде ёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛ МНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрст уфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩ ЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяА БВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёж зийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙ весь этот текст должен отображаться в Edit, а потом попробуйте в конец этого текста в Edit дописать любой символ (или несколько любых символов) и этот текст визуально пропадет, но если удалить из строки один или несколько любых символов то текст появляется обратно. 0

@kavabanga2019 0 / 0 / 0 Регистрация: 25.05.2019 Сообщений: 34
	10.09.2019, 15:47 [ТС]
	GoodWeather, Да я тоже в шоке до сих пор нахожусь от этих багов А проверяли то что я писал в посте 36? Этот баг проявляется и без темы оформления. 0

@GoodWeather 886 / 588 / 179 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	10.09.2019, 16:04
	Не очень понял, "в конец этого текста в Edit дописать любой символ" - это программно или просто с клавиатуры? Пустой проект и с клавиатуры - всё нормально. Но насколько я помню Appearance особенно неадекватно себя ведёт при включённом DoubleBuffered. 0

@kavabanga2019 0 / 0 / 0 Регистрация: 25.05.2019 Сообщений: 34
	10.09.2019, 16:24 [ТС]
	GoodWeather, Просто взять тот текст который я постил и вставить его в Edit потом встать в конец всей этой строки и с клавиатуры ввести любые символы, текст должен пропасть, а если удалить символы который ввели с клавиатуры то текст появляется обратно. Добавлено через 3 минуты Хахаха сейчас попробовал скопировал свой текст который постил и вставил его в Edit текст пропал сразу хотя если этот же текст копирую из текстового документа то он показывается. О боже И все это происходит на чистом проекте одна форма и на ней Edit и больше не чего нет и тем оформления тоже нет. Добавлено через 2 минуты Люди добрые проверьте кто может у всех ли будет нормально текст в Edit показываться? А если его дважды скопировать и вставить? Может у меня просто проблемы с Delphi или Windows а я сижу мучаюсь(( 0