Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Вниз

Люди, спасайте!!! Уже который день мучаюсь...   Найти похожие ветки 

 
[BAD]Angel   (2002-08-17 12:45) [0]

Уважаемые мастера! У меня такой вопрос.
Как из этого дурацкого string grid"a удалить выделенную строку со сдвигом вверх всего, что находиться после этой строчки???

Вот я написал код, но...
Есть одна трабла: а и менно, когда в гриде остается последняя запись (тобишь ничего нет, кроме одной (первой) строчки) он, гад, удаляет ее + fixedrow. И получается какая-то фигня... Там, где должны находиться заголовки колонок пропадает сам fixedrow, а названия остаються...

Во написал, сам, чуть не запутался! ;-)

Как быть? ПОМОГИТЕ ПЛЗ!!!

procedure SGDeleteRow(SG: TStringGrid; RowToDelete: Integer);
var
i: Byte;
begin
with SG do begin
if (RowToDelete>=1) and (RowToDelete<RowCount) then begin
for i:=RowToDelete to RowCount-2 do
Rows[i].Assign(Rows[i+1]);
RowCount:=RowCount-1;
end;
end;
end;


 
[BAD]Angel   (2002-08-17 13:13) [1]

Мастера? где же Вы?


 
sudiv   (2002-08-17 13:27) [2]

Когда-то делал я нечто подобное, НО
я проверял на "" все ячейки этой последней удаляемой строки, или первой как кому нравится и не делал RowCount:=RowCount-1; а просто очищал эти ячейки если они не "".
При добавлении аналогичная проверка.
Сейчас код найти не могу, на чужой машине сижу, но получалось так же как в DBGrid один в один.

Может не понял вопроса?


 
[BAD]Angel   (2002-08-17 13:56) [3]

Вопрос понял! Ладно, попробую! Но если есть другие варианты, то скажу спасибо огромное!!!


 
[BAD]Angel   (2002-08-17 14:32) [4]

Больше нет предложений? (Жаль)


 
777   (2002-08-17 14:47) [5]

Используй DrawGrid.


 
[BAD]Angel   (2002-08-17 14:49) [6]

А как? я начинающий! Если можно подробнее...


 
777   (2002-08-17 15:33) [7]

DrawGrid -> OnDrawDataCell.
Значения ячеек надо держать в массиве (напр. TStrings)
И для удаления достаточно Tstrings.Delete(index):


var Arr:array[0..DrawGrid1.ColCount]of Tstrings;

.........
инициализируем массив, заполняем его
.........

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with DrawGrid1.Canvas do
begin
.....
TextOut(Rect.Left+2,Rect.Top+2, Arr[ACol][Arow]); //заносим
данные из массива
.........
end;
end;

для удаления:
...........
DrawGrid1.RowCount:=DrawGrid1.RowCount-1;
For i:=0 to DrawGrid1.ColCount do Arr[i].Delete(индекс_строки);
...........





 
Man-In-Red   (2002-08-17 15:40) [8]


> [BAD]Angel © (17.08.02 12:45)


> Вот я написал код


> Во написал, сам, чуть не запутался! ;-)

Говоришь сам написал? А может это код MBo:
http://delphibase.endimus.com/?action=viewfunc&topic=vclctrl&id=10142
???
Совпадает что-то!


 
[BAD]Angel   (2002-08-17 15:46) [9]

777 - Спасибо!
Man-In-Red - я знаю что совпадает... Код не я написал... А тебе вопрос читать надо внимательнее! :-(



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.007 c
3-95656
MikeFW
2002-08-07 15:05
2002.08.29
как установить BDE у клинта?


4-96040
REaliSt
2002-06-23 05:09
2002.08.29
Как под WinXP поставить на форму стандартные контролы?


1-95757
greenrul
2002-08-16 17:41
2002.08.29
Рисунок на канве не обновляется


14-95971
FLIZ
2002-07-30 16:44
2002.08.29
Кто достоин носить звание


1-95907
Александр
2002-08-18 17:35
2002.08.29
Как разбить строку на части





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский