ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору DevExpress Обмен опытом, обсуждение нюансов и решение проблем возникающих при использовании библиотеки компонент Developer Express Ресурсы: Home page Documentation for VCL Products Support Center Online documentation (VCL отсутствует) Community blog DevExpress Channel - Training Videos, Interviews, Demos DX-Squad - комсомольцы-добровольцы, защитники слабых и угнетенных   DLL со скинами из библиотеки dxSkins, автор Ziltoid Подробнее... линк обновлен Продолжение, Первая часть, вторая часть, третья часть Полезные утилиты: DxAutoInstaller v2.1.10 Простой и удобный тул для установки девок из исходников https://mega.nz/#!aJRQzSqI!N7RgfcG1tfF45Z3OgcmBDHT_ZcWlIgJQ5eHHgQ9VupE Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 04:48 31-12-2009 | Исправлено: G787, 21:12 29-07-2018

dred2k Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору svs123456789 Код:   <DBTableView>.DataController.Values[<DBTableView>.DataController.GetFocusedRecordIndex, <DBTableView>.DataController.GetItemByFieldName(<имя поля первичного ключа датасета>).Index]     Это для одной записи, на которой находится фокус. Выбранных же записей может быть несколько (если включен мультивыбор). Там будет немного иначе. Всего записей: 403 | Зарегистр. 15-02-2006 | Отправлено: 11:40 21-04-2014 | Исправлено: dred2k, 11:44 21-04-2014

ChSerg Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору svs123456789 Я делаю так: Код:   function GetFocusedRecKey: Variant; var   L: TStringList;   I: Integer; begin   Result := null;   if qryData.Active then     if Pos(';', View.DataController.KeyFieldNames) = 0 then begin       S := View.DataController.KeyFieldNames;       Result := qryData.FieldByName(S).Value;     end else begin       L := TStringList.Create;       try         L.StrictDelimiter := True;         L.Delimiter := ';';         L.DelimitedText := View.DataController.KeyFieldNames;         Result := VarArrayCreate([0, Pred(L.Count)], varVariant);         for I := 0 to Pred(L.Count) do begin           Result[I] := qryData.FieldByName(L[I]).Value;         end;       finally         L.Free;       end;     end; end;   Всего записей: 936 | Зарегистр. 30-08-2001 | Отправлено: 16:00 21-04-2014

vcrank Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Кто-нибудь можете предположить почему при отношении master-detail у некоторых записей отображается не полная информация в таблице detail? Записей в таблице detail для этого отношения именно 22, но показывается почему-то 18 Само отношение в гриде выставлено правильно. Вот ещё скрин из этого же приложения, но из раздела внесения данных Всего записей: 1067 | Зарегистр. 24-10-2005 | Отправлено: 11:12 22-04-2014

NightSpawn Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите, пожалуйста, как закрасить заголовок в cxGrid или даже точнее сменить стиль именно "заголовка"?     Есть вот такое: А хочется вот так:   cxGrid 12.2.6     Пробовал хотя бы таким образом что-нибудь сделать с заголовком, но кроме изменившегося стиля шрифта ничего не происходит:   Код:   var    cxStyle1: TcxStyle;   procedure TForm1.FormCreate(Sender: TObject); begin    // Стили    cxStyle1 := TcxStyle.Create(Self);    cxStyle1.Font.Style := [fsBold];    cxStyle1.Color := $0042D7FF; end;   procedure TForm1.cxGrid1DBTableView1StylesGetHeaderStyle(    Sender: TcxGridTableView; AColumn: TcxGridColumn; out AStyle: TcxStyle); begin    if Assigned(AColumn) then      if AColumn.SortOrder <> soNone then        AStyle := cxStyle1; end;   Всего записей: 87 | Зарегистр. 01-01-2007 | Отправлено: 04:48 23-04-2014 | Исправлено: NightSpawn, 04:52 23-04-2014

Cryogen2003 Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору NightSpawn можно сделать так только через стили. шрифт там и стиль шрифта. Любой цвет работать в девэкспрессах не будет, если на форме какой-либо скин наложен. То есть цвет берется из скина и только из скина ---------- Холодильники мы Всего записей: 745 | Зарегистр. 08-12-2004 | Отправлено: 07:18 23-04-2014

dred2k Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору svs123456789 Фильтр грида никак не влияет на датасет. Вот обход по фильтрованным записям, обратный вариант, думаю, сделаешь сам. Код:      for i := 0 to DBTVList.DataController.FilteredRecordCount - 1 do     begin       tmpRecordIndex := DBTVList.DataController.FilteredRecordIndex[i];       tmpObjectID := nvl(DBTVList.DataController.GetValue(tmpRecordIndex, DBTVList_ObjectID.Index), -1);       tmpServerID := nvl(DBTVList.DataController.GetValue(tmpRecordIndex, DBTVList_ServerID.Index), -1);       tmpObjectNumber := nvl(DBTVList.DataController.GetValue(tmpRecordIndex, DBTVList_ObjectNumber.Index), -1);       if((tmpObjectID = 0) and AExcludeDefaultObject) then         Continue;       if(CheckObjectID(tmpObjectID) and CheckServerID(tmpServerID) and CheckObjectNumber(tmpObjectNumber)) then         tmpL.Add(FormatFullObjectNumber(tmpServerID, tmpObjectNumber));     end;   Всего записей: 403 | Зарегистр. 15-02-2006 | Отправлено: 08:57 23-04-2014

NightSpawn Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору exteris Спасибо, как раз NativeStyle то что нужно было Всего записей: 87 | Зарегистр. 01-01-2007 | Отправлено: 10:01 23-04-2014

G787 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ---- Всего записей: 1035 | Зарегистр. 04-12-2005 | Отправлено: 10:04 23-04-2014 | Исправлено: G787, 10:31 23-04-2014

Blindfold Newbie Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору vcrank Цитата: Разрулил проблему. Оказывается, что надо было связать Tquery между собой с помощью MasterSource Для того чтобы добиться мастер-дитейла лишь средствами грида (без связывания датасетов) необходимо чтобы подчиненный датасет был отсортирован по внешнему ключу. Подчиненный град просто пробегает по датасету и перестает выводить записи как только значение поля с ключём меняется. Всего записей: 8 | Зарегистр. 13-01-2006 | Отправлено: 20:21 25-04-2014

Andryshok Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Cryogen2003 Ну почему же не будет - просто к гриду прикрутить cxStyle Controler в которм настроить необходимые стили и потом присоединить их например к хедеру , контенту...   это же можно прямо в дизайнтайме сделать Я имею в виду не снимать скин со всего приложения, а только настроить сам грид, вот например скрины...там только грид с кастомным стилем, остальные элементы формы со скином   Всего записей: 649 | Зарегистр. 03-06-2009 | Отправлено: 10:37 26-04-2014 | Исправлено: Andryshok, 10:53 26-04-2014

Cryogen2003 Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Andryshok если скин красочный, то мне не дает цветом раскрашивать как я хочу. Стало быть что я делаю не так? ---------- Холодильники мы Всего записей: 745 | Зарегистр. 08-12-2004 | Отправлено: 12:03 26-04-2014

Andryshok Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Cryogen2003 поставь настройки грида как на скрине, все должно быть норм, если все равно не получится - выложу маленький пример Всего записей: 649 | Зарегистр. 03-06-2009 | Отправлено: 22:45 26-04-2014

Cryogen2003 Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Andryshok Нееее, я немного по другое. У меня на форме валяется еще skin controller и в skinname валяется имя выбранного скина (например Office 2013 White). Так после этого любое изменение цвета - это игнор, работают только шрифт и его атрибуты. ---------- Холодильники мы Всего записей: 745 | Зарегистр. 08-12-2004 | Отправлено: 09:42 27-04-2014

Andryshok Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Cryogen2003 Я понимаю, так к форме скин применяй, почему бы нет..., а грид настрой согласно скрину Всего записей: 649 | Зарегистр. 03-06-2009 | Отправлено: 16:11 27-04-2014

Страницы: 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 330 331 332 333 334 335 336 337 338 339 340 341 342

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Использование DevExpress (часть 4)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование