Ketika ia sedang asyik menyeleksi dokumen kantor tersebut, Putrinya Jessica datang mendekatinya, berdiri tepat disampingnya, sambil memegang buku cerita baru.
Buku itu bergambar seorang peri kecil yang imut, sangat menarik perhatian Jessica,
“Pa liat”! Jessica berusaha menarik perhatian ayahnya.

Budi menengok ke arahnya, sambil menurunkan kacamatanya, kalimat yang keluar hanyalah kalimat basa-basi “Wah,. buku baru ya Jes?”

“Ya papa” Jessica berseri-seri karena merasa ada tanggapan dari ayahnya.
“Bacain Jessi dong Pa” pinta Jessica lembut

“Wah papa sedang sibuk sekali, jangan sekarang deh” sanggah Budi dengan cepat.

Lalu ia segera mengalihkan perhatiannya pada kertas-kertas yang berserakkan didepannya, dengan serius.
Jessica bengong sejenak, namun ia belum menyerah. Dengan suara lembut dan sedikit manja ia kembali merayu
“pa, mama bilang papa mau baca untuk Jessi”

Budi mulai agak kesal, “Jes papa sibuk, sekarang Jessi suruh mama baca ya”

“Pa, mama cibuk terus, papa liat gambarnya lucu-lucu”

“Lain kali Jessica, sana! papa lagi banyak kerjaan” Budi berusaha memusatkan perhatiannya pada lembar-lembar kertas tadi, menit demi menit berlalu, Jessica menarik nafas panjang dan tetap disitu, berdiri ditempatnya penuh harap, dan tiba-tiba ia mulai lagi.
“Pa,.. gambarnya bagus, papa pasti suka”
“Jessica, PAPA BILANG, LAIN KALI!!” kata Budi membentaknya dengan keras.

Kali ini Budi berhasil, semangat Jessica kecil terkulai, hampir menangis , matanya berkaca-kaca dan ia bergeser menjauhi ayahnya
“Iya pa,. lain kali ya pa?”

Ia masih sempat mendekati ayahnya dan sambil menyentuh lembut tangan ayahnya ia menaruh buku cerita di pangkuan sang Ayah.
“Pa kalau papa ada waktu, papa baca keras-keras ya pa, supaya Jessica bisa denger”.

Hari demi hari telah berlalu, tanpa terasa dua pekan telah berlalu namun permintaan Jessica kecil tidak pernah terpenuhi, buku cerita Peri Imut, belum pernah dibacakan bagi dirinya.
Hingga suatu sore terdengar suara hentakan keras “Buukk!!” beberapa tetangga melaporkan dengan histeris bahwa Jessica kecil terlindas kendaraan seorang pemuda mabuk yang melajukan kendaraannya dengan kencang didepan rumah Budi.

Tubuh Jessica mungil terhentak beberapa meter, dalam keadaan yang begitu panik ambulance didatangkan secepatnya.
Selama perjalanan menuju rumah sakit, Jessica kecil sempat berkata dengan begitu lirih
“Jessi takut Pa, Jessi takut Ma, Jessi sayang papa mama”

Darah segar terus keluar dari mulutnya hingga ia tidak tertolong lagi ketika sesampainya di rumah sakit terdekat.
Kejadian hari itu begitu mengguncangkan hati nurani Budi, Tidak ada lagi waktu tersisa untuk memenuhi sebuah janji.
Kini yang ada hanyalah penyesalan.
Permintaan sang buah hati yang sangat sederhana.. pun tidak terpenuhi.

Masih segar terbayang dalam ingatan budi tangan mungil anaknya yang memohon kepadanya untuk membacakan sebuah cerita, kini sentuhan itu terasa sangat berarti sekali
“,…papa baca keras-keras ya Pa, supaya Jessica bisa denger”
kata-kata Jessi terngiang-ngiang kembali.

Sore itu setelah segalanya telah berlalu, yang tersisa hanya keheningan dan kesunyian hati, canda dan riang Jessica kecil tidak akan terdengar lagi, Budi mulai membuka buku cerita peri imut yang diambilnya perlahan dari onggokan mainan Jessica di pojok ruangan.
Bukunya sudah tidak baru lagi, sampulnya sudah usang dan koyak. Beberapa coretan tak berbentuk menghiasi lembar-lembar halamannya seperti sebuah kenangan indah dari Jessica kecil.

Budi menguatkan hati, dengan mata yang berkaca-kaca ia membuka halaman pertama dan membacanya dengan suara keras, tampak sekali ia berusaha membacanya dengan keras, Ia terus membacanya dengan keras-keras halaman demi halaman, dengan berlinang air mata.

“Jessi dengar papa baca ya”
selang beberapa kata,.. hatinya memohon lagi

“Jessi, papa mohon ampun nak”
“papa sayang Jessi!”

Seakan setiap kata dalam bacaan itu begitu menggores lubuk hatinya, tak kuasa menahan itu Budi bersujut dan menangis memohon satu kesempatan lagi untuk mencintai.

Seseorang yang mengasihi selalu mengalikan kesenangan dan membagi kesedihan kita, Ia selalu memberi PERHATIAN kepada kita karena ia peduli kepada kita.
ADAKAH “PERHATIAN TERBAIK” ITU BEGITU MAHAL BAGI MEREKA ?

BERILAH “PERHATIAN TERBAIK” WALAUPUN ITU HANYA SEKALI
Berilah “PERHATIAN TERBAIK” bagi mereka yang kita cintai.

LAKUKAN SEKARANG!!!

Inilah contohnya :

Source file exported to file

<!–

–>

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, ActiveX, AxCtrls, OleCtrls, VSTWAINLib_TLB,ShellAPI,

  Jpeg, ComCtrls,Buttons, Contnrs,XStringGrid, ImgList, Spin, DBImageEx,

  Grids, DBGrids, UnitTScrollDBGrid,Db, DBCtrls;

type
  TMainForm = class(TForm)

    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;

    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;

    currImg: TLabel;
    TxtAction: TLabel;
    BAcquire: TButton;

    BSelectSrc: TButton;
    Sources: TComboBox;
    ChkShowUI: TCheckBox;

    ChkDisableAfterAcq: TCheckBox;
    ImgCount: TEdit;
    ChkAutoCleanBuffer: TCheckBox;

    MaxImages: TEdit;
    BSaveImage: TButton;
    BUploadImage: TButton;

    ChkModalUI: TCheckBox;
    VSTwain1: TVintaSoftTwain;
    BDeleteImage: TButton;

    BGetSourceInfo: TButton;
    BProcessImage: TButton;
    BRotateImage: TButton;

    ProgressBar1: TProgressBar;
    ScrollBox1: TScrollBox;
    Image1: TImage;

    Shape1: TShape;
    BtnOrgPict: TButton;
    BtnClrBuff: TButton;

    Button2: TButton;
    SaveDialog1: TSaveDialog;
    BprevImage: TBitBtn;

    BNextImage: TBitBtn;
    TabSheet2: TTabSheet;
    BStartStop: TBitBtn;

    BrightEdit: TSpinEdit;
    ContrastEdit: TSpinEdit;
    Button1: TButton;

    Label4: TLabel;
    Label5: TLabel;
    ScrollDBGrid1: TScrollDBGrid;

    

GroupBox1: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;

    EdNim: TEdit;
    EdNama: TEdit;
    foto: TDBImageEx;

    Button3: TButton;
    BtnCrop: TBitBtn;
    BitBtn2: TBitBtn;

    BtnRect: TBitBtn;
    RstCetakKTM: TButton;
    CbTa: TComboBox;

    Label8: TLabel;
    RstSudahCetak: TButton;
    CbSmt: TComboBox;

    CbTahun: TComboBox;
    ChkEmptRcb: TCheckBox;
    procedure VSTwain1PostScan(ASender: TObject; flag: Integer);

    procedure BAcquireClick(Sender: TObject);
    procedure BSelectSrcClick(Sender: TObject);

    procedure SourcesChange(Sender: TObject);
    procedure ChkShowUIClick(Sender: TObject);

    procedure ChkDisableAfterAcqClick(Sender: TObject);
    procedure ChkAutoCleanBufferClick(Sender: TObject);

    procedure MaxImagesChange(Sender: TObject);
    procedure BSaveImageClick(Sender: TObject);

    procedure BGetSourceInfoClick(Sender: TObject);
    procedure BUploadImageClick(Sender: TObject);

    procedure ChkModalUIClick(Sender: TObject);
    procedure SaveDialog1TypeChange(Sender: TObject);

    procedure BDeleteImageClick(Sender: TObject);
    procedure BProcessImageClick(Sender: TObject);

    procedure VSTwain1Progress(ASender: TObject; action, percentComplete,
      canInterrupt: Integer; out interrupt: Integer);

    procedure BRotateImageClick(Sender: TObject);
    procedure ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

    procedure ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

    procedure ControlMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure BtnOrgPictClick(Sender: TObject);
    procedure BtnClrBuffClick(Sender: TObject);

    procedure Button2Click(Sender: TObject);
    procedure BprevImageClick(Sender: TObject);

    procedure BNextImageClick(Sender: TObject);
    procedure FormShow(Sender: TObject);

    procedure FormCreate(Sender: TObject);
    procedure BStartStopClick(Sender: TObject);

    procedure Button1Click(Sender: TObject);
    procedure EdNimKeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);
    procedure Button3Click(Sender: TObject);
    procedure BtnCropClick(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);
    procedure BtnRectClick(Sender: TObject);

    procedure RstCetakKTMClick(Sender: TObject);
    procedure RstSudahCetakClick(Sender: TObject);

  private
    { Private declarations }
    flagDevice: Bool;
    flagProcessImage: Bool;
    flagNeedInterrupt: Bool;

    inReposition : boolean;
    oldPos: TPoint;
  public
    { Public declarations }

    imageNum: integer;
  end;

  var
  MainForm: TMainForm;

  function SHEmptyRecycleBin(Wnd:HWnd; LPCTSTR:PChar; DWORD:Word):Integer; stdcall;

  const
  SHERB_NOCONFIRMATION = $00000001;
  SHERB_NOPROGRESSUI = $00000002;
  SHERB_NOSOUND = $00000004;

 // Shapeku :Tshape;

implementation

{$R *.dfm}
uses Unit2, Unit3, DateUtils, Math, Ulogin, Udlg_save_db, Udm, UFull_IMG;

function SHEmptyRecycleBin; external 'SHELL32.DLL' name 'SHEmptyRecycleBinA';
type
  TRGBrec=record

    r,g,b:integer;
   end;

   THSVRec=record
     h,s,v:extended;

   end;
function RGBtoHSV(Inrec:TRGBrec):THSVrec;
var
  mn,mx,delta:extended;

  rr,gg,bb:extended;
begin
  with result do
  begin

    with inrec do begin rr:=r/255; gg:=g/255; bb:=b/255; end;

    mn:=min(rr,min(gg,bb));
    mx:=max(rr,max(gg,bb));

    v:=mx;
    delta:=mx-mn;
    if mx<>0 then s:=delta/mx
    else
    begin
      s:=0;
      h:=-1;
      exit;

    end;
    if delta=0 then h:=0
    else If rr=mx then h:= (gg-bb)/delta

    else if gg=mx then h:=2+(bb-rr)/delta

    else h:=4+(rr-gg)/delta;
    h:=h*60;

    if h<0 then while h<0 do h:=h+360;

  end;
end;

function HSVtoRGB(Inrec:THSVRec):TRGBRec;
var
  i:integer;

  f,p,q,t:extended;
begin
  with inrec, result do

  begin
    if s=0 then
    begin
      r:=trunc(v)*255;

      g:=trunc(v)*255;
      b:=trunc(v)*255;

      exit;
    end;
    h:=h/60;
    i:=floor(h);

    f:=h-i;
    p:=v*(1-s);
    q:=v*(1-s*f);

    t:=v*(1-s*(1-f));
    case i of

    0:
      begin
      	r := trunc(v*255);
			  g := trunc(t*255);

			  b := trunc(p*255);
			 end;
		1:

      begin
  			r := trunc(q*255);
	  		g := trunc(v*255);

		  	b := trunc(p*255);
			end;
		2:

      begin
  			r:= trunc(p*255);
	  		g := trunc(v*255);

		  	b := trunc(t*255);
			end;
		3:

      begin
  			r := trunc(p*255);
	  		g := trunc(q*255);

		  	b := trunc(v*255);
			end;
		4:

      begin
			  r := trunc(t*255);
			  g := trunc(p*255);

			  b := trunc(v*255);
			end;
		else
      begin

    		r := trunc(v*255);
			  g := trunc(p*255);

			  b := trunc(q*255);
			end;
    end; {case}

  end;
end;
procedure TMainForm.ControlMouseDown(
  Sender: TObject;

  Button: TMouseButton;
  Shift: TShiftState;
  X, Y: Integer);

begin
//if (Sender is TWinControl) then
 //   begin
    inReposition:=True;
    SetCapture(TWinControl(Sender).Handle);

    GetCursorPos(oldPos);
//    PositionNodes(TWinControl(Sender));    // ini di gunakan jika akan pake 8 node pada shape kotak
//    end;
end; (*ControlMouseDown*)

procedure TMainForm.ControlMouseMove(
  Sender: TObject;

  Shift: TShiftState;
  X, Y: Integer);
const
  minWidth = 20;

  minHeight = 20;
var
  newPos: TPoint;
  frmPoint : TPoint;

begin
  if inReposition then
  begin
    {with TWinControl(Sender) do            //
    begin                                   //  jika pake 8 node pada shape
      GetCursorPos(newPos);                 //
      Screen.Cursor := crSize;              //
      Left := Left - oldPos.X + newPos.X;   //
      Top := Top - oldPos.Y + newPos.Y;     //
      oldPos := newPos;                     //
    end;                                    //
    PositionNodes(TWinControl(Sender));}    //
  with TWinControl(Sender) do

    begin
      GetCursorPos(newPos);

      if ssShift in Shift then

      begin //resize
        Screen.Cursor := crSizeNWSE;
        frmPoint := ScreenToClient(Mouse.CursorPos);

        if frmPoint.X > minWidth then Width := frmPoint.X;

        if frmPoint.Y > minHeight then Height := frmPoint.Y;

      end
      else //move
      begin
        Screen.Cursor := crSize;

        Left := Left - oldPos.X + newPos.X;

        Top := Top - oldPos.Y + newPos.Y;

        oldPos := newPos;
      end;
    end;
  end;
end; (*ControlMouseMove*)

procedure TMainForm.ControlMouseUp(
  Sender: TObject;
  Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);
begin
  if inReposition then

  begin
    Screen.Cursor := crDefault;
    ReleaseCapture;
    inReposition := False;

  end;
end; (*ControlMouseUp*)

procedure TMainForm.FormCreate(Sender: TObject);

begin

  Self.KeyPreview := TRUE;
  Shape1.OnMouseDown := ControlMouseDown;

  Shape1.OnMouseMove := ControlMouseMove;
  Shape1.OnMouseUp := ControlMouseUp;

  flagDevice := False;
  flagProcessImage := False;
  flagNeedInterrupt := False;

  imageNum := 0;
end;

procedure TMainForm.BAcquireClick(Sender: TObject);

begin
    VSTwain1.transferMode := 1;
    VSTwain1.Acquire;
    Application.ProcessMessages;

end;

procedure TMainForm.BSelectSrcClick(Sender: TObject);
begin
  VSTwain1.SelectSource;

  Sources.ItemIndex := VSTwain1.sourceIndex;
end;

procedure TMainForm.SourcesChange(Sender: TObject);

begin
  VSTwain1.sourceIndex := Sources.ItemIndex;
end;

procedure TMainForm.ChkShowUIClick(Sender: TObject);

begin
  VSTwain1.showUI := integer(ChkShowUI.Checked);
  ChkDisableAfterAcq.Enabled := ChkShowUI.Checked;

  ChkModalUI.Enabled := ChkShowUI.Checked;
  if not ChkDisableAfterAcq.Enabled then

  begin
    VSTwain1.disableAfterAcquire := 1;
    ChkDisableAfterAcq.Checked := True;

  end;
end;

procedure TMainForm.ChkModalUIClick(Sender: TObject);
begin

  VSTwain1.modalUI := integer(ChkModalUI.Checked);
end;

procedure TMainForm.ChkDisableAfterAcqClick(Sender: TObject);

begin
  VSTwain1.disableAfterAcquire := integer(ChkDisableAfterAcq.Checked);
end;

procedure TMainForm.ChkAutoCleanBufferClick(Sender: TObject);

begin

  VSTwain1.autoCleanBuffer := integer(ChkAutoCleanBuffer.Checked);
end;

procedure TMainForm.MaxImagesChange(Sender: TObject);

begin
  VSTwain1.maxImages := StrToInt(MaxImages.Text);
  imageNum := 0;

  ImgCount.Text := IntToStr(imageNum);
  currImg.Caption := 'No images';

  BPrevImage.Enabled := FALSE;
  BNextImage.Enabled := FALSE;

  if Image1.Picture.Bitmap.Handle <> 0 then
    begin

      Image1.Picture.Bitmap.FreeImage;
      Image1.Picture.Bitmap.Handle := 0;

      Image1.Visible := FALSE;
      Image1.Update;
      Image1.Visible := TRUE;

    end;
end;

procedure TMainForm.VSTwain1PostScan(ASender: TObject; flag: Integer);

var i: integer;
begin
  if (flag <> 0) then

    begin
      if (VSTwain1.errorCode <> 0) then
        ShowMessage(VSTwain1.errorString)

    end
  else
  begin
    i := VSTwain1.numImages-1;

    imageNum := i;
    ImgCount.Text := IntToStr(imageNum+1);

    currImg.Caption := 'Image '+IntToStr(imageNum)+' ('+IntToStr(VSTwain1.GetImageWidth(imageNum))+' x '+IntToStr(VSTwain1.GetImageHeight(imageNum))+' x '+IntToStr(VSTwain1.GetImageBPP(imageNum))+' bpp)';

    if Image1.Picture.Bitmap.Handle <> 0 then
    begin

      Image1.Picture.Bitmap.FreeImage;
      Image1.Picture.Bitmap.Handle := 0;

    end;
    Image1.Picture.Bitmap.Handle := VSTwain1.GetCurrentImageAsHBitmap;

    if imageNum > 0 then BPrevImage.Enabled := TRUE;

    if not BSaveImage.Enabled then BSaveImage.Enabled := TRUE;

    if not BUploadImage.Enabled then BUploadImage.Enabled := TRUE;

    if not BDeleteImage.Enabled then BDeleteImage.Enabled := TRUE;

    BtnRect.Enabled:=(VSTwain1.numImages>0);
    BtnCrop.Enabled:=(VSTwain1.numImages>0);

    BtnOrgPict.Enabled:=(VSTwain1.numImages>0);
    BRotateImage.Enabled:=(VSTwain1.numImages>0);

    BtnClrBuff.Enabled:=(VSTwain1.numImages>0);
  end;
end;

procedure TMainForm.BSaveImageClick(Sender: TObject);

var jp: TJPEGImage;
begin
  if SaveDialog1.Execute then
  begin

    

if SaveDialog1.FilterIndex = 1 then
      begin
        jp := TJPEGImage.Create;

        try
          jp.Assign(Image1.Picture.Bitmap);
          jp.SaveToFile(SaveDialog1.FileName);

        finally
          jp.Free;
        end;
      end

    else if SaveDialog1.FilterIndex = 2 then

      begin
        Image1.Picture.Bitmap.SaveToFile(SaveDialog1.FileName);
      end

    else if SaveDialog1.FilterIndex = 3 then
      begin
        VSTwain1.SaveImage(imageNum,SaveDialog1.FileName);

      end;
  end;
end;

procedure TMainForm.SaveDialog1TypeChange(Sender: TObject);

begin
  if SaveDialog1.FilterIndex = 1 then
    SaveDialog1.DefaultExt := 'jpg'

  else if SaveDialog1.FilterIndex = 2 then
    SaveDialog1.DefaultExt := 'bmp'

  else
    SaveDialog1.DefaultExt := 'tif';
end;

procedure TMainForm.BGetSourceInfoClick(Sender: TObject);

begin
  DevCapsForm.ShowModal;
end;

procedure TMainForm.BUploadImageClick(Sender: TObject);

begin
  UploadForm.ShowModal;
end;

procedure TMainForm.BDeleteImageClick(Sender: TObject);

begin
Shape1.Visible:=false;
BtnRect.Caption:='Buat bingkai';
  if VSTwain1.DeleteImage(imageNum) = 1 then

    begin
      ImgCount.Text := IntToStr(VSTwain1.numImages);
      If (imageNum >= VSTwain1.numImages) then

        imageNum := VSTwain1.numImages - 1;
      if Image1.Picture.Bitmap.Handle <> 0 then

      begin
        Image1.Picture.Bitmap.FreeImage;
        Image1.Picture.Bitmap.Handle := 0;

      end;
      BtnRect.Enabled:=(VSTwain1.numImages>0);
      BtnCrop.Enabled:=(VSTwain1.numImages>0);

      BtnOrgPict.Enabled:=(VSTwain1.numImages>0);
      BRotateImage.Enabled:=(VSTwain1.numImages>0);

      BtnClrBuff.Enabled:=(VSTwain1.numImages>0);
      if VSTwain1.numImages = 0 then

        begin
          Image1.Visible := FALSE;
          Image1.Update;
          Image1.Visible := TRUE;

          BPrevImage.Enabled := FALSE;
          BNextImage.Enabled := FALSE;

          BSaveImage.Enabled := FALSE;
          BUploadImage.Enabled := FALSE;

          BDeleteImage.Enabled := FALSE;
          currImg.Caption := 'No images';

        end
      else
        begin
          Image1.Picture.Bitmap.Handle := VSTwain1.GetImageAsHBitmap(imageNum);

          currImg.Caption := 'Image '+IntToStr(imageNum)+' ('+IntToStr(VSTwain1.GetImageWidth(imageNum))+' x '+IntToStr(VSTwain1.GetImageHeight(imageNum))+' x '+IntToStr(VSTwain1.GetImageBPP(imageNum))+' bpp)';

        end;
    end
  else
      ShowMessage(VSTwain1.errorString);
  end;

procedure TMainForm.BProcessImageClick(Sender: TObject);
begin
  if not flagProcessImage then

  begin
    flagProcessImage := True;
    BProcessImage.Caption := 'Cancel';

    if VSTwain1.DespeckleImage(imageNum, 8, 25, 30, 400) = 0 then

      ShowMessage(VSTwain1.errorString)
    else
    begin
      if VSTwain1.DeskewImage(imageNum, 0, 5, 5) = 0 then

        ShowMessage(VSTwain1.errorString)
      else
      begin
        if VSTwain1.DetectImageBorder(imageNum, 5, 5, 5) = 0 then

          ShowMessage(VSTwain1.errorString)
        else
        begin
          currImg.Caption := 'Image '+IntToStr(imageNum)+' ('+IntToStr(VSTwain1.GetImageWidth(imageNum))+' x '+IntToStr(VSTwain1.GetImageHeight(imageNum))+' x '+IntToStr(VSTwain1.GetImageBPP(imageNum))+' bpp)';

          if Image1.Picture.Bitmap.Handle <> 0 then
          begin

            Image1.Picture.Bitmap.FreeImage;
            Image1.Picture.Bitmap.Handle := 0;

          end;
          Image1.Picture.Bitmap.Handle := VSTwain1.GetCurrentImageAsHBitmap;

        end;
      end;
    end;
    flagProcessImage := False;
    BProcessImage.Caption := 'Despeckle => deskew => detect border';

  end
  else
  begin
    flagNeedInterrupt := True;
    flagProcessImage := False;

    BProcessImage.Caption := 'Despeckle => deskew => detect border';
  end;
end;

procedure TMainForm.VSTwain1Progress(ASender: TObject; action,
  percentComplete, canInterrupt: Integer; out interrupt: Integer);

begin
    if action = 0 then TxtAction.Caption := 'Despeckling...'

    else
    begin
      if action = 1 then TxtAction.Caption := 'Deskewing...'

      else
      begin
        if action = 2 then TxtAction.Caption := 'Rotating...'

        else
        begin
          if action = 3 then TxtAction.Caption := 'Border detecting...'

          else
          begin
            if action = 4 then TxtAction.Caption := 'Image scan...';

          end;
        end;
      end;
    end;
    ProgressBar1.Position := percentComplete;

    if flagNeedInterrupt and (canInterrupt = 1) then
    begin

      interrupt := 1;
      flagNeedInterrupt := False;
    end;

end;

procedure TMainForm.BRotateImageClick(Sender: TObject);
begin
    if VSTwain1.RotateImage(imageNum, 90, 0) = 0 then

      ShowMessage(VSTwain1.errorString)
    else
    begin
      currImg.Caption := 'Image '+IntToStr(imageNum)+' ('+IntToStr(VSTwain1.GetImageWidth(imageNum))+' x '+IntToStr(VSTwain1.GetImageHeight(imageNum))+' x '+IntToStr(VSTwain1.GetImageBPP(imageNum))+' bpp)';

      if Image1.Picture.Bitmap.Handle <> 0 then
      begin

        Image1.Picture.Bitmap.FreeImage;
        Image1.Picture.Bitmap.Handle := 0;

      end;
      Image1.Picture.Bitmap.Handle := VSTwain1.GetCurrentImageAsHBitmap;

    end;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin
//if Shapeku<>nil then FreeAndNil(Shapeku);
end;

procedure TMainForm.BtnOrgPictClick(Sender: TObject);
begin

Image1.Picture.Bitmap.Handle := VSTwain1.GetCurrentImageAsHBitmap;
end;

procedure TMainForm.BtnClrBuffClick(Sender: TObject);

var i:integer;
begin
Shape1.Visible:=false;
BtnRect.Caption:='Buat bingkai';

for i:=0 to VSTwain1.numImages-1 do
  begin

   if VSTwain1.DeleteImage(i)=1 then
    ImgCount.Text := IntToStr(VSTwain1.numImages);

  if Image1.Picture.Bitmap.Handle <> 0 then
      begin

        Image1.Picture.Bitmap.FreeImage;
        Image1.Picture.Bitmap.Handle := 0;

      end;
  end;
BtnRect.Enabled:=(VSTwain1.numImages>0);
BtnCrop.Enabled:=(VSTwain1.numImages>0);

BtnOrgPict.Enabled:=(VSTwain1.numImages>0);
BRotateImage.Enabled:=(VSTwain1.numImages>0);

BtnClrBuff.Enabled:=(VSTwain1.numImages>0);
if VSTwain1.numImages = 0 then

    begin
    Image1.Visible := FALSE;
    Image1.Update;
    Image1.Visible := TRUE;

    BPrevImage.Enabled := FALSE;
    BNextImage.Enabled := FALSE;

    BSaveImage.Enabled := FALSE;
    BUploadImage.Enabled := FALSE;

    BDeleteImage.Enabled := FALSE;
    currImg.Caption := 'No images';

    end
    else
       begin
       Image1.Picture.Bitmap.Handle := VSTwain1.GetImageAsHBitmap(imageNum);

       currImg.Caption := 'Image '+IntToStr(imageNum)+' ('+IntToStr(VSTwain1.GetImageWidth(imageNum))+' x '+IntToStr(VSTwain1.GetImageHeight(imageNum))+' x '+IntToStr(VSTwain1.GetImageBPP(imageNum))+' bpp)';

       end;
end;

Function DelTree(DirName : string): Boolean;

var
  SHFileOpStruct : TSHFileOpStruct;
  DirBuf : array [0..255] of char;

begin
  try
   Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ;
   FillChar(DirBuf, Sizeof(DirBuf), 0 ) ;

   StrPCopy(DirBuf, DirName) ;
   with SHFileOpStruct do begin

    Wnd := 0;
    pFrom := @DirBuf;
    wFunc := FO_DELETE;

    fFlags := FOF_ALLOWUNDO;
    fFlags := fFlags or FOF_NOCONFIRMATION;

    fFlags := fFlags or FOF_SILENT;
   end;
    Result := (SHFileOperation(SHFileOpStruct) = 0) ;

   except
    Result := False;
  end;

end;
procedure TMainForm.Button2Click(Sender: TObject);

begin
if MessageDlg('Are you sure delete all chache images?',mtConfirmation,[mbYes,mbNo],0)=mrNo then exit;

if DelTree('C:\Documents and Settings\All Users\Application Data\Microsoft\WIA') then
  ShowMessage('Chace Cleared...')
else
  ShowMessage('Chache already cleared OR any file stil in use OR unkown error!!!');

if ChkEmptRcb.Checked then   SHEmptyRecycleBin(self.handle,'', SHERB_NOCONFIRMATION) ;

Shape1.Visible:=false;
BtnRect.Caption:='Buat bingkai';
end;

procedure TMainForm.BprevImageClick(Sender: TObject);

var i: integer;
begin
  i := VSTwain1.numImages - 1;

  if (imageNum > 0) and (imageNum <= i) then

  begin
    imageNum := imageNum - 1;
    currImg.Caption := 'Image '+IntToStr(imageNum)+' ('+IntToStr(VSTwain1.GetImageWidth(imageNum))+' x '+IntToStr(VSTwain1.GetImageHeight(imageNum))+' x '+IntToStr(VSTwain1.GetImageBPP(imageNum))+' bpp)';

    if Image1.Picture.Bitmap.Handle <> 0 then
    begin

      Image1.Picture.Bitmap.FreeImage;
      Image1.Picture.Bitmap.Handle := 0;

    end;
    Image1.Picture.Bitmap.Handle := VSTwain1.GetImageAsHBitmap(imageNum);

    if imageNum = 0 then BPrevImage.Enabled := FALSE;

    if i > imageNum then BNextImage.Enabled := TRUE;

  end;

end;

procedure TMainForm.BNextImageClick(Sender: TObject);
var i: integer;

begin
  i := VSTwain1.numImages - 1;
  if imageNum < i then

  begin
    imageNum := imageNum + 1;
    currImg.Caption := 'Image '+IntToStr(imageNum)+' ('+IntToStr(VSTwain1.GetImageWidth(imageNum))+' x '+IntToStr(VSTwain1.GetImageHeight(imageNum))+' x '+IntToStr(VSTwain1.GetImageBPP(imageNum))+' bpp)';

    if Image1.Picture.Bitmap.Handle <> 0 then
    begin

      Image1.Picture.Bitmap.FreeImage;
      Image1.Picture.Bitmap.Handle := 0;

    end;
    Image1.Picture.Bitmap.Handle := VSTwain1.GetImageAsHBitmap(imageNum);

    if imageNum = i then BNextImage.Enabled := FALSE;

    if imageNum > 0 then BPrevImage.Enabled := TRUE;

  end;

end;

procedure TMainForm.FormShow(Sender: TObject);
begin

Flogin.showmodal;
end;

procedure TMainForm.BStartStopClick(Sender: TObject);

var
  i: integer;
begin
  if Image1.Picture.Bitmap.Handle <> 0 then

  begin
    Image1.Picture.Bitmap.FreeImage;
    Image1.Picture.Bitmap.Handle := 0;

  end;

  if flagDevice then
    begin
      flagDevice := FALSE;

      VSTwain1.StopDevice;
      Sources.Clear;
      BStartStop.Caption := 'Start Device';

      MainForm.Refresh;
    end
  else
    begin
      if VSTwain1.StartDevice <> 0 then

        begin
          flagDevice := TRUE;
          ChkShowUI.Checked := Boolean(VSTwain1.showUI);

          ChkModalUI.Checked := Boolean(VSTwain1.modalUI);
          ChkDisableAfterAcq.Checked := Boolean(VSTwain1.disableAfterAcquire);

          ChkAutoCleanBuffer.Checked := Boolean(VSTwain1.autoCleanBuffer);
          for i:=0 to (VSTwain1.sourcesCount-1) do

          begin
            Sources.AddItem(VSTwain1.GetSourceProductName(i),TObject(i));

          end;
          Sources.ItemIndex := VSTwain1.sourceIndex;
          BStartStop.Caption := 'Stop Device';

        end;
    end;
    BAcquire.Enabled := flagDevice;
    BSelectSrc.Enabled := flagDevice;

    BGetSourceInfo.Enabled := flagDevice;
    BProcessImage.Enabled := flagDevice;

   { BRotateImage.Enabled := flagDevice;
    BtnRect.Enabled:=flagDevice;
    BtnCrop.Enabled:=flagDevice;
    BtnOrgPict.Enabled:=flagDevice;}
    ChkShowUI.Enabled := flagDevice;
    ChkModalUI.Enabled := flagDevice;

    ChkDisableAfterAcq.Enabled := flagDevice;
    ChkAutoCleanBuffer.Enabled := flagDevice;

    ImgCount.Enabled := flagDevice;
    MaxImages.Enabled := flagDevice;

    Sources.Enabled := flagDevice;

    BPrevImage.Enabled := FALSE;

    BNextImage.Enabled := FALSE;
    BSaveImage.Enabled := FALSE;

    BUploadImage.Enabled := FALSE;
    BDeleteImage.Enabled := FALSE;

    currImg.Caption := 'No images';
    ImgCount.Text := IntToStr(VSTwain1.numImages);

    MaxImages.Text := IntToStr(VSTwain1.maxImages);

end;

procedure TMainForm.Button1Click(Sender: TObject);

Var
  X, Y: Integer;
  P   : TColor;

  {r,g,b : byte; }
  exponent,f : extended;
  hsv:THsvRec;
  rgb:TRGBRec;

  bright:extended;
  ImgBuff:TImage;
begin
  ImgBuff:=TImage.Create(self);

  ImgBuff.AutoSize:=true;
  ImgBuff.Picture.Assign(Image1.Picture);

  bright:=BrightEdit.Value/10;;
  For X := 0 to Image1.Width do

  begin
    exponent:=ContrastEdit.Value/10.0;
    f:=256/power(256,exponent);

    For Y :=0 to Image1.Height do
    with rgb do

    begin
      P := Image1.Canvas.Pixels[X, Y];

      r := (P and $0000FF);
      g := (P and $00FF00) shr 8;

      b := (P and $FF0000) shr 16;

      r := Round(power(r,exponent)*f);
      g := Round(power(g,exponent)*f);

      b := Round(power(b,exponent)*f);
      HSV:=RGBToHSV(rgb);

      with HSV do begin v:=v*bright; if v>1 then v:=1;   end;

      rgb:=HSVtoRGB(Hsv);

      ImgBuff.Canvas.Pixels[X, Y] := r + g shl 8 + b shl 16;

    end;
  end;
  Image1.Picture.Assign(ImgBuff.Picture);

  ImgBuff.Free;
end;

procedure TMainForm.EdNimKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);
var kunci,ta,SQlmhs:string;
begin
if key=vk_return then

  begin
  if CbTa.Text='All' then ta:='' else ta:=' and ta="'+CbTa.Text+'"';

  if Sender=EdNim then kunci:=' M.nim like "%'+EdNim.Text+'%"' else

     if Sender=EdNama then kunci:=' M.nama like "%'+EdNama.Text+'%"';

  SQLMhs:='select M.nim,M.nama,M.ta,P.nama as Prodi,P.strjjg,(case left(M.nim,2)'+
  'when "10" then 	(select foto from foto_10 F where F.nim=M.nim)'+
  'when "11" then 	(select foto from foto_11 F where F.nim=M.nim)'+

  'when "12" then 	(select foto from foto_12 F where F.nim=M.nim)'+
  'when "13" then 	(select foto from foto_13 F where F.nim=M.nim)'+
  'when "14" then 	(select foto from foto_14 F where F.nim=M.nim)'+

  'when "15" then 	(select foto from foto_15 F where F.nim=M.nim)'+
  'when "20" then 	(select foto from foto_20 F where F.nim=M.nim)'+
  'when "21" then 	(select foto from foto_21 F where F.nim=M.nim)'+

  'when "22" then 	(select foto from foto_22 F where F.nim=M.nim)'+
  'when "23" then 	(select foto from foto_23 F where F.nim=M.nim)'+
  'when "24" then 	(select foto from foto_24 F where F.nim=M.nim)'+

  'when "25" then 	(select foto from foto_25 F where F.nim=M.nim)'+
  'when "27" then 	(select foto from foto_27 F where F.nim=M.nim)'+
  'when "30" then 	(select foto from foto_30 F where F.nim=M.nim)'+

  'when "31" then 	(select foto from foto_31 F where F.nim=M.nim)'+
  'when "32" then 	(select foto from foto_32 F where F.nim=M.nim)'+
  'when "33" then 	(select foto from foto_33 F where F.nim=M.nim)'+

  'when "34" then 	(select foto from foto_34 F where F.nim=M.nim)'+
  'when "35" then 	(select foto from foto_35 F where F.nim=M.nim)'+
  'when "40" then 	(select foto from foto_40 F where F.nim=M.nim)'+

  'when "41" then 	(select foto from foto_41 F where F.nim=M.nim)'+
  'when "42" then 	(select foto from foto_42 F where F.nim=M.nim)'+
  'when "43" then 	(select foto from foto_43 F where F.nim=M.nim)'+

  'when "44" then 	(select foto from foto_44 F where F.nim=M.nim)'+
  'when "45" then 	(select foto from foto_45 F where F.nim=M.nim)'+
  'when "46" then 	(select foto from foto_46 F where F.nim=M.nim)'+

  'when "51" then 	(select foto from foto_51 F where F.nim=M.nim)'+
  'when "52" then 	(select foto from foto_52 F where F.nim=M.nim)'+
  'when "53" then 	(select foto from foto_53 F where F.nim=M.nim)'+

  'when "54" then 	(select foto from foto_54 F where F.nim=M.nim)'+
  'when "61" then 	(select foto from foto_61 F where F.nim=M.nim)'+
  'when "62" then 	(select foto from foto_62 F where F.nim=M.nim)'+

  'when "63" then 	(select foto from foto_63 F where F.nim=M.nim)'+
  'when "64" then 	(select foto from foto_64 F where F.nim=M.nim)'+
  'when "71" then 	(select foto from foto_71 F where F.nim=M.nim)'+

  'when "72" then 	(select foto from foto_72 F where F.nim=M.nim)'+
  'when "73" then 	(select foto from foto_73 F where F.nim=M.nim)'+
  'when "74" then 	(select foto from foto_74 F where F.nim=M.nim)'+

  'when "81" then 	(select foto from foto_81 F where F.nim=M.nim) end) as foto'+
  ' from mhs M inner join prodi P on(M.program_studi=P.kode)'+
  ' where '+kunci+' '+ta+' order by M.ta,M.nim';

  dm.QmhsBrws.SQL.Text:=SQlmhs;
  dm.QmhsBrws.Open;

  RstCetakKTM.Enabled:=(dm.QmhsBrws.RecordCount<>0);
  RstSudahCetak.Enabled:=(dm.QmhsBrws.RecordCount<>0);

  if dm.QmhsBrws.RecordCount=0 then
    begin
    ShowMessage('Record not found...');

    dm.QmhsBrws.Close;
    exit;
    end;
  end;
end;

procedure TMainForm.Button3Click(Sender: TObject);
var St:TMemoryStream;

    JpgTmp:TJPEGImage;
begin
try
 St:=TMemoryStream.Create;
 JpgTmp:=TJPEGImage.create;

 (foto.Field as TBlobField).SaveToStream(St);
 if St.Size<>0 then

   begin
   St.Seek(0,soFromBeginning);
   JpgTmp.LoadFromStream(St);

   FFullImg.Image1.Picture.Assign(JpgTmp);
   end;
finally
 JpgTmp.Free;

 St.Free;
end;
FfullImg.ShowModal;
end;

procedure TMainForm.BtnCropClick(Sender: TObject);

var
  TmpBmp : TBitmap;
begin
//if Shapeku=nil then exit;
if not Shape1.Visible then exit;

  TmpBmp := TBitmap.Create;
  with TmpBmp do
  try

    Width := Shape1.Width;
    Height :=Shape1.Height;

    BitBlt(Canvas.Handle, 0, 0, Width, Height, Image1.Canvas.Handle, Shape1.Left,

      Shape1.top, SRCCOPY);
    Image1.AutoSize := TRUE;

    Image1.Picture.Bitmap.Assign(TmpBmp);
  finally
    Shape1.Visible:=false;

    BtnRect.Caption:='Buat bingkai';
    Free;
  end;
//if Shapeku<> nil then
//FreeAndNil(Shapeku);
end;

procedure TMainForm.BitBtn2Click(Sender: TObject);
begin
FsaveImg.Image1.Picture.Assign(Image1.Picture);

FsaveImg.Caption:='Post to Sikadu image number : '+IntToStr(imageNum);
fsaveImg.showmodal;
end;

procedure TMainForm.BtnRectClick(Sender: TObject);

begin
  {if Shapeku=nil then Shapeku:=TShape.Create(Self);
  Shapeku.Name:='shapeku';
  Shapeku.Brush.Style:=bsClear;
  Shapeku.Width:=150;
  Shapeku.Height:=200;
  Shapeku.Parent:=ScrollBox1;
  Shapeku.Pen.Color:=clWhite;
  Shapeku.top:=(Image1.Picture.Height div 2)-(Shapeku.Height div 2);
  Shapeku.Left:=(Image1.Picture.Width div 2)-(Shapeku.Width div 2);
  Shapeku.OnMouseDown := ControlMouseDown;
  Shapeku.OnMouseMove := ControlMouseMove;
  Shapeku.OnMouseUp := ControlMouseUp;}
  if not Shape1.Visible then
    begin

    BtnRect.Caption:='Tutup bingkai';
    Shape1.Visible:=true;
    Shape1.Width:=173;

    Shape1.Height:=230;
    Shape1.top:=(Image1.Picture.Height div 2)-(Shape1.Height div 2);

    Shape1.Left:=(Image1.Picture.Width div 2)-(Shape1.Width div 2);

    end
  else
    begin
    Shape1.Visible:=false;
    BtnRect.Caption:='Buat bingkai';

    end;
end;

procedure TMainForm.RstCetakKTMClick(Sender: TObject);
begin

dm.QExct.close;
dm.QExct.SQL.Text:='update registrasi_R'+CbSmt.Text+Copy(CbTahun.Text,3,4)+' set KTM=Null where nim="'+dm.QmhsBrws.Fields[0].AsString+'"';

dm.QExct.ExecSQL;
end;

procedure TMainForm.RstSudahCetakClick(Sender: TObject);

begin
dm.QExct.close;
dm.QExct.SQL.Text:='update registrasi_R'+CbSmt.Text+Copy(CbTahun.Text,3,4)+' set KTM="1" where nim="'+dm.QmhsBrws.Fields[0].AsString+'"';

dm.QExct.ExecSQL;
end;

end.

Bila boss berubah-ubah pendapat,
itu berarti beliau flexible.
Bila staff berubah-ubah pendapat,
itu berarti dia plin-plan !

Bila boss bekerja lambat,
itu berarti beliau teliti.
Bila staff bekerja lambat
itu berarti dia tidak ‘perform’ !

Bila boss bekerja cepat,
itu berarti beliau ‘smart’.
Bila staff bekerja cepat,
itu berarti dia terburu-buru !

Bila boss lambat memutuskan,
itu berarti beliau hati-hati.
Bila staff lambat memutuskan,
itu berarti dia ‘telmi’ !

Bila boss mengambil keputusan cepat,
itu berarti beliau berani mengambil
keputus an.
Bila staff mengambil keputusan cepat,
itu berarti dia gegabah !

Bila boss terlalu berani ambil resiko,
itu berarti beliau risk-taking.
Bila staff terlalu berani ambil resiko,
itu berarti dia sembrono !

Bila boss tidak berani ambil resiko,
itu berarti beliau ‘prudent’.
Bila staff tidak berani ambil resiko,
itu berarti dia tidak berjiwa bisnis !

Bila boss mem-by-pass prosedur,
itu berarti beliau proaktif-inovatif.Bila staff mem-by-pass prosedur,
itu berarti dia melanggar aturan !

Bila boss curiga terhadap mitra bisnis,
itu berarti beliau waspada.
Bila staff curiga terhadap mitra bisnis,
itu berarti dia negative thinking !

Bila boss menyatakan : ” Sulit “
itu berarti beliau prediktif-
antisi patif.
Bila staff menyatakan : ” Sulit “
itu berarti dia pesimistik !

Bila boss menyatakan : ” Mudah “
itu berarti beliau optimis.
Bila staff menyatakan : ” Mudah “
itu berarti dia meremehkan masalah !

Bila boss sering keluar kantor,
itu berarti beliau rajin ke customer
Bila staff sering keluar kantor,
itu berarti dia sering kelayapan !

Bila boss sering entertainment,
it u berarti beliau rajin me-lobby
customer .
Bila staff sering entertainment,
it u berarti dia menghamburkan anggaran !

Bila boss tidak pernah entertainment,
it u berarti beliau berhemat.
Bila staff tidak pernah entertainment,
it u berarti dia tidak bisa me-lobby
customer !

Bila boss men-service atasan,
itu berarti beliau me-lobby.
Bila staff men-service atasan,
itu berarti dia menjilat !

Bila boss sering tidak masuk,
itu berarti beliau kecapaian karena
kerja keras.
Bila staff sering tidak masuk,
itu berarti dia pemalas !

Bila boss minta fasilitas mewah,
itu berarti beliau menjaga citra
perusahaan.
Bila staff minta fasilitas standar,
itu berarti dia banyak menuntut !

……….. ……..(masih banyak lagi)

Bila boss membuat tulisan seperti ini,
itu berarti beliau humoris.
Bila staff membuat tulisan seperti ini,
itu berarti dia :
- frustasi
- iri thd karir orang lain
- negative thinking
- provokasi
- tidak tahan banting
- barisan sakit hati
- berpolitik di kantor
- tidak sesuai dengan budaya perusahaan
- ……………..(ma sih banyak lagi)

Bermimpilah tentang apa yang ingin kamu impikan,
pergilah ke tempat-tempat kamu ingin pergi,
jadilah seperti yang kamu inginkan,
karena kamu hanya memiliki satu kehidupan
dan satu kesempatan untuk melakukan hal-hal yang ingin kamu lakukan.

Semoga kamu mendapatkan kebahagiaan yang cukup
untuk membuatmu baik hati,
cobaan yang cukup untuk membuatmu kuat,
kesedihan yang cukup untuk membuatmu manusiawi,
pengharapan yang cukup untuk membuatmu bahagia
dan uang yang cukup untuk membeli hadiah-hadiah
(kepada orang yang kamu kasihi).

Ketika satu pintu kebahagiaan tertutup,
pintu yang lain dibukakan.
Tetapi acapkali kita terpaku terlalu lama pada
pintu yang tertutup sehingga tidak melihat
pintu lain yang dibukakan bagi kita.

Sahabat terbaik adalah dia yang dapat duduk
berayun-ayun di beranda bersamamu, tanpa
mengucapkan sepatah katapun, dan kemudian
kamu meninggalkannya dengan perasaan telah
bercakap-cakap lama dengannya.

Sungguh benar bahwa kita tidak tahu apa yang kita miliki
sampai kita kehilangannya, tetapi sungguh benar pula
bahwa kita tidak tahu apa yang belum pernah kita miliki
sampai kita mendapatkannya.

Pandanglah segala sesuatu dari kacamata orang lain.
Apabila hal Itu menyakitkan hatimu,
sangat mungkin hal itu menyakitkan hati orang itu pula.

Kata-kata yang diucapkan sembarangan dapat menyulut perselisihan.
Kata-kata yang kejam dapat menghancurkan suatu kehidupan.
Kata-kata yang diucapkan pada tempatnya dapat meredakan ketegangan.
Kata-kata yang penuh cinta dapat menyembuhkan dan memberkahi..
Awal dari cinta adalah membiarkan orang yang kita cinta
menjadi dirinya sendiri, dan tidak merubahnya menjadi
gambaran yang kita inginkan.
Jika tidak, kita hanya mencintai pantulan diri sendiri
yang kita temukan di dalam dia

Orang-orang yang paling berbahagia tidak selalu
memiliki hal-hal terbaik, mereka hanya berusaha
menjadikan yang terbaik dari setiap hal yang hadir dalam
hidupnya

Mungkin Tuhan menginginkan kita bertemu
dengan beberapa orang Yang salah (tidak tepat)
sebelum bertemu dengan orang yang tepat,
kita Harus mengerti bagaimana berterima kasih atas karunia itu.

Hanya diperlukan waktu semenit untuk menaksir seseorang,
sejam untuk menyukai seseorang
dan sehari untuk mencintai seseorang
tetapi diperlukan waktu seumur hidup untuk melupakan seseorang.

Kebahagiaan tersedia bagi mereka yang menangis,
mereka yang disakiti hatinya,
mereka yang mencari dan
mereka yang mencoba.
Karena hanya mereka itulah yang menghargai
pentingnya orang-orang yang pernah hadir dalam hidup mereka.

Cinta adalah jika kamu kehilangan rasa, gairah,
romantika dan masih tetap peduli padanya.

Hal yang menyedihkan dalam hidup adalah
ketika kamu bertemu seseorang yang sangat berarti bagimu
dan mendapati pada akhirnya bahwa tidak demikian adanya
dan kamu harus melepaskannya.

Cinta dimulai dengan sebuah senyuman, bertumbuh
dengan sebuah ciuman dan berakhir dengan tetesan air mata.

Cinta datang kepada mereka yang masih berharap sekalipun pernah dikecewakan,
kepada mereka yang masih percaya sekalipun pernah dikhianati,
kepada mereka yang masih mencintai sekalipun pernah disakiti hatinya.

Sungguh menyakitkan mencintai seseorang yang tidak mencintaimu,
tetapi yang lebih menyakitkan adalah mencintai seseorang
dan tidak pernah memiliki keberanian untuk mengutarakan cintamu kepadanya.

Masa depan yang cerah selalu tergantung kepada masa lalu yang dilupakan,
kamu tidak dapat hidup terus dengan baik jika kamu tidak melupakan kegagalan
dan sakit hati di masa lalu.

Jangan pernah mengucapkan selamat tinggal jika kamu masih mau mencoba
jangan pernah menyerah jika kamu masih merasa sanggup
jangan pernah mengatakan kamu tidak mencintainya lagi
jika kamu masih tidak dapat melupakannya.

Memberikan seluruh cintamu kepada seseorang
bukanlah jaminan dia akan membalas cintamu!
Jangan mengharapkan balasan cinta,
tunggulah sampai cinta berkembang di hatinya,
tetapi jika tidak, berbahagialah karena cinta tumbuh dihatimu.

Ada hal-hal yang sangat ingin kamu dengar tetapi tidak akan
pernah kamu dengar dari orang yang kamu harapkan untuk mengatakannya.
namun demikian janganlah menulikan telinga untuk mendengar
dari orang yang mengatakannya dengan sepenuh hati.

Waktu kamu lahir, kamu menangis dan orang-orang disekelilingmu tersenyum
jalanilah hidupmu sehingga pada saat kamu akan meninggalkan dunia
dan pada saat itu kamu lah yang tersenyum
dengan meninggalkan orang yang ganti akan menangisi kamu

Perih dan pilu ketika kau mengandungku
Meregang, mengerang ketika kau melahirkanku
Tapi ada seyum tulus di wajahmu
Senyum bahagia atas lahirnya anak tercinta
Merah merona bagai mawar di taman syurga

Belai kasihmu
Lembut, membuat reda tangisku
Nina bobomu
Merdu, membuat pulas lelapku
Senyum tulusmu bersinar
laksana embun terpaan mentari
Canda tawamu
Ah..itu geli aku mengingatnya

Ibu…
Tak ada sesal di hatimu
Ketika kau belikan aku mainan dari uang dapurmu
Tak ada kesal di hatimu
Ketika kau bangun karena tangisku di tengah malammu
Karena aku adalah buah hatimu
aku adalah cintamu
aku adalah harapanmu

Ibu…
Kaulah yang melindungiku dari kemarahan ayah yang menggebu
Kaulah yang menahan malu ketika meminjam uang untuk biaya hidupku
Tapi apa balasanku ibu…
Kau suruhpun aku tak mau
Permintaanmu kuanggap angin lalu
Berjuta alasan aku ungkapkan
Bahkan bentakan pernah pula aku lakukan

Ibu…
Kasih sayang tulusmu
Kubalas dengan cinta pada orang yang kuanggap ‘lucu’
Kala kau menangis tersedu
Kubalas dengan kepergianku, meninggalkanmu

Lalu..
Pantaskah aku disebut anak sholeh, ibu..
Pantaskah aku disebut anak berbakti, ibu..
Pantaskah….
Ya Allah… apakah hati ini sudah membatu
Apakah diri ini sudah tak lagi malu
Sampai-sampai kuhinakan ibu kandungku

Ya Allah, Astagfirullah…
Bukankah syurga di bawah telapak kaki ibu
Bukankah dia yang pertama kali harus kucinta setelah Engkau dan rasulMu
Maafkanlah diriku ibu
Maafkanlah anakmu yang durhaka ini
Ingin rasanya kucium tanganmu ibu
Ingin rasanya kupeluk dirimu
Dan kubisikkan di telingamu
“Aku sayang padamu ibu….”

Ya Allah…
Izinkanlah aku berbakti pada ibuku
Walau cuma sekali dalam hidupku
Sebelum kau pisahkan aku dengan ibuku…

sambil mendengar lantunan…

…namun terus berkorban untuk sesuap rezeki
agar sempurna hari depanmu…
Hanyalah anak yang sholeh..
bisa memberikan kasih sayangnya…