Элемент для смайлов

[NoName_emaNoN]

Сообщение от GAGARIN-NEW

Даже незнаю вродебы то но выглядит както по досовски //моё мнение
И способ загрузки там немного перемудрённый .... наверно я всётаки сделаю все смайлы одинакового размера и пихну их в какойто стандартный компонент , раз столько волокиты ...

Если вдруг всётаки найдётся чтото таково рода пишите ! всегда пригодится...

Всем пасиба за советы !

Всё таки ты рано сдался, ведь тебе дали уже работающий "компонент", тебе остаётся только вставить процедуру поиска картинок с расширением "bmp" и "Jpg" процедеру определения размера (т.е. автоматически большие смайлы ставить в первый столбец, чуть поменьше во второй, и т.д.). Дальше сделать такую штуку: при нажатии на кнопку динамически создавать форму, показывать её, потом на всю клиентскую область делать ту штуку , которую тебе дали, при нажатии на смайл разрушать форму, и всё!
При желании можно всё это пихнуть в компонент, это не долго!

[BOBAH13]

А если смайлов штук 300 ? Пока найдеш + посмотрю я на размер Вашего меню.
А на счет динамически создавать, разрушать формы - бессмыслица. Для чего дано Visible ?
И в чем сложность отрисовки в том же листбоксе ?

type
PListItem = ^TListItem;
TListItem = packed record
  Code: String;
  FileName: String;
  ImageIndex: Integer;
end;

...
procedure AddSmileToList(FileName, Code: String; ImageIndex: Integer);
var
  pl: PListItem;
begin
  new(pl);
  pl.FileName := FileName;
  pl.Code := Code;
  pl.ImageIndex := ImageIndex;
  ListBox1.AddItem('', TObject(pl));
end;


...

// отрисовка присовить процедуру к TListBox.OnDraw;
procedure DoDraw;
var
  pRect: TRect;
  pl: PListItem;
  dItem: TBitMap;
  dSmile: TBitMap;
begin
  pRect := TListBox(Sender).ItemRect(TListBox(Sender).ItemIndex);
  pl := PListItem(TListBox(Sender).Items.Objects[TListBox(Sender).ItemIndex]);

  if not FileExists(pl.FileName) then
  begin
    ...
    // тут вашего смайла нет... поэтому смысла рисовать тоже нет
    ...
  end;

  dItem := TBitMap.Create;
  dItem.Width := pRect.Right - pRect.Left;
  dItem.Height := pRect.Bottom - pRect.Top;

  dSmile := TBitMap.Create;
  dSmile.LoadFromFile(pl.FileName);

  // ну тут можете установить прозрачность для dSmile если такое присутствует
  
  dItem.Canvas.Brush.Color := TListBox(Sender).Color;
  dItem.Canvas.FillRect(dItem.Canvas.ClipRect);

  dItem.Canvas.Draw((dItem.Width - dSmile.Width) div 2,
    (dItem.Height - dSmile.Height) div 2, dSmile);

  TListBox(Sender).Canvas.Draw(pRect.Left, pRect.Top, dItem);
  
  dSmile.Free;
  dItem.Free;
end;

...

Вроде верно написал, просто писал сразу в броузере.

[GAGARIN-NEW]

Сообщение от BOBAH13

А если смайлов штук 300 ? Пока найдеш + посмотрю я на размер Вашего меню.
А на счет динамически создавать, разрушать формы - бессмыслица. Для чего дано Visible ?
И в чем сложность отрисовки в том же листбоксе ?

type
PListItem = ^TListItem;
TListItem = packed record
  Code: String;
  FileName: String;
  ImageIndex: Integer;
end;

...
procedure AddSmileToList(FileName, Code: String; ImageIndex: Integer);
var
  pl: PListItem;
begin
  new(pl);
  pl.FileName := FileName;
  pl.Code := Code;
  pl.ImageIndex := ImageIndex;
  ListBox1.AddItem('', TObject(pl));
end;


...

// отрисовка присовить процедуру к TListBox.OnDraw;
procedure DoDraw;
var
  pRect: TRect;
  pl: PListItem;
  dItem: TBitMap;
  dSmile: TBitMap;
begin
  pRect := TListBox(Sender).ItemRect(TListBox(Sender).ItemIndex);
  pl := PListItem(TListBox(Sender).Items.Objects[TListBox(Sender).ItemIndex]);

  if not FileExists(pl.FileName) then
  begin
    ...
    // тут вашего смайла нет... поэтому смысла рисовать тоже нет
    ...
  end;

  dItem := TBitMap.Create;
  dItem.Width := pRect.Right - pRect.Left;
  dItem.Height := pRect.Bottom - pRect.Top;

  dSmile := TBitMap.Create;
  dSmile.LoadFromFile(pl.FileName);

  // ну тут можете установить прозрачность для dSmile если такое присутствует
  
  dItem.Canvas.Brush.Color := TListBox(Sender).Color;
  dItem.Canvas.FillRect(dItem.Canvas.ClipRect);

  dItem.Canvas.Draw((dItem.Width - dSmile.Width) div 2,
    (dItem.Height - dSmile.Height) div 2, dSmile);

  TListBox(Sender).Canvas.Draw(pRect.Left, pRect.Top, dItem);
  
  dSmile.Free;
  dItem.Free;
end;

...

Вроде верно написал, просто писал сразу в броузере.

Опятьже слишком сложно для моего ума ... у меня смайлов 75. расчитываю наверно сделать ListView с картинками одинакового размера ...

[NoName_emaNoN]

Сообщение от BOBAH13

А на счет динамически создавать, разрушать формы - бессмыслица. Для чего дано Visible ?

Можно и в начале создать потом просто вызывать, как visible, и not Visible, а при выходе разрушать. Можно и так не спорю.

[pu4koff]

Сообщение от GAGARIN-NEW

Опятьже слишком сложно для моего ума ...

ну подожди полгодика. Может легче будет для восприятия твоим "умом". Хотя с таким подходом к вопросу не думаю, что так...

[GAGARIN-NEW]

Сообщение от pu4koff

ну подожди полгодика. Может легче будет для восприятия твоим "умом". Хотя с таким подходом к вопросу не думаю, что так...

Просто сейчас это не самый главный вопрос моего чата поэтому я не буду на нём зацикливатся так сильно ...
во 2-х я когда чтото делаю ну или даже копирую чтото у кавота я пытаюсь разобратся что и как работает а если я этого не понимаю то мне както не по себе использовать фичу в каторой я 100% кода непонимаю .
вот