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

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

Модерирует : 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 330 331 332 333 334 335 336 337 338 339 340 341 342

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

ShIvADeSt



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

Обмен опытом, обсуждение нюансов и решение проблем возникающих при использовании библиотеки компонент Developer Express




 
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
X11



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Я где-то видел или выкладывал пример с ричэдит
 
Добавлено:
Посмотрите эти примеры, может найдёте: http://ovrload.ru/f/7515_devexpress_-_%D0%BF%D0%BE%D0%B4%D1%81%D0%B2%D0%B5%D1%82%D0%BA%D0%B0_%D1%81%D0%BB%D0%BE%D0%B2_%D0%B2_%D1%8F%D1%87%D0%B5%D0%B9%D0%BA%D0%B0%D1%85.rar
 
И воздержитесь следующий раз от грубостей, здесь Вам не быдлочат.

----------
/не мы такие, жизнь такая/

Всего записей: 3253 | Зарегистр. 24-11-2005 | Отправлено: 12:53 15-06-2013
bolega

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

Цитата:
Я где-то видел или выкладывал пример с ричэдит  

 
Спасибо. Это все примерно то же, что и я делал. Я только делал это не для подсветки поиска, а для постоянной подсветки определенных слов.  
Но эти примеры не решают главных проблем, которые я описал: сxGrid неверно считает высоту строк при наличии Bold-стилей в шрифте и глюк с подсветкой фона. Кстати, для подсветки фона нет нативной поддержки ни в стандартном Richedit, ни в cxRichedit, пришлось использовать winapi.  
Видимо, с глюками придется бороться самому. Интересно, где в devex идет расчет высоты строки? Нужно будет там поковыряться.
 

Цитата:
И воздержитесь следующий раз от грубостей

ОК, извините. Но меня самого сильно обижает, когда меня посылают на ... гугл. Не чайник я, уж там то предварительно бываю

Всего записей: 4408 | Зарегистр. 09-09-2002 | Отправлено: 13:11 15-06-2013
X11



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Может можно попробовать встроить в ячейку сторонний компонент?
http://www.sql.ru/forum/996417-24/html-v-komponentah?hl=html
 
Добавлено:
Второе решение - выводить в ячейках на канву картинки.

----------
/не мы такие, жизнь такая/

Всего записей: 3253 | Зарегистр. 24-11-2005 | Отправлено: 13:39 15-06-2013
bolega

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
X11
Спасибо, буду думать.
Выводить - не проблема, код вывода (типа htmllabel) можно взять из TMS, но надо понять, как заставить грид давать правильную высоту строки к началу отрисовки, иначе часто подсвеченное не видно и весь смысл ее теряется.
Коммерческий Trichview слишком громоздкий для такой задачи, задачи редактировать у меня нет, только отображение

Всего записей: 4408 | Зарегистр. 09-09-2002 | Отправлено: 14:18 15-06-2013 | Исправлено: bolega, 14:20 15-06-2013
neznayka3

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
данные изменяются только в гриде визуально, в DataSet-е ничего не происходит. где подкрутить? настройки TcxGridDBTableView по умолчанию.  

Код:
var
  i: Integer;
  FDataController: TcxGridDBDataController;
begin
  FDataController := dbtv1_.DataController;
 
  for i := 0 to FDataController.FilteredRecordCount - 1 do
  begin
    // FDataController.Edit;
 
    FDataController.Values[FDataController.FilteredRecordIndex[i], dbtv1_rate.Index] := -111;
 
   // FDataController.Post();
  end;

 
upd. написал:
Код:
var
  i, f: Integer;
  FDataController: TcxGridDBDataController;
begin
  FDataController := dbtv1_.DataController;
  f := FDataController.FocusedRecordIndex;
  try
    for i := 0 to FDataController.FilteredRecordCount - 1 do
    begin
      FDataController.FocusedRecordIndex := FDataController.FilteredRecordIndex[i];
      FDataController.SetEditValue(cxgrdbclmndbtv1_Column1.Index, -333, evsValue);
      FDataController.Post();
    end;
  finally
    FDataController.FocusedRecordIndex := f;
  end;
при использовании SetEditValue нельзя использовать BeginUpdate/EndUpdate.  
как правильно обойти отфильтрованные записи, и присвоить им значения? писать <Dataset>.Locate(..) внутри цикла и работать напрямую с датасетом?

Всего записей: 385 | Зарегистр. 07-06-2007 | Отправлено: 21:22 15-06-2013 | Исправлено: neznayka3, 00:28 16-06-2013
X11



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FDataController.Values[]
 
Добавлено:

Цитата:
данные изменяются только в гриде визуально, в DataSet-е ничего не происходит.


Цитата:
 // FDataController.Post();  

 
а зачем Post закомментировали?

----------
/не мы такие, жизнь такая/

Всего записей: 3253 | Зарегистр. 24-11-2005 | Отправлено: 11:05 16-06-2013
neznayka3

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

Цитата:
FDataController.Values[]  
 // FDataController.Post();  
 

Post или нет, работать не будет. для изменений в датасете только SetEditValue

Всего записей: 385 | Зарегистр. 07-06-2007 | Отправлено: 11:13 16-06-2013
Vadim153

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Пробую включить cxDBLookupComboBox.
DataSource и DataField не заполняю.
Указываю: ListSource, ListField, KeyField.
В результате получаю выпадающий список нужного поля.
Но, не отображается выбранное значение в самом окне cxDBLookupComboBox-а!
Что нужно сделать?

Всего записей: 51 | Зарегистр. 19-08-2009 | Отправлено: 11:53 16-06-2013
X11



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

----------
/не мы такие, жизнь такая/

Всего записей: 3253 | Зарегистр. 24-11-2005 | Отправлено: 12:09 16-06-2013
Vadim153

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

Цитата:
исп. cxLookupCombobox

Здесь выбирается, но при старте окно пустое. Что сделать?
Нашел: банальный ItemIndex, но курсор в наборе данных при выборе не перемещается, а хотелось бы.
 
А в чем подвох в cxDBLookupComboBox?

Всего записей: 51 | Зарегистр. 19-08-2009 | Отправлено: 12:22 16-06-2013 | Исправлено: Vadim153, 12:36 16-06-2013
makz

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Vadim153
Тогда просто DBcombobox. Lookup это не Locate.

Всего записей: 1034 | Зарегистр. 17-05-2003 | Отправлено: 08:03 17-06-2013
Vadim153

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Накопал следующее.
cxDBLookupComboBox и DBLookupComboBox работают по разному при подключении к набору данных.
cxDBLookupComboBox требует заполнения всех полей: ListSource, ListField, KeyField из одного НД, а также DataSource и DataField из другого.  
У меня только одна не связанная таблица, поэтому этот компонент не подходит.  
Для DBLookupComboBox достаточно заполнить ListSource, ListField, KeyField, и при старте указать:

Код:
DBLookupComboBox1.KeyValue := DBLookupComboBox1.KeyValue := DBLookupComboBox1.ListSource.DataSet.FieldByName(DBLookupComboBox1.KeyField).Value;
 
Курсор при выборе нужной позиции DBLookupComboBox1 перемещается по НД.
 
В результате, для сохранения стиля оформления сделал через cxLookupComboBox. В нем достаточно заполнить ListSource, ListField, KeyField.
По еванту OnChange делаю Locate для НД.
При старте ставим на первую запись:

Код:
cxLookupComboBox.ItemIndex := 0;

Всего записей: 51 | Зарегистр. 19-08-2009 | Отправлено: 08:51 17-06-2013
exteris

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

Цитата:
Нашел: банальный ItemIndex, но курсор в наборе данных при выборе не перемещается, а хотелось бы.  

Properties - ListOptions - SyncMode - True

Всего записей: 382 | Зарегистр. 14-04-2003 | Отправлено: 09:47 17-06-2013
X11



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

Цитата:
исп. cxLookupCombobox
 
Здесь выбирается, но при старте окно пустое. Что сделать?
Нашел: банальный ItemIndex, но курсор в наборе данных при выборе не перемещается, а хотелось бы.  

 
 
Используй cxLookupCombobox.EditValue := ....
В свойстве EditValue живёт то, что живёт в KeyField.Value, т.е. ключевое значение и курсор списока будет позиционироваться, как нужно

----------
/не мы такие, жизнь такая/

Всего записей: 3253 | Зарегистр. 24-11-2005 | Отправлено: 10:00 17-06-2013
makz

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

Всего записей: 1034 | Зарегистр. 17-05-2003 | Отправлено: 10:12 17-06-2013 | Исправлено: makz, 10:49 17-06-2013
Vadim153

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

Цитата:
Properties - ListOptions - SyncMode - True

Да, работает, но только в одну сторону.
Если сделать выбор позиции в cxDBLookupComboBox, то курсор в НД переместится.
Если каким-либо другим компонентом меняем позицию курсора в НД, то это изменение не отобразится в cxDBLookupComboBox.

Всего записей: 51 | Зарегистр. 19-08-2009 | Отправлено: 20:22 17-06-2013
MagistrAnatol



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
подсобите со скинами для девок
Есть главная форма на ней ТилеКонтрол
скин гружу  
 
dxSkinsUserSkinLoadFromFile(ExtractFilePath(Application->ExeName)+"\\MetroBlack.skinres");
dxSkinController1->SkinName="UserSkin";
 
ТилеКонтрол и фреймы меняют скин, а вот гриды на фреймах почему-то нет ??????
и как сделать чтобы скин менялся и для всех форм проекта(не фреймы)???

Всего записей: 2120 | Зарегистр. 09-04-2003 | Отправлено: 17:09 18-06-2013
MagistrAnatol



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
С предыдущим вопросом разобрался.
Теперь другая проблема
Есть папка со скинами *.skinres - можно как-то на форме вывести пред-осмотр етих скинов , как ето реализовано для рибона. Нарисовать кучу картинок не прикольно????
 
Добавлено:
Надо реализовать dxSkinChooserGalleryItem только на форме

Всего записей: 2120 | Зарегистр. 09-04-2003 | Отправлено: 09:59 19-06-2013
MagistrAnatol



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

Код:
cmbVisualStyle.Properties.BeginUpdate;
  AddSkinsFromFile(LocalPath + 'Skins.skinres');
  cmbVisualStyle.Properties.EndUpdate;
   
  procedure TfrmOptions.AddSkinsFromFile(const AFileName: string);
var
  AStream: TStream;
begin
  AStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyNone);
  try
    AddSkinsFromStream(AStream, AFileName, 0);
  finally
    AStream.Free;
  end;
end;
 
function TfrmOptions.GetIsInternalSkin(ASkinDetails: TdxSkinDetails): Boolean;
begin
  result := ASkinDetails.GroupName = '';
end;
 
procedure TfrmOptions.AddSkinsFromStream(AStream: TStream; const ASkinResName: string; ASkinResInstance: HINST);
var
  AReader: TdxSkinBinaryReader;
  I: integer;
begin
 
  try
    AReader := TdxSkinBinaryReader.Create(AStream);
    try
      for I := 0 to AReader.Count - 1 do
      begin
        if not GetIsInternalSkin(AReader.SkinDetails[I]) then
        begin
          AddSkin(AReader.SkinDetails[I]);
        end;
      end;
    finally
      AReader.Free;
    end;
  finally
 
  end;
end;
 
 
procedure TfrmOptions.AddSkin(ASkinDetails: TdxSkinDetails);
var
  ABitmap, ABitmapInDropDown: TBitmap;
  FSkinIconSize, FSkinIconSizeInDropDown: TdxSkinIconSize;
begin
  FSkinIconSize := sis16;
  FSkinIconSizeInDropDown := sis48;
  // ASkinDetails.GroupName
  ABitmap := ASkinDetails.Icons[FSkinIconSize].GetAsBitmap;
  ABitmapInDropDown := ASkinDetails.Icons[FSkinIconSizeInDropDown].GetAsBitmap;
  try
    imglSkinSmall.Add(ABitmap, nil);
    imglSkinLarge.Add(ABitmapInDropDown, nil);
    with cmbVisualStyle.Properties.Items.Add do
    begin
      Value := ASkinDetails.Name;
      Description := ASkinDetails.DisplayName;
      ImageIndex := Index + 1;
    end;
 
  finally
    ABitmapInDropDown.Free;
    ABitmap.Free;
  end;
end;
 
object cmbVisualStyle: TcxImageComboBox
  Left = 28
  Top = 220
  Properties.Images = imglSkinSmall
  Properties.Items = <>
  Properties.LargeImages = imglSkinLarge
  TabOrder = 5
  Width = 407
end

Всего записей: 2120 | Зарегистр. 09-04-2003 | Отправлено: 12:50 19-06-2013
MagistrAnatol



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помощи не дождешься, пришлось самому писать
вот может кому пригодится и проще чем в примере с оффсайта

Код:
//---------------------------------------------------------------------------
void TForm1::LoadSkinInfo(AnsiString SkinFolder,TdxGalleryControl *Gallery)
{
TSearchRec sr;
AnsiString SkinNane,SkinGroupName;
int KlGroup=0;
int GroupIndex;
 
if (FindFirst(SkinFolder+"\\*.skinres", faAnyFile, sr) == 0)
        {
        do
        {
TBitmap *SkinIcon = new TBitmap();
TStream* AStream= new TFileStream(SkinFolder+"\\"+sr.Name,fmOpenRead | fmShareDenyWrite);
TdxSkinBinaryReader *AReader = new TdxSkinBinaryReader(AStream);
 
SkinGroupName=AReader->SkinDetails[0]->GroupName;
SkinNane=AReader->SkinDetails[0]->DisplayName;
SkinIcon=AReader->SkinDetails[0]->Icons[sis48]->GetAsBitmap();
 
 
    for (int i = 0; i < Gallery->Gallery->Groups->Count; i++)
    {
        if (Gallery->Gallery->Groups->Groups[i]->Caption==SkinGroupName)
        {
        KlGroup++;
        GroupIndex=i;
        }
    }
 
 
if (KlGroup==0)
    {
    Gallery->Gallery->Groups->Add();
    Gallery->Gallery->Groups->Groups[Gallery->Gallery->Groups->Count-1]->Caption=SkinGroupName;
    GroupIndex=Gallery->Gallery->Groups->Count-1;
    }
TdxGalleryControlItem *AItem = Gallery->Gallery->Groups->Groups[GroupIndex]->Items->Add();
AItem->Glyph->Assign(SkinIcon);
AItem->Caption = SkinNane;
AItem->Name=sr.Name.SubString(1,sr.Name.Pos(".")-1);
 
 
delete AStream;
delete AReader;
 
        } while (FindNext(sr) == 0);
        FindClose(sr);
        }
 
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
LoadSkinInfo(Edit1->Text,dxGalleryControl123);
}
//---------------------------------------------------------------------------
 

Всего записей: 2120 | Зарегистр. 09-04-2003 | Отправлено: 17:10 19-06-2013
Открыть новую тему     Написать ответ в эту тему

Страницы: 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)


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru