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

Вниз

listbox   Найти похожие ветки 

 
user965   (2002-08-07 12:49) [0]

есть две кнопки задача что-бы в listbox информация писалась разным цветом, сейчас я использую процедуру но она чередует цвета :-(( подскажите как сделать что-бы те строки которые были введены одной кнопкой были одного цвета , а которые были введены другой кнопкой другово никак не могу допереть ???????? помогите плз

procedure TForm1.vg2ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
myColor: TColor;
myBrush: TBrush;
begin
myBrush := TBrush.Create;
with (Control as Tvg2ListBox).Canvas do
begin
if not Odd(Index) then
myColor := clRed
else
myColor := clYellow;
myBrush.Style := bsSolid;
myBrush.Color := myColor;
Windows.FillRect(handle, Rect, myBrush.Handle);
Brush.Style := bsClear;
TextOut(Rect.Left, Rect.Top,
(Control as Tvg2ListBox).Items[Index]);
MyBrush.Free;
end;
end;


 
MBo   (2002-08-07 12:58) [1]

Рассуждаем логически - для решения задачи необходимо хранить информацию о способе добавления строки. Где можно хранить этот признак? Items типа TStrings имеют свойство Objects, представляющее собой указатели, вот в них и можно записывать, например,
Items.AddObject(SomeString, pointer(1))
для первого способа, и Pointer(2) для второго, а в DrawItem проверять Integer(Objects[Index]) и далее понятно...



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

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

Наверх





Память: 0.44 MB
Время: 0.006 c
7-60878
kool
2002-06-06 18:42
2002.08.19
Как быстро прочитать рисунок с экрана?


1-60617
Вэн
2002-08-08 14:54
2002.08.19
Раблта в Интернет


3-60549
RangerBetta
2002-07-29 09:22
2002.08.19
Подскажеите оператор SQL


14-60813
Clon
2002-07-22 18:47
2002.08.19
Как работает компилятор?


1-60572
Acideam
2002-08-07 18:24
2002.08.19
delphi to vb converter





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский