Новые книги
Быстрые деньги в Интернете. 50 способов заработать, сидя дома у компьютера
В этой книге представлены 50 реальных, законных и быстрых способов заработать, имея под рукой только компьютер и доступ в Интернет. Вам не понадобятся вложения и специальные знания. Все советы даны в сжатом виде – только самое ценное, что действительно работает, без «воды».

По каждому из способов дана подробная пошаговая инструкция: что и как делать, в какой последовательности.

Вы сможете заработать деньги буквально в течение нескольких дней, вам надо лишь взять и сделать то, о чем написано в этой книге.
Продающие тексты. Как превратить читателя в покупателя
От того, как написан рекламный текст, во многом зависят продажи. Очень часто он только информирует потенциальных покупателей о существовании некоей компании и ее продукта. А нужно, чтобы текст продавал: побуждал к немедленной покупке, вызывал доверие, снимал сомнения в правильности выбора. Для этого существует целый ряд приемов, и изложены они в этой книге. Руководствуясь рекомендациями автора-практика, вы успешно справитесь с непростой задачей привлечения клиентов.

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

Вопрос и Ответ 2
Версия для печати

Вопросы и Ответы

      2. Как вставить растровое изображение в компонент ListBox?

      Для этого необходимо установить в инспекторе объектов поле Style в lbOwnerDrawFixed, при фиксированной высоте строки, или в lbOwnerDrawVariable, при переменной, и установить собственный обработчик события для OnDrawItem. В этом обработчике и надо рисовать растровое изображение.

      Пример:

      Рисуются изображения размером 32*16 (размер стандартного глифа для Delphi). Очень полезно при поиске нужного изображения для кнопок!

      Установить в инспекторе объектов для ListBox поле ItemHeight = 19, а поле Color = clBtnFace.

      ............

      { Загрузить список файлов в ListBox1 при нажатии на кнопку Load (например)}
      procedure TForm1.bLoadClick(Sender: TObject);
      VAR S : String;
      begin

        ListBox1.Clear;{чистим список}
        S := '*.bmp'#0; {задаем шаблон}
        ListBox1.Perform(LB_DIR, DDL_ReadWrite, Longint(@S[1])); {заполняем список}

      end;

      ............

      {Отобразить изображения и имена файлов в ListBox}
      procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: DrawState);
      VAR

        Bitmap : TBitmap;
        Offset : Integer;
        BMPRect: TRect;

      begin

        WITH (Control AS TListBox).Canvas DO BEGIN

          FillRect(Rect);
          Bitmap := TBitmap.Create;
          Bitmap.LoadFromFile(ListBox1.Items[Index]);
          Offset := 0;
          IF Bitmap <> NIL THEN BEGIN

            BMPRect := Bounds(Rect.Left+2, Rect.Top+2, (Rect.Bottom-Rect.Top-2)*2, Rect.Bottom-Rect.Top-2);
            {StretchDraw(BMPRect, Bitmap); Можно просто нарисовать, но лучше сначала убрать фон}
            BrushCopy(BMPRect,Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height), Bitmap.Canvas.Pixels[0, Bitmap.Height-1]);
            Offset := (Rect.Bottom-Rect.Top+1)*2;

          END;
          TextOut(Rect.Left+Offset, Rect.Top, ListBox1.Items[Index]);
          Bitmap.Free;

        END;

      end;

      ............

      Данный пример работает медленно, но оптимизация, для ускорения, вызвала бы трудность в понимании общего принципа его работы.

...предыдущая страница следующая...
оглавление