Платные хостинги     Раскрутка сайта     Книги по программированию

StringGrid, выделение

- Как переделать StringGrid так чтобы выделение ячеек было не прямоугольным, а таким же как при выделении текста. Т.е. как будто текст это есть таблица где Row это строка, а Col это позиция символа в строке.т.е. так:sdgflkjs;flkgjsd;gflkjs;dflkgjsf;dglkjcbvnxcbjstnglsoinfoijse;roijtgdf;glisndoigjseg;ndfgklsdng;sgso;erjgdflkgjsd;ogisjerg;osdfjgsdfl;kgjserigojs;fglsjdgo;isdrj;sojgгде выделение выделено italic+bold.СУВ.

- Вручную это делать #опа...Сказать как могу: TStringGrid.onDrawCell а программируй сам

- Можно так:procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);beginif gdSelected in State thenbegin  StringGrid1.Canvas.Brush.Color:=clWhite;  StringGrid1.Canvas.FillRect(Rect);  StringGrid1.Canvas.Font.Color:=clBlack;  StringGrid1.Canvas.Font.Style:=[fsBold,fsItalic];  StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[ACol,ARow]);end;Т.е. на канву рисуешь то, что написано в ячейке.

- Dapo, ты ничего не понял...

- А почему #опа то?Сам я конечно без подсказки не смогу (быстро) сделать это если сидеть недельку, то нгаверное можно. Я к тому что может кто-то уже делал это или знает куда носом меня ткнуть (к #опе никакого отношения).СУВ.ЗЫ. А VIT мне может помочь? ;)

- Я этого не делал, подозреваю что работа не маленькая. Попробуй поискать готовые компоненты

- Я с такой проблемой еще не сталкивался, но вот первое, что пришло на ум(может как то поможет):FirstPos, SecondPos:TPoint;Downed:Boolean=False;//Сохранение координат при нажатии кнопки мышкиprocedure TForm1.StringGrid1MouseDown(Sender: TObject;  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin  FirstPos.X:=x;  FirstPos.y:=y;  Downed:= not Downed;end;procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);beginDowned:= not Downed;end;//Сохранение координат при перемещении нажатой мышкиprocedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;  X, Y: Integer);beginif Downed thenbegin SecondPos.X:=x; SecondPos.Y:=y;end; end;// Я не стал додумывать прорисовку, так как думаю ето можно сделать самому//но вот к примеру как можно проверять вхождение запомненных координат в ячейку сеткиprocedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);beginif Downed then begin   StringGrid1.Brush.Color:=clred;   if PtInRect(StringGrid1.CellRect(ACol,ARow),FirstPos) then      FillRect(GetDC(StringGrid1.Handle),Rect,StringGrid1.Brush.Handle);   if PtInRect(StringGrid1.CellRect(ACol,ARow),SecondPos) then      FillRect(GetDC(StringGrid1.Handle),Rect,StringGrid1.Brush.Handle) end;end;Думаю можно сделать так - построить регион на основе запомненных координат и потом его закрашивать хотя точно сказать не могу(мало опыта еще))))Надеюсь тебе ето как то поможет)

- Бывает,  с тупил. . А если на OnMouseMove поставить MouseToCell + запись положения ячейки в массив + вычисление положений других ячеек (которые должны попасть в селект) и на OnDrawCell перекраска другим цветом, всех запомненых ячеек.Тут хоть змейкой выделяй. Или я опять ?  

- Выделить - это закрасить другим цветом и как-то это запомнить? Чем не вариант?var  Form1: TForm1;  SGA:array [0..9,0..9] of integer;  MCol,MRow:integer;implementation{$R *.dfm}procedure TForm1.StrGrdMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);beginStrGrd.MouseToCell(x,y,MCol,MRow);SGA[MCol,MRow]:=1;//значит выделена, тут и условия выделения поставитьend;procedure TForm1.StrGrdDrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);beginif SGA[ACol,ARow]=1 thenbegin  StrGrd.Canvas.Brush.Color:=clBlue;  StrGrd.Canvas.FillRect(Rect);end;end;Ну так примерно можно, конечно еще снятие выделения нужно предусмотреть.

- Еще не забыть gdRangeSelect снять

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

- Дык я же и написал, что нужно поставить условия выделения. У нас матрица получается с 0-ми и 1-ми. Ими и нужно оперировать. С массивом то проще работать.

- Спасибо, только сложности все-таки возникают если таблица со скролом, кроме того выделение вшитое тоже мешает.СУВ.

- Да, скрол мешает, когда мышка уходит за пределы StringGrid-а. Но это можно обойти (ведь мышка все равно вернется на StringGrid или вернуть ее). А по поводу встроенного выделения - убери опцию gdRangeSelect. То что я там написал еще дорабатывать и дорабатывать, но начало положено .

- Извините за флуд (нужно сначала проверять, а потом писать).Можно на OnSelectCell повесить:SGA[ACol,ARow]:=1;это будет наверное более лучший вариант, проблема соскролом отпадает.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD