Arsip: Tanya chat dengan emoticon

 
user image
more 14 years ago

de3p

Aku ada tugas untuk membuat aplikasi yang memiliki kerja seperti YM. Apakah ada komponen standard pada delphi agar dapat menampilkan emoticon/gambar beserta text selain menggunakan TImage/canvas?? Mungkin pake rich edit bisa?? kalo bisa bagaimana carannya??
user image
more 14 years ago

_lmz

@de3p: Aku ada tugas untuk membuat aplikasi yang memiliki kerja seperti YM. Apakah ada komponen standard pada delphi agar dapat menampilkan emoticon/gambar beserta text selain menggunakan TImage/canvas?? Mungkin pake rich edit bisa?? kalo bisa bagaimana carannya??
Dengan TWebBrowser dong :)

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, mshtml;
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
  WebBrowser1.Navigate('res://' + Application.ExeName + '/HTML/BLANKPAGE');
end;
procedure TForm1.Button1Click(Sender: TObject);
var s : WideString; doc : IHTMLDocument2; elt : IHTMLElement;
begin
  doc := (WebBrowser1.Document as IHTMLDocument2);
  elt := doc.createElement('P');
  elt.setAttribute('className', 'chat', 0);
  elt.innerHTML := edit1.Text + '<img src="res://' + Application.ExeName + '/SMILEY/ROLLEYES">';
  (doc.body as IHTMLDOMNode).appendChild(elt as IHTMLDOMNode);
end;
end.
Tentu saja, harus bawa resource: chat.rc:

ROLLEYES SMILEY icon_rolleyes.gif
BLANKPAGE HTML chat.html
chat.html:

<html>
<head>
<style type="text/css">
p.chat {
  border: 1px solid black;
  margin: 2px;
}
</style>
</head>
<body>
</body>
</html>
gifnya ambil dari situs ini :roll: ... Lihat bagaimana tampilannya bisa dicustomize dengan CSS anda sendiri.
user image
more 14 years ago

pebbie

hahaha... betul juga, pake WebBrowser
user image
more 14 years ago

kodok_bancret

delphi bow... 8) kalo pake c/c++ harus implement sendiri lewat COM tetek mbengek.... aku punya pertanyaan yang sama tapi cari digoogle dapetnya pakai c/c++ melulu. liat sintaks nya aja gak ngerti... beyond my imagination. :cry: kk _lmz, ngilangin bordernya gimana ?
user image
more 14 years ago

_lmz

@kodok_bancret: delphi bow... 8) kalo pake c/c++ harus implement sendiri lewat COM tetek mbengek.... aku punya pertanyaan yang sama tapi cari digoogle dapetnya pakai c/c++ melulu. liat sintaks nya aja gak ngerti... beyond my imagination. :cry: kk _lmz, ngilangin bordernya gimana ?
Delphi juga pake COM kok. cuma syntaxnya lebih mudah daripada C++ dan QueryInterfacenya disembunyikan di belakang operator "as". Yang lebih mudah sih VB (atau mungkin Delphi dengan OleVariant) karena menggunakan IDispatch. Border maksudnya border di sekitar messagenya ya? Belajar CSS dong :). Itu kan karena di stylenya ada property bordernya dengan nilai "1px solid black". Kalau property bordernya dihapus ya hilang bordernya karena defaultnya paragraf memang gak ada bordernya.
user image
more 14 years ago

yafie

bagus juga tuh caranya, makasih ya udah ngebukain jalan :mrgreen:
user image
more 14 years ago

_lmz

@yafie: bagus juga tuh caranya, makasih ya udah ngebukain jalan :mrgreen:
Waduh jangan terima kasih ke sini (atas caranya). Lha wong aku juga dapet idenya dari program-program lain. Kalau dilihat betul-betul, Yahoo Messenger itu kadang-kadang di window chatnya bisa keluar icon "broken image" persis milik IE. Kebetulan? :). Juga miranda (saya pakai ini) mempunyai plugin bernama IEView. Daftar featurenya:
This plugin replaces RichEdit used by TabSRMM or Scriver with IE control and adds the following new features: - animated smileys (SmileyAdd required), - background image in message log, - full message log customization with external CSS file or HTML templates !
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com