Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Embarcadero RAD Studio

Модерирует : ShIvADeSt

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329

Открыть новую тему     Написать ответ в эту тему

V1s1ter



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
         
Обсуждаем новые возможности и баги
 
Просьба писать про Embarcadero RAD Studio XE5, XE6, XE7, XE8, 10.x (Seattle, Berlin,Tokyo)
  По вопросам скачивания - Тема в Варезнике (lite-версии тут)
  Вопросы по неюникодным версиям Delphi — шестая бумага
  Бесплатные Компоненты и утилиты для Delphi/BCB/FreePascal/Lazarus
  Коммерческие компоненты и утилиты для Delphi/BCB
  Вопросы по компонентам для Delphi, C++ Builder разных версий
  Новые языковые возможности, начиная с Delphi 2005 по XE4 — здесь, и New!здесь еще
  Англоязычный официальный форум Embarcadero — здесь
  Embarcadero Quality Central, веб интерфейс — здесь, новый Quality Portal тут
  Программирование на Delphi — викиверситет
  Другие ресурсы
   Предыдущие бумаги
 
     Вопросы ..XE4       Вопросы ..XE3    Вопросы ..XE2      
  Вопросы ..2009-XE    Вопросы ..<2009 / ч.5    Вопросы ..<2009 / ч.4      
  Вопросы ..<2009 / ч.3    Вопросы ..Delphi 2 / ч.2    Вопросы ..Delphi  
  Выключение встроенного эксперта Castalia  для XE8 (иногда помогает при вылетах и тормозах)  
  Полезные плагины(эксперты)
Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 15:25 11-09-2013 | Исправлено: Komandor, 15:49 31-03-2024
Tulnov



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Русификация Delphi 11.1 версии 28.0.44500.8973 (run-time, .pas-файлы) Пасс - стандартный.
Как устанавливать: содержимое архива распаковать в каталог, прописанный в Library Path, либо в папку с проектом.
Замечания, баги, пожелания - в личку.
 
з.ы. Сделано на основе Русификации Delphi 2007 (run-time, .pas-файлы) от PoleSoft
Всего записей: 797 | Зарегистр. 15-05-2003 | Отправлено: 14:35 18-03-2022
StalkerSoftware



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hi All,
 
Нужна помощь.
 
Есть таблица с 6-ю колонками с ширинами 10, 10, 10, 20, 40, 10 ед, т.е. общая  
ширина таблицы 100 ед.
 
Скажем я прячу колонки 1-3.
Оставшиеся колонки 4-6 имеют ширину 70 ед.
 
Вопрос: Как рассчитать увеличение ширин этих оставшихся колонок, что бы общая ширина таблицы осталась 100 ед, и при этом каждая из оставшихся колонок должна увеличиться пропорционально своей первоначальной ширине ?
Всего записей: 683 | Зарегистр. 23-06-2008 | Отправлено: 19:08 01-04-2022 | Исправлено: StalkerSoftware, 19:12 01-04-2022
Tulnov



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
StalkerSoftware
Ответ в самом вопросе

Цитата:
каждая из оставшихся колонок должна увеличиться пропорционально

Т.е. по пропорции: Новая ширина колонки = Старая ширина колонки * 100 / 70
Чтобы было точно, ширину последней колонки можно получить разницей
Всего записей: 797 | Зарегистр. 15-05-2003 | Отправлено: 07:31 02-04-2022
stanzdor



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
где-то так чисто теоретически:
 

Код:
 
type
  TCol = record
    widthPercent : integer; // процент от общей ширины
    width        : integer;
    visible      : boolean;
  end;
..
var
  myCol: array[0..5] of Tcol =  ( (widthPercent:10; width:0; visible:true), (widthPercent:10; width:0; visible:true), (widthPercent:10; width:0; visible:true), (widthPercent:20; width:0; visible:true), (widthPercent:40; width:0; visible:false), (widthPercent:10; width:0; visible:true)   );
...
 
procedure SetColWidth(width: integer);
var
  i: integer;
  visiblePercent: integer; // процент видимых столбцов
 
  function myWidth(val: integer): integer;
  begin
     if  (not myCol[val].visible) then result:= 0 else
     result:= round( width * myCol[val].widthPercent / visiblePercent );
 
  end;
 
begin
  visiblePercent:= 0; // считаем общий процент видимых столбцов
  for i := 0 to 5 do if myCol[i].visible then visiblePercent:= visiblePercent + myCol[i].widthPercent;
  for i := 0 to 5 do  myCol[i].width:=  myWidth(i);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  Grid.ColCount:= length(myCol) ;  Grid.Width:= 1000;
  SetColWidth(Grid.Width);
  for i := 0 to 5 do  Grid.ColWidths[i] := myCol[i].width;
end;
 
 
Всего записей: 603 | Зарегистр. 12-04-2004 | Отправлено: 11:54 02-04-2022 | Исправлено: stanzdor, 17:35 03-04-2022
Ludens

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VadimShvarts
тут в форуме CnWizards меня просят дать ссылку на Distiller 11.
Можно ли ее дать и какую?
Всего записей: 1531 | Зарегистр. 16-01-2006 | Отправлено: 18:04 03-04-2022
stanzdor



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
наконец установил 11.1, дайте мне пожалуйста дистиллер и подскажите какие опции желательно отключить.
Всего записей: 603 | Зарегистр. 12-04-2004 | Отправлено: 18:56 03-04-2022
StalkerSoftware



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Tulnov
stanzdor
Большое спасибо за помощь.
Всего записей: 683 | Зарегистр. 23-06-2008 | Отправлено: 09:51 04-04-2022
Sulphide

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа, в 11.1 Александрии версия компилятора и версии bpl изменились в сравнении с 11ой версией?
Всего записей: 284 | Зарегистр. 20-03-2008 | Отправлено: 15:37 05-04-2022
vez



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Господа, в 11.1 Александрии версия компилятора и версии bpl изменились в сравнении с 11ой версией?

нет
Всего записей: 575 | Зарегистр. 02-06-2003 | Отправлено: 16:40 05-04-2022
stanzdor



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
- del -
извиняюсь, разобрался...
Всего записей: 603 | Зарегистр. 12-04-2004 | Отправлено: 22:18 07-04-2022 | Исправлено: stanzdor, 22:26 07-04-2022
glk63

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто-нибудь знает, куда из контекстного меню Inspector делась команда Range... (Rad Studio 11, C++).? Короче, как посмотреть значения нескольких элементов вектора? В Rad 10 была, а в 11 исчезла.  
 
Оказывается это только для х64, для 32 все, как раньше...
Всего записей: 112 | Зарегистр. 10-10-2005 | Отправлено: 02:13 08-04-2022 | Исправлено: glk63, 05:47 08-04-2022
ooptimum



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Коллеги, в Delphi я как рыба в воде, но тут у меня возникла нужда использовать C++Builder, чего я, кроме баловства с демо-проектами, никогда не делал. И я тут же столкнулся с проблемой.
    Суть проблемы такова:
  1. Создаю пустой проект консольного приложения: File -> New -> Console Application - C++Builder. Сохраняю 3 файла (.cpp, .h, .cbproj) в папке проекта. Все отлично собирается в 32/64-битных Debug/Release конфигурациях.
  2. Добавляю в проект новый класс с именем Worker: File -> New -> Other... -> C++Builder -> Individual Files -> Thread Object. Сохраняю файлы класса (.cpp, .h) в папке проекта. После этого при сборке получаю кучу ошибок линковщика о неразрешенных зависимостях:

    Код:
    [ilink32 Error] Error: Unresolved external 'System::Classes::TThread::' referenced from D:\PROJECTS\TEST\WIN32\DEBUG\WORKER.OBJ
    [ilink32 Error] Error: Unresolved external '__fastcall System::TObject::Equals(System::TObject *)' referenced from D:\PROJECTS\TEST\WIN32\DEBUG\WORKER.OBJ
    [ilink32 Error] Error: Unresolved external '__fastcall System::TObject::GetHashCode()' referenced from D:\PROJECTS\TEST\WIN32\DEBUG\WORKER.OBJ
    [ilink32 Error] Error: Unresolved external '__fastcall System::TObject::ToString()' referenced from D:\PROJECTS\TEST\WIN32\DEBUG\WORKER.OBJ
    ...

Подобное происходит во всех режимах сборки как в 10.4, так и в 11.0. Компилятор - новый (clang). Добавление $(BDSLIB)\$(Platform)\$(Config) в Library Path проблему не решило. Гугл ничего вразумительного подсказать оказался не в состоянии. Одна надежда на вас, камрады. Отчего у меня лыжи не едут?
Всего записей: 2898 | Зарегистр. 30-05-2002 | Отправлено: 15:17 08-04-2022
vez



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Отчего у меня лыжи не едут?

 
На стадии создания проекта надо указать Target FrameWork Visual Component Library,
должно помочь
Всего записей: 575 | Зарегистр. 02-06-2003 | Отправлено: 17:03 08-04-2022
ooptimum



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
vez
 
Спасибо, помогло. Но мне показалось странным подключать всю VCL в консольное приложение и я нашел минимальное изменение, которое необходимо сделать в файле проекта. Для Win32 это строка:

Код:
<AllPackageLibs>rtl.lib</AllPackageLibs>

Её необходимо вставить в секции

Код:
<PropertyGroup Condition="'$(Base)'!=''">
 
около строки:

Код:
<Multithreaded>true</Multithreaded>

К сожалению, я не нашел этот параметр в GUI.
Всего записей: 2898 | Зарегистр. 30-05-2002 | Отправлено: 21:55 08-04-2022
Sulphide

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Поставил таки 11.1, говорили что косяки с DPI исправили, на деле - имеется форма с 3мя панелями в каждой по 2-4 трекбара, ну то есть максимально простая форма + натянут скин win11 темный. В итоге все это дело живет своей жизнью, после запуска приложения форма может стать больше или меньше чем было в дизайнере, т.е. она может быть ровно такая же как в дизайнере, либо увеличивается до синих регуляторов размера формы дизайнера, которые в свою очередь слегка больше формы. Если уменьшить саму форму в дизайнере, так чтобы правый край панелек все еще оставался на форме, то при каком-нибудь запуске приложения форма может уменьшиться и правый край панелек подлезет под правый край формы. Сейчас пока так как на скриншоте. Слева дизайнер, справа приложение. Т.е. форма равна размеру голубого прямоугольника дизайнера, но не равна размеру формы дизайнера.
 
   
Всего записей: 284 | Зарегистр. 20-03-2008 | Отправлено: 00:37 09-04-2022 | Исправлено: Sulphide, 00:53 09-04-2022
Zatupitel



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Это и в 10.4 уже было.
Всего записей: 480 | Зарегистр. 31-08-2006 | Отправлено: 11:32 09-04-2022
SuPriTo



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть ли компонент/библиотека для поиска списка слов в том числе с различными словоформами в тексте?
Всего записей: 1486 | Зарегистр. 24-03-2009 | Отправлено: 12:23 19-04-2022 | Исправлено: SuPriTo, 12:24 19-04-2022
Sulphide

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zatupitel
Самое плохое, что оно может вернуться в то положение которое на первом скриншоте по неизвестным причинам, и если растянуть панели по ширине, чтобы не было такого большого отступа от края формы, то в этом случае край панели уже скроется под краем формы.
Всего записей: 284 | Зарегистр. 20-03-2008 | Отправлено: 16:05 29-04-2022
Zatupitel



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sulphide
Да я уже как-то почти привыкаю, что надо все прописывать ручками, если это что-то для длительного пользования. Простые утилитки особо не париришься, а так да... надо заморочиться.
Но я больше страдаю от того, что нет поддержки Андроида х64 в билдере. А в роэдмэпе теперь указали. что они думают, или добавить Андроид х64 или Линух...  Т.е. не светит счастье как для Дельфи. В конце года видать опять будет релиз  очередной, посмотрим, что они родят.
Всего записей: 480 | Зарегистр. 31-08-2006 | Отправлено: 13:10 30-04-2022
kaz_av

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если кому не лень, проверьте этот код на любом nextgen компиляторе, кроме линукса (Android, iOS device, macOS x86_64, macOS aarch64). Для проверки, достаточно вызвать процедуру Test из обработчика кнопки. На линуксе этт код приводит к завершению приложения. Для желающих проголосовать есть ссылка на тикет: https://quality.embarcadero.com/browse/RSP-38096

Код:
 
type
 
  EError = class(Exception);
  EError2 = class(Exception);
 
  TObj = class
    protected
      procedure Flush;
    public
      destructor Destroy; override;
  end;
 
{ TObj }
 
procedure TObj.Flush;
begin
  raise EError.Create('error');
end;
 
destructor TObj.Destroy;
begin
  try
    Flush;
  except
    on EError do;
  end;
  inherited;
end;
 
procedure Test;
var
  obj : TObj;
begin
 
  obj := TObj.Create;
  try
 
    try
      obj.Flush;
    except
      on EError do
        raise EError2.Create('other error');
    end;
 
  finally
    obj.Free;
  end;
 
end;
 
Всего записей: 457 | Зарегистр. 15-02-2006 | Отправлено: 17:42 30-04-2022
Открыть новую тему     Написать ответ в эту тему

Страницы: 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 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Embarcadero RAD Studio


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru