Creating Button (Control) & Event On The Fly Di Delphi

Sering hal ini menjadi banyak pertanyaan orang. Bagaimana membuat button on the fly, kemudian apabila tombol tersebut di klik, maka akan menampilkan identitas button tersebut, button tersebut nomor berapa.

Begini ilustrasinya

Bagaimana caranya mengetahui button tersebut di array berapa? Delphi menyediakan sebuah property bernama TAG, entah tujuannya apa, tetapi terkadang cukup berguna. Untuk source codenya, mari kita lihat saja, supaya tidak banyak teori. Proses tidak penting, mari kita buat event ini do onCreate Form

 

procedure TForm1.FormCreate(Sender: TObject);
var
  buttons:array [1..20] of Tbutton;
  i:integer;
begin
  for i:=1 to 20 do
    begin
      buttons[i]:=tbutton.create(self);
      buttons[i].parent:=self;
      buttons[i].left:=((i-1) mod 5) * buttons[i].width;
      buttons[i].top:=((i-1) div 5) * buttons[i].height;
      buttons[i].OnClick:=klik;
      buttons[i].tag:=i;
      buttons[i].caption:='Guess Me';
    end;
end;

 

Bagaimana dengan event onClicknya? Well, mari kita buat sebuah prosedur bernama “klik”, yang isinya hanya:

 

procedure TForm1.klik(Sender: TObject);
begin
  showmessage(inttostr((sender as tbutton).tag));
end;

 

Compile aplikasi anda, dan anda akan mengetahui button ke-berapa yang anda click. Selamat mencoba

Selamat Hari Raya Idul Fitri 1430 H

Segenap Kru dan Karyawan FICFORLIFE.com mengucapkan:

Selamat Hari Raya Idul Fitri 1430 H

Semoga kita bisa mengamalkan apa yang kita perlajari satu bulan ini untuk sebelas bulan berikutnya. Bagi yang mudik, selamat mudik. semoga selamat di perjalanan. Bahagia di kampung halaman. Juga Balik dengan dengan selamat.

Bagi yang liburan. Selamat Liburan. Semoga berbahagia. Bagi yang dirumah saja selamat menjadi orang mandiri :).

Flex : How To Create Bitmap From FileReference

Actually, this article has some kind of title, maybe it should be:

1. How to Convert ByteArray to Bitmap
2. How to preview Image from file browsed from FileReference browse() method

Why? Because it’s all related to Bitmap, Image and ByteArray. Here’s the story.

Problem & Discussion:

We want to browse a file from our local drive(s), it’s an image file. So, after we choose the Image, we want to preview it. But before going to far, we need to browse it first, here’s the code

var imageTypes:FileFilter = new FileFilter("Images (*.jpg, *.jpeg, *.gif, *.png)", "*.jpg; *.jpeg; *.gif; *.png");
var textTypes:FileFilter = new FileFilter("Text Files (*.txt, *.rtf)", "*.txt; *.rtf");
var allTypes:Array = new Array(imageTypes, textTypes);
var fileRef:FileReference = new FileReference();
fileRef.addEventListener(Event.SELECT, browseSelect);
fileRef.addEventListener(Event.COMPLETE, browseComplete);
var success:Boolean = fileRef.browse(allTypes);

let see, we had a browseSelect() method and browseComplete method().

Here’s the code for browseSelect() method, contain only a single line

function browseSelect(event:Event):void
{
    fileRef.load();
}

What happened after the load() method finished load the file? It will trigger the browseComplete() method, and what will we do there?

function browseComplete(event:Event):void
{
    var loader:Loader = new Loader();            
    loader.contentLoaderInfo.addEventListener
       (Event.COMPLETE,loaderCompleteHandler);
    loader.loadBytes(fileRef.data);

    function loaderCompleteHandler(event:Event):void{
        Alert.show("Complete");
        var loader:Loader = Loader(event.target.loader);;
        var bmp:Bitmap = Bitmap(loader.content);               
        mcPreview.removeChildAt(1);
        mcPreview.addChild(bmp);
    }
}

in the browseComplete() event, we need ask help from Loader class. Actually, we need it’s loadBytes() method. Don’t forget to give a listener to complete event if loadBytes() method completed.

After loadBytes() complete, loaderCompleteHandler() will triggered and as you can see, the “real” Bitmap itself stored in the “event.target.loader”. What i has done in the end of the line is add the Bitmap loaded into a Movie Clip. Getting error adding MovieClip into Flex? Here’s the solution:

var ui:UIComponent = new UIComponent();
ui.addChild(mcPreview);
panelKanan.addChild(ui);

Suppose your MovieClip are called “mcPreview” and you wanted to add it into a Panel. Before you add MovieClip into a Panel, please add your MovieClip into UIComponent first, and then add the UIComponent into Flex’s Panel. It will solve everything