image и memo

@spydark91 · Регистрация: 03.03.2011

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста, хочу чтобы при наличии значка "

" вставлялся смайлик там,где в текущий момент находится курсор в поле memo а точнее просто сделать фунцкию всавленич смайлов,как например в аське. для этого написалл код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Memo1Change(Sender: TObject);
var i:integer;
 
begin
a:=memo1.Lines.Count;
for i:=1 to a do
   begin
   if memo1.Lines.Strings[i]=':)' then
 
      image1.Picture.LoadFromFile('C:\Users\Ðîäèîí\Desktop\smile.jpeg');
      image1.Visible:=true;
      image1.Left:=memo1.Cursor;
 
      end;
 
end;

но смайл вставляется в самом левом положении формы..

Добавлено через 1 минуту
или подкиньте индею как это можно реализовать подругому(например без image)

Добавлено через 16 часов 20 минут

Delphi
1
image1.Left:=memo1.Cursor;

эта строка вобще непричем тут..
подскажите как узнать местоположение курсора в мемо,и перевести его в пиксели

Добавлено через 24 минуты
исправил на такое

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure TForm1.Memo1Change(Sender: TObject);
var i:integer;
p:integer;
 
begin
a:=memo1.Lines.Count;
for i:=1 to a do
   begin
   if memo1.Lines.Strings[i]='))' then
      image1.Picture.LoadFromFile('C:\Users\Ðîäèîí\Desktop\smile.bmp');
      image1.Visible:=true;
      p:=memo1.CaretPos.x;
      image1.Left:=p;
 
      end;
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=inttostr(Mouse.CursorPos.x)+'   '+inttostr(mouse.CursorPos.Y)
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var m:tpoint;
s:STRING;
begin
m:=memo1.CaretPos;
s:=memo1.Lines.Strings[memo1.CaretPos.x];
memo1.Lines.Strings[memo1.CaretPos.x]:=s+'))';
end;
 
end.

но всервно ничего не работает..

Добавлено через 57 минут
пробую так,развернув форму на весь экран,всерано нефига..помогите

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
var
  Form1: TForm1;
  a,p,px,py:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Memo1Change(Sender: TObject);
var i:integer;
p:integer;
 
begin
a:=memo1.Lines.Count;
for i:=1 to a do
   begin
   if memo1.Lines.Strings[i]='))' then
      image1.Picture.LoadFromFile('C:\Users\Ðîäèîí\Desktop\smile.bmp');
      image1.Visible:=true;
      p:=memo1.CaretPos.x;
      image1.Left:=px;
      image1.Top:=py;
 
 
      end;
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
px:=Mouse.CursorPos.x;
py:=mouse.CursorPos.Y;
label1.Caption:=inttostr(Mouse.CursorPos.x)+'   '+inttostr(mouse.CursorPos.Y)
end;

@d0lmat · 11.05.2011, 15:17

Мне кажется ты немного не в ту сторону пошел.
Попробуй текст, набранный в Мемо вывести на канву Image'а.
А потом вместо символа @ рисовать закрашенный круг...
Но это ИМХО...

@spydark91 · 11.05.2011, 15:22 **[ТС]**

не,мне надо именно чтобы самйлы загружались,значки будут разные соответственно смыйлы тоже

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

@d0lmat · 11.05.2011, 15:26

А если у тебя 2 смайла?

@spydark91 · 11.05.2011, 15:51 **[ТС]**

еще одну имагу кинуть,если три еще одну...
но это не катит,ведь имаги на месте стоить будут

Добавлено через 8 минут
наешл такую реализация

Delphi
1
2
3
4
5
6
7
8
9
10
11
if fAnsiPos('bad',str2,1)>0 then
begin
MyBMP := TBitMap.Create;
SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0)+fAnsiPos('bad',str2,1)-1;
ResStream := TResourceStream.Create(HInstance, 'SMILEY4', RT_RCDATA);
MyBMP.LoadFromStream(ResStream);
SS := TStringStream.Create(BitmapToRTF(MyBMP));
PutRTFSelection(ARichEdit,ss);
MyBmp.Free;
end;
{good}

с сайта http://codingrus.ru/readarticle.php?article_id=719
объясните пожалуйста

@Arcor · 11.05.2011, 16:25

а может найти информацию, о том как загружаются смайлы, как создатели их придумали их же грузить? А не городить огород, не имея понятия об этом

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@d0lmat 28 / 28 / 4 Регистрация: 28.04.2011 Сообщений: 79
	11.05.2011, 15:17
	Мне кажется ты немного не в ту сторону пошел. Попробуй текст, набранный в Мемо вывести на канву Image'а. А потом вместо символа @ рисовать закрашенный круг... Но это ИМХО... 0

@spydark91 86 / 86 / 13 Регистрация: 03.03.2011 Сообщений: 1,873
	11.05.2011, 15:22 [ТС]
	не,мне надо именно чтобы самйлы загружались,значки будут разные соответственно смыйлы тоже Добавлено через 3 минуты блин..это вобще не вариант..ведь мемо прокручиваться будет,а имага на месте стоять... как по другому можно.. 0

@d0lmat 28 / 28 / 4 Регистрация: 28.04.2011 Сообщений: 79
	11.05.2011, 15:26
	А если у тебя 2 смайла? 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	11.05.2011, 16:25
	а может найти информацию, о том как загружаются смайлы, как создатели их придумали их же грузить? А не городить огород, не имея понятия об этом 0