• Total Source Code 6
  • Total Page : 1
  • You currently on page number : 1

Rich-Text Editors for Web

  • 00 0000
  • 450
  • browser,internet,mozilla,ie,opera,richtext

Rich-Text Editors, inline content editors, WYSIWYG editors or whatever you want to call them are web applications that enable users to enter, edit and manipulate alphanumeric characters while visiting your website. Wherever you have a textarea form input on your site, chances are good that its usability could be improved with a Rich-Text Editor. For example, your comment form is a great Read more

Passing JavaScript variables to PHP

  • 00 0000
  • 467
  • tutorial,html,javascript,asp,vbscript,sql,php,authoring,programming,training,learning,beginner's guide,howto,reference,examples,samples,source code,tags,demos,tips,links,FAQ,tag list,forms,frames,color table,webcheatsheet,active server pages,internet,database,development,Web building,Webmaster,html guide,php hypertext preprocessor, structured query language

Javascript is mainly used as a client side scripting language, while PHP is a server side technology. Unlike Java or ASP.Net, PHP doesn't have tools to make it work client side. That is why you need to combine JavaScript and PHP scripts to develop powerful web-applications. One of the frequent problems is defining visitor’s screen resolution using JavaScript tools and passing Read more

Money to Text

  • 21 December 2013
  • 206
  • money,text,spell

this is source code unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls; type TForm1 = class(TForm) Label2: TLabel; Edit1: TEdit; Panel1: TPanel; BitBtn1: TBitBtn; Label1: TLabel; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: Read more

Make the dektop icon text transparent

  • 24 December 2013
  • 180
  • desktop,transparent,icon,text

uses Commctrl; var hLV: THandle; procedure TForm1.GetDesktopListViewHandle; var s1: String; begin hLV := FindWindow(''ProgMan'', nil); hLV := GetWindow(hLV, GW_CHILD); hLV := GetWindow(hLV, GW_CHILD); SetLength(s1, 40); GetClassName(hLV, PChar(s1), 39); if PChar(s1) ''SysListView32'' then ShowMessage(''Failed''); end; procedure Read more

Crypting with Xor

  • 16 January 2014
  • 202
  • string,text

function TForm1.Cript (Stringa : String; cripting : boolean): String; Var i,k : integer; begin if Cripting then begin for i := 1 to Length(Stringa) do begin result := result + IntToHex((Ord(Stringa[i]) xor i),2); end; end else begin for i := 1 to Length(Stringa) div 2 do begin result := result + Chr(StrToInt('$' + Read more

Encrypt Text using key number

  • 16 January 2014
  • 1081
  • string,text,encrypt

{ This two functions are used to encrypt and decrypt text. Here's how to use it: The four entries Key1, Key2, Key3 and Key4 are numbers that can range from 1 to 120. In order to decrypt a text, you must use the same numbers you used to encrypt the text. No one that doesn't know what values were used on Key1, Key2, Key3 and Key4 will be able to decrypt your text! Note that Key1*Key4 MUST be Read more