Перейти к содержанию
Fire Monkey от А до Я

F1n4

Пользователи
  • Постов

    1
  • Зарегистрирован

  • Посещение

Сообщения, опубликованные F1n4

  1. Пишу чат,столкнулся с проблемой,а именно со смайликами,изображение есть,и теперь нужно поставить картинку относительно оси X на label

     

    var a:integer;
    begin
    a:=(AnsiPos('[сма]',lbl1.Text));
    if a>0 then
    begin
    img1.Position.Y:=lbl1.position.Y+1;
    lbl1.Text:=StringReplace(lbl1.Text,'[сма]','    ',[rfReplaceAll,rfIgnoreCase]);
    mmo1.Text:=lbl1.Text;
    img1.Position.X:=lbl1.Width+length(lbl1.Text)+a+10;
    end
    else
    Exit;
    end;

     

×
×
  • Создать...