Pendahuluan

Data Module menyediakan fasilitas untuk merangkum DataSet dan atau DataSource, beserta atributnya, event dan kode program dalam satu tempat. Data Module bisa saja berisi komponen non visual lain seperti TTimer, TSaveDialog, TPopUpMenu, dll. Tetapi secara umum kelas TDataModule digunakan untuk tujuan sebagai berikut:

1. Berbagi komponen untuk akses data dan kode programnya.

   Biasanya digunakan untuk meletakkan komponen akses data seperti TADOConnection, TADOTable, TADOQuery, TADOCommand, dan lainnya. Hal ini cocok jika kita membangun aplikasi yang mempunyai banyak form tapi mengakses satu provider database yang sama dan berulang-ulang.

2. Pengelolaan saat perancangan (Design time)secara visual.

   Pada saat merancang, kita dapat merancang hubungan antar komponen yang terdapat pada data module. Caranya cukup mudah, hanya click and drag suatu property dari komponen satu ke yang lain untuk menyatukannya.

3. Sentralisasi aturan transaksi

   Dalam file unit pada Data module programmer juga bisa menmpatkan beberapa aturan transaksi yang akan diterapkan pada aplikasi. Ini adalah kontrol yang mencegah data yang tidak valid masuk ke database dan meyakinkan bahwa data yang valid benar benar sesuai dengan database.

4. Perawatan kode program

   Data module juga membuat modifikasi kode program lebih mudah hanya dengan mengubah kode pada satu tempat daripada jika kita tempatkan pada tiap form – apalagi jika kita mempunyai fungsi database di data module atau jika kita membuat aplikasi dengan banyak form yang menangani tabel database dan atau queri yang sama.

Membuat Data Module (Delphi 7)

Untuk membuat data module saat merancang, pilih File | New | Data Module. Saat merancang, data module nampak seperti form standar dengan background warna putih. Pada saat dijalankan data module tidak tampak dan ada pada memori. Data module hanya mempunyai dua properti, yaitu Name dan Tag, dua event yaitu OnCreate dan OnDestroy.

Data module tidak terbatas hanya untuk komponen akses data, disana juga dapat kita letakkan komponen non-visuallain seperti TMainMenu, TTimer, TSaveDialog atau TPopUpMenu.

Letakkan beberapa komponen akses data misal TADOConnection, TADOTable, dan TDataSource pada form data module atau komponen non-visual lain yang akan digunakan oleh aplikasi.

Menghubungkan dengan Database menggunakan Data Diagram

Data Diagram yang terdapat pada Code Editor menyediakan tool secara visual untuk mengatur hubungan antar komponen non-visual (dan visual). Pada saat pertama kali membuka halaman Data Diagram, kita akan dihadapkan pada sebuah halaman kosong, kita bisa drag beberapa komponen dari Object TreeView dan kemudian menghubungkannya.

1. Drag komponen ADOConnection1, ADOTable1, dan DataSource1 dari ObjectTreeView ke halaman Data Diagram.
2. Klik kanan ADOConnection1 pilih Edit Connection untuk menentukan Database mana yang akan dihubungkan. Sesuaikan dengan provider database anda.
3. Setelah koneksi sukses, klik icon Property Connection pada halaman Data Diagram kemudian hubungkan ADOTable1 dan ADOConnection1 dengan meng-klik ADOTable1 kemudian drag ke ADOConnection. Jika berhasil akan ada garis penghubung diantara keduanya, hal ini berarti properti TADOTable1.Connection akan berisi ADOConnection1. Lanjutkan dengan menghubungkan DataSource dengan ADOTable1. Perhatikan gambar berikut!

   

4. Langkah selanjutnya menentukan tabel mana yang akan ditampikan nantinya. Aktifkan ADOTable1, kemudian pilih nama tabel pada field TableName melalui Object Inspector.
5. Selanjutnya pilih field yang terdapat tabel dengan meng-klik kanan simbol ADOTable1 pada Data Diagram, pilih Fields Editor. Akan muncul window baru untuk mengatur field-field yang akan ditampilkan. Klik kanan pada window tersebut dan pilih Add All Fields untuk menambahkan semua field yang ada pada tabel yang kita pilih tadi, atau kita bisa memilih Add Fields untuk menentukan sendiri field mana yang akan ditampilkan.

Menggunakan Data Module pada Aplikasi

Untuk membuat data module tersedia pada unit lain di aplikasi kita, pilih unit yang bersangkutan, kemudian pilih File|Use Unit untuk menambahkan data module pada klausa Uses unit kita. Jika kita menggunakan beberapa form yang merujuk pada data module yang sama, pastikan bahwa data module tereksekusi terlebih dahulu sebelum yang lain, jika tidak akan muncul error. Untuk itu kita bisa mengubah urutan Auto-Create Form dengan memilih Project|Options, dan memindahkan data module pada urutan teratas seperti gambar berikut.

Untuk menggunakan/mengoperasikan ADOTable1 yang berada pada data module dari form lain pada aplikasi kita kodenya kira-kira akan seperti berikut:

Selamat Mencoba!!!

Oke langsung saya mulai saja prancangannya.. pada search engine (saya ambil contoh Google)saat kita menuliskan keyword, lalu mulai proses searching kemudian muncul hasil – hasilnya maka di address bar browser kita akan muncul alamat tertentu..

Misal menuliskan keyword : “download mp3 gratis”(tanpa tanda petik)

Maka pada address bar akan tertulis :

http://www.google.co.id/search?hl=id&q=download+mp3+gratis&btnG=Telusuri+dengan+Google&meta=

nnah.. dari sini dapat di ketahui bahwa keyword yang kita masukan tadi karakter spasi nya diganti dengan karakter “+”… sudah dapat gambarannya kan???

Begini jelasnya

Input/ keyword : “download mp3 gratis”, maka output di address bar..

Output/address bar : download+mp3+gratis

Begitulah.. segini aje penjelasannya males ngetik.. hehe.. langsung aja listing programnya

/////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure TForm1.Button1Click(Sender: TObject);

var

Abody, Abody1 ,Abody2, front1, front2, replace,

back1, back2, Brow : String;

begin

replace := StringReplace(edit1.Text,' ','+',[rfreplaceall]);

front1 := 'www.google.co.id/search?hl=id&q=';

front2 := 'id.search.yahoo.com/search?p=';

back1 := '&btnG=Telusuri+dengan+Google&meta=';

back2 := '&sm=Semua+Web&fr=yfp-t-web&toggle=1&cop=&ei=UTF-8';

Abody1 := front1+replace+back1;

Abody2 := front2+replace+back2;

if radiogroup1.ItemIndex = 0 then brow := 'Firefox' else brow := 'IExplore';

if radiogroup2.ItemIndex = 0 then Abody := Abody1 else Abody := Abody2;

shellexecute(self.Handle,'open',pchar(brow),pchar(Abody),nil,sw_normal);

end;

///////////////////////////////////////////////////////////////////////////////////////////

Ni scrin sut nya

Karena Cuma program contoh ato iseng-iseng an, masih bnyak kekurangannya… hehe

Kalo mau download nih tak kasih link nya

search-engine1

jangan lupa ganti extensinya dari *.doc ke *.rar

terimakasih.. semoga barguna

Delphi sudah menyertakan fasilitas Intraweb semenjak dari versi 6 keatas, tetapi cukup jarang yang menggunakan fitur ini. Yap, kemungkinan karena jarang di otak-atik dan dilihat-lihat. hehe.. (maaf). Pada tutor kali ini, kita akan membuat sebuah aplikasi intraweb menggunakan Borland Delphi 2006 atau Turbo Delphi 2006 yang gratis..

Langkah awal:

1. Buat aplikasi intraweb baru dengan memilih menu File -> New -> Other, dan pada jendela New Items, pilih Delphi projects, dan terakhir pilih Intraweb. Selanjutnya sorot icon Intraweb Application Wizard.

2. Lalu tampil jendela Intraweb Application Wizard. Pada jendela ini pilih "StandAlone Application" pada Application Type, dan hilangkan tanda cek "Create User Session". Beri nama pada "Project Name" dengan nama : HelloWorld, klik tombol OK.

3. Aktifkan jendela IWForm2 pada aplikasi baru anda, dan ubah properti Name menjadi IWIndex, dan ubah title menjadi "Hello World Intraweb Delphi".
4. Lebarkan pallete IW Standard pada jendela Tool Pallete di IDE Delphi. Letakkan komponen IWLabel1 dan IWButton1 pada form IWindex.

5. Ubah properti caption IWLabel1 menjadi "Tekan Tombol Proses Di bawah ini.", lalu ubah properti Font - Font Family menjadi "Arial, Sans-Serif, Verdana", dan ubah properti caption IWButton1 menjadi "Proses".
6. Ubah properti BGColor dari IWIndex menjadi clWebBISQUE. Atur seperti tampilan berikut ini:

7. Klik ganda pada IWButton1, dan ketikkan kode seperti berikut ini:

procedure TIWIndex.IWButton1Click(Sender: TObject);
begin
  WebApplication.ShowMessage('Hallo Dunia, Selamat Datang di Websiteku');
end;

8. Kemudian jalankan aplikasi anda.
9. Lalu, anda melihat sebuah tampilan dialog HelloWorld Server, yang artinya, server intraweb anda sudah berhasil dijalankan.

10. Untuk melihat hasilnya, buka web browser anda (misal: Internet Explorer 7), dan ketikkan pada browser anda : http://127.0.0.1:8888/ dan tekan tombol GO, dan berikut ini adalah hasil dari aplikasi yang baru saja anda buat.

Selamat Mencoba

Assalamu'alaikum Wr.Wb

Created by : 2008, Dedy Gunanto

Bagi anda yang pemula dalam menggunakan komponen TListView mungkin agak kebingungan dalam menggunakan komponen ini, hal ini juga pernah saya alami sendiri. Dulu saya bingung untuk apa sih komponen ini? Akhirnya saya mengetahui bagaimana cara penggunaannya. Yah, terkadang kita butuh untuk menampilkan data dalam bentuk baris, icon atau sebagainya. Berikut ini cara mempergunakannya:

Tampilan TListView

ListView memiliki empat buah tipe tampilan, yaitu: vsIcon, vsSmallIcon, vsList, dan vsReport. Berikut cara untuk mengubah tampilan TListView dari kode delphi, misalnya:

ListView1.ViewStyle := vsReport;

Menambah Item Baru Pada ListView

Cara untuk menambah baris / item baru menggunakan kode program adalah sebagai berikut:

var
   ItemBaru : TListItem;
begin
   ItemBaru : ListView1.Items.Add;
   ItemBaru.Caption := 'Delphi';
   ItemBaru.SubItems.Add('Borland');
end;

Nah, untuk jelasnya, buat sebuah aplikasi baru. Tambahkan komponen TRadioGroup1 dan isikan pada items-nya: vsIcon, vsList, vsReport, dan vsSmallIcon. Tambahkan dua buah TEdit, satu buah TButton, dan sebuah TImageList. Terakhir tambahkan sebuah komponen TListView pada form, dan atur seperti tampilan berikut ini:

Berikut adalah skrip program selengkapnya:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ImgList;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    ImageList1: TImageList;
    procedure Button1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  BarisBaru : TListItem;
begin
  // menambahkan baris baru
  BarisBaru := ListView1.Items.Add;
  BarisBaru.Caption := Edit1.Text;
  BarisBaru.SubItems.Add(Edit2.Text);

  // membersihkan TEdit
  Edit1.Text := '';
  Edit2.Text := '';
  Edit1.SetFocus;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: ListView1.ViewStyle := vsIcon;
    1: ListView1.ViewStyle := vsList;
    2: ListView1.ViewStyle := vsReport;
    3: ListView1.ViewStyle := vsSmallIcon;
  end;
end;

end.

Dan ini adalah tampilan hasil dari program di atas:

Moga bermanfaat :-)

Wassalamu'alaikum

Created by : 2008, Dedy Gunanto

Entre os pontos negativos foi a constatação de que pouquíssimas pessoas no Brasil apóiam financeiramente o desenvolvimento do FB, apesar de ser uns dos países que mais o utiliza. Também achei falha da Codegear de não aproveitar a oportunidade e estar presente efetivamente para tirar dúvidas sobre as suas recentes mundanças e dar uma prévia da próxima versão do Delphi. Digo isso pois grande parte dos desenvolvedores que usam o FB, utilizam o Delphi como linguagem de programação.

O evento mostrou que o FB está em constante evolução e no rumo certo. Sem dúvida seus usuários aguardam com ansiedade as próximas versões.

Parabéns aos palestrantes e aos que organizaram o evento, principalmente ao Carlos Cantu.

El tema técnico que se desarrollará en la reunión todavía está discutiéndose en este hilo del Club Delphi, así que si tu próximo desarrollo tiene algún reto al que no sabes como entrarle o que te gustaría compartir, todavía es tiempo para que hagas tu propuesta.

Por ahora, los temas que están sobre la mesa son

• Web Services
• Desarrollo de aplicaciones multi-hilos
• Programación de aplicaciones TCP/IP sobre internet/intranet con INDY
• Desarrollo de aplicaciones usando paquetes dinámicos
• xml contra Sql Server u oracle

Se elegirá uno (el que mas "votos" alcance) y se hará una presentación teórica/práctica sobre el mismo.

Los datos de reunión son

Día: Lunes 28 de Julio de 2008
Hora: 6:00 PM
Lugar: Vips Insurgentes/Reforma (ver mapa)
Calle Hamburgo No. 126
Col. Juárez, Cuauhtémoc C.P. 06600

Por allá nos vemos :)

A partir do evento comecei a pensar? Sobre o quê escrever? Pensei em escrever sobre marketing e só de pensar me deu arrepio (Estou de saco cheio de escrever sobre marketing). Pensei em escrever sobre o meu mais do que profundo mau humor (acredito ser o único homem com TPM na face da terra) e desisti, nem eu tenho saco para ler minhas reclamações.

Após um longo período de reflexão, 5 minutos, resolvi escrever algo relativo sobre a minha maior dificuldade no universo da tecnologia - entender o que é dito. Já tentei entender meu chefe, meus parceiros, mas parece-me que quanto mais estudo, menos compreendo.

Há quatro meses faço um treinamento no SENAC TI de Lógica de programação e Pascal - Dùvida número um -  (e estamos na última semana). Mesmo lá, sentado, às vezes escuto algo que me deixa com ar de: "Ai, sou burro". Mas garanto que 99% da sala, mesmo aqueles que fazem cara de inteligentes (Será que tem alguém assim na minha sala????), não conseguem entender o professor de pronto.

Parece-me que o vocabulário técnico (e do técnico) se transforma em uma sopa de letrinhas, com muitos números e siglas.

Outro dia escutei meu professor dizer: O "IDE" (dúvida número dois) do Netbeans (Dúvida número três). Para quem é desenvolvedor, esse significado é muito simples, mas para alguém que não é da área o entendimento fica complicado.

Portanto, é isso que pretendo com o site, ou seja, escrever de uma maneira fácil e bem humorada sobre as minhas dúvidas e dificuldades do dia-a-dia como Gerente de Marketing em uma empresa de tecnologia.

Para facilitar minha vida, e para não perder o foco do post, posso deixar para apresentar a tradução de uma pavra ou texto no final do próprio Post. A esses comentários finais darei o nome de "Ãh?" ou seja, no meu entendimento é bem provável que você não tenha entendido lhufas, porque eu também não entendi, e colocarei esse significado após a transcrição do texto (que no caso desse "post" é a informação mais importante).

Então, vamos começar com a nossa primeira transcrição. Nunca se esqueça: ãh? significa que acontecerá uma tradução, ok?

Ãh?

1 - PASCAL

Linguagem para computadores muito usada no início da era tecnológica, mas que deu espaço a outras linguagens mais atuais como o JAVA, Delphi, C++. Seu código rola muito bem em um compilador chamado Turbo Pascal, desenvolvido pela Borland. Para quem pretende aprender a programar, sugiro que inicie seus estudos realizando alguns exercícios de lógica de programação e em seguinda, fazendo o Download da apostila do Turbo Pascal no http://www.apostilando.com

2 - IDE - Sigla para "Interface de desenvolvimento". Software utilizado para compilar os códigos. No caso do Pascal, o software utilizado é o Turbo Pascal. No java, é usado o software Netbeans ou o Eclipse.

3 - Netbeans - IDE (Interface de desenvolvimento - IDE - Java).

Ah, antes que eu me esqueça. Quem quiser conferir a palestra sobre blog, pode fazer sua inscrição pelo www.lossio.com.br . 

Bem, acho que era só isso mesmo.

Nos próximos posts vou colocar um achado: Curso de PHP Gratuíto pela web.

Obrigado pela visita e volte sempre.

Cádiz y su bahía es una comarca en la que se ha cebado sobremanera el paro industrial, en parte por la deslocalización, en parte por la competencia de empresas que, dentro del mismo sector (sobre todo el naval), abarataron precios al amparo de una mano de obra poco cualificada y carente de derechos laborales como los reconocidos en nuestro entorno.

El hecho de que una empresa como Delphi, filial de General Motors, abandone un país para establecerse en otro en base a unos menores costos laborales, es un ejemplo de como una economía globalizada, puede llegar a mostrar la cara más agria del capitalismo salvaje, toda vez que ese traslado se hace en base a unos niveles de respeto de derechos de los trabajadores no asumibles por países como España.

Hoy me alegro de la decisión que ha tomado la Comisión Europea de otorgar una ayuda de 10,5 millones de euros para la recolocación de los antiguos empleados de Delphi, tratados como mercancía por la multinacional, que los dejó en un desamparo absoluto del que van logrando salir gracias a las instituciones, si bien dicha ayuda tiene que pasar un último filtro, cual es la aprobación de la misma por la eurocámara.

Si antes fueron los astilleros y hoy se puede decir que su actividad y negocio gozan de bastante buena salud, espero que pronto podamos decir que los trabajadores de Delphi han vuelto a encontrar la estabilidad laboral y personal que necesitan para sobrevivir en condiciones de dignidad.

Conste una cosa, los fondos que se recibirán, nada tienen que ver con balanzas fiscales y a alguna de las comunidades que tanto protestan por lo que aportan, les proponía yo la prueba de soportar un 27% de paro, como tuvo Cádiz en su momento (por suerte hoy no, aunque si es superior a casi todas las provincias españolas) y, aun así, seguir sufriendo autopistas de peaje, cercanías tercermundistas, el principal puerto de España (Algeciras) sin conexión de ferrocarril y, encima, tomárselo con buen humor, eso es sufrir y no lo de las cercanías de Barcelona.

Dalam paradigma berorientasi objek, penggunaan variabel state (dan penggunaan analisa kasus jamak (case of/if-then)) bisa jauh dikurangi. Jadinya penasaran untuk membuat komponen kecil dalam delphi untuk menangani pendelegasian penanganan mouse event.

(* file : MouseEventHandler.pas
    auth: Peb Ruswono Aryan
*)
unit MouseEventHandler;

interface

uses
  SysUtils, Classes, Controls;

type
  TMouseEventHandler = class(TComponent)
  protected
    { Protected declarations }
    FButtonDown : boolean;
    FOnMouseDown : TMouseEvent;
    FOnMouseUp : TMouseEvent;
    FOnMouseMove : TMouseMoveEvent;
  published
    { Published declarations }
    property BtnDown : boolean read FButtonDown write FButtonDown;
    property OnMouseMove : TMouseMoveEvent read FOnMouseMove write FOnMouseMove;
    property OnMouseDown : TMouseEvent read FOnMouseDown write FOnMouseDown;
    property OnMouseUp : TMouseEvent read FOnMouseUp write FOnMouseUp;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMouseEventHandler]);
end;

end.

Alasan kelas ini dijadikan turunan komponen VCL (TComponent) adalah supaya inisialisasinya tidak perlu ditempatkan di penangan event onCreate tapi bisa disimpan di deskripsi form (.dfm).

object SelMouseHandler: TMouseEventHandler
    OnMouseMove = SelMouseMove
    OnMouseDown = SelMouseDown
    OnMouseUp = SelMouseUp
    Left = 296
    Top = 36
end

Mengeksekusi perintah SQL :

[sourcecode language='delphi']

procedure RunSQL(sSQL : String);
var
qrySQL : TADOQuery;
begin
try
qrySQL := TADOQuery.Create(Application);
qrySQL.Connection := adoConnection;
qrySQL.SQL.Clear;
qrySQL.SQL.Text := sSQL;
qrySQL.ExecSQL;
finally
qrySQL.Free;
end;
end;

[/sourcecode]

Mendapatkan record :

[sourcecode language='delphi']

Procedure GetRecords(var qryField : TADOQuery; sSQL : String; LockType : TADOLockType = ltReadOnly);
begin
if qryField = Nil then begin
qryField := TADOQuery.Create(Application);
qryField.CursorType := ctOpenForwardOnly;
qryField.Connection := adoConnection;
end;

qryField.Close;
qryField.LockType := LockType;
qryField.SQL.Clear;
qryField.SQL.Add(sSQL);
qryField.Open;
end;

[/sourcecode]

Contoh pemakaian RunSQL :

[sourcecode language='delphi']

var
sSQL : String;
begin
sSQL := 'insert into TB_Log (UserId,UserName) values ("My User Id","My User Name")';
RunSQL(sSQL);

[/sourcecode]

Contoh pemakaian GetRecord:

[sourcecode language='delphi']

var
qrySetup : TADOQuery;
begin
GetRecords(qrySetup,'select * from TB_Setup',ltOptimistic);

if qrySetup['IsRegistered'] then begin
ShowMessage('Your are a Registered user')
else
ShowMessage('Your are NOT a Registered user');

//jangan lupa untuk free
qrySetup .Free;

...............................................................................

//contoh pemakaian lainnya

...............................................................................
var
qryUsers : TADOQuery;
begin
GetRecords(qryUsers,'select * from TB_Users',ltOptimistic);

while NOT qryUsers.Eof do begin
if qryUsers['UserName'] = 'Ridwan' then
ShowMessage('It's me!!!');

qryUsers.Next;
end;

qryUsers.Free;

[/sourcecode]

Memang sederhana, namun sangat berguna dalam situasi tertentu.

First things first: unit tests. Before you start to write a program, think about testing. Download DUnit if it is not already included in your version of Delphi. DUnit is Open Source. There are also add ons available for DUnit, for example the OpenCTF component test framework. If you are new to the idea of unit testing and DUnit, you should read this article. The Wikipedia also contains information about Test Driven Development.

Speed

Now it's time to "turbo charge" your IDE with DelphiSpeedUp, a free plugin for Delphi/BCB/BDS/CodeGear RAD Studio. It speeds up the time to load the IDE and it also improves the whole speed of the IDE. Note that it does not improve the speed of compiled applications - but you can skip to the section More Speed below if this issue is very urgent.

Comfort

Next in the list are the GExperts, an almost incredible set of tools built to increase the productivity of Delphi and C++Builder programmers by adding several features to the IDE. GExperts is Open Source and supports all editions of Delphi down to version 3. It offers a procedure list, grep search, to do lists, tab order and component replace wizards and many many more.

Note: some IDE extensions are also included in the Jedi Code Library package. For example, they can add a favorite folders combo box to the Delphi Open File dialog. So if you use the JCL, don't miss these extra goodies.

Style

Waste no time to format your source code manually - use DelForExp, a freeware Pascal source code formatter for Delphi 2/3/4/5/6/7/9/2007 written by Egbert van Nes. At default, the style of the Borland source code is followed closely.

More Speed

Your Delphi applications need more speed? One of the first things you can do (besides checking the code for the usual performance bottlenecks), is to use a faster memory manager.  Newer versions of Delphi use FastMM4 by default, a lightning fast replacement memory manager for Borland Delphi Win32 applications. For older versions of Delphi, you can download it from SourceForge. FastMM4 is very easy to use and can also help to identify memory leaks.

Safety First

In the software development circus, source version control is your safety net. If you do not have a preferred version control system, try the open source version control system Subversion. A Windows Explorer integration for Subversion, TortoiseSVN, is also available. It includes many useful tools, including a diff and merge application.

Estou programando usando Delphi Pascal e aqui algumas dicas para os leitores:

1-Tutorial de GLScene (bilbioteca gráfica 3d- free):

http://www.lordzero.co.nr/files/GLScene-Tutorial01.pdf
http://www.lordzero.co.nr/files/GLScene-Tutorial02.pdf
http://www.lordzero.co.nr/files/GLScene-Tutorial03.pdf

2-Para reduzir drasticamente o flicker (piscada) no Delphi quando fizer animações usando GDI:

no evento oncreate do Form, use: doublebuffered:=true; 

3-Para inverter rapidamente uma imagem na horizontal use:

Procedure Flip1Click(Sender: TObject);

Var
   DummyImage          : TImage;
   X,Y                 : Integer;
   SrcRect,DstRect     : TRect;

Begin
//coloque a imagem no componente  imagem1
X := Image1.Picture.Width;
Y := Image1.Picture.Height;
SrcRect := Rect(0,0,X,Y);
DstRect := Rect(X,0,0,Y);
//aqui o truque!
DummyImage := TImage.Create(Self);
DummyImage.Width := X;
DummyImage.Height := Y;
//DummyImage.Canvas.CopyMode := cmSrcCopy
DummyImage.Canvas.CopyRect(DstRect,Image1.Canvas,SrcRect);
//inverte  a imagem
Image1.Picture := DummyImage.Picture;
//copia a imagem de volta
DummyImage.Free;
//libera o espaço do dummy
End;

 4-Saber qual o código ASCII de uma tecla:

{ - Crie um Label no Form (Label1);
  - Mude a propriedade KeyPreview do form para true;
  - Insira o código abaixo no evento OnKeyDown do Form  }

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Label1.Caption := Format('O código da tecla : %d', [Key]);
end;

5-Tabela com códigos das teclas no Delphi , você pode achar neste endereço:

http://delphi.about.com/od/objectpascalide/l/blvkc.htm

Mais dicas em breve..

http://docs.codegear.com/docs/radstudio/radstudio2007/RS2007_helpupdates/HUpdate4/EN/html/devcommon/contents.html

http://docs.codegear.com/

1. Pada IDE delphi (Sample pake 2006 ) menu Component :. New VCL Component
2. Pilih TCustomListview klik next kemudian kasih nama component baru TLVGroup
3. Install ntar aja .. langsung pilih create unit hasilnya :


unit LVGroup;

interface

uses
Windows, SysUtils, Classes, Controls, ComCtrls, commctrl;

Type
TLVGroup = class(TCustomListView)
public
published
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('heruX', [TLVGroup]);
end;
end.

Tambahkan constanta untuk listview message

const
LVM_ENABLEGROUPVIEW = LVM_FIRST + 157; // Nilai message utk enable/ disable
LVM_INSERTGROUP = LVM_FIRST + 145; //
LVIF_GROUPID = $0100;
LVGF_HEADER = $00000001;
LVGF_ALIGN = $00000008;
LVGF_GROUPID = $00000010;
LVGA_HEADER_LEFT = $00000001;
LVGA_HEADER_CENTER = $00000002;
LVGA_HEADER_RIGHT = $00000004;

kemudian tambahkan pada seciton Type record seperti ini

type
TLVG = record
cbSize: UINT;
mask: UINT;
pszHeader: LPWSTR;
cchHeader: Integer;
pszFooter: LPWSTR;
cchFooter: Integer;
iGroupIdL: Integer;
stateMask: UINT;
state: UINT;
uAlign: UINT;
end;


Sebelumnya tambahkan unit commctrls yah ..
nah sekarang tinggal kita tambahkan method pada section public ato kalo mo jadiin property juga boleh.


public
function IsLVGrouped(Yup: Boolean): Boolean;
procedure MakeGroup(GroupName: PWidechar; GroupID: Integer);

dan ..


function TLVGroup.IsLVGrouped(Yup: Boolean): Boolean;
begin
if Yup = True
then begin
SendMessage(Handle, LVM_ENABLEGROUPVIEW, 1, 0);
Result := true;
end else begin
Result := false;
SendMessage(Handle, LVM_ENABLEGROUPVIEW, 0, 0);
end;
end;

procedure TLVGroup.MakeGroup(GroupName: PWidechar; GroupID: Integer);
var
LvGroup: TLVG;
begin
FillChar(LvGroup, SizeOf(TLVG), 0);
with LvGroup do
begin
cbSize := SizeOf(TLVG);
mask := LVGF_HEADER or LVGF_ALIGN or LVGF_GROUPID;
pszHeader := GroupName;
cchHeader := Length(LvGroup.pszHeader);
iGroupIdL := GroupID;
uAlign := LVGA_HEADER_LEFT;
end;
SendMessage(Handle, LVM_INSERTGROUP, GroupID, Longint(@LvGroup));
end;

dan listing lengkap nya adalah ...


Wah ... gabungin sendiri aja yah?? bisa khan.. males nih kalo kepanjangan!!!


udah gitu ajah. eh..lupa kalo hasilnya ga sesuai perkiraan tambahin komponen XPMan yah ..
ini khan buat xp ajah !!
property TCustomListView di published juga yah .. bisa donk ??!!

Oh, I've been lost
I cut my heart on beauties so sharp
thought the bleeding would never stop
but that wasn't me
it was another and she
thought she had to walk to the fire to breathe

Eventually
a pattern emerged
cycles of three, cycles of three
and nine wild trees
circle the moon inside me
when we bleed, when we bleed

Cause girls
they wanna draw blood
should you rise above
your body, your sex, and your selfish love
we spend so much time
drawing our lines
we forget that the lines draw us sometimes

So Mother of my mind,
take this life
do what you will
I'm your stone on the hill
a part of the sea
I'll always be
but this is so much bigger than me
this sea is so much greater than me

Once I had a dream
I was on a cliff of ebony
playing this song on a black piano
water flowed round my feet
then dropped of the steep
into so many stars your heart would weep
I wasn't asleep
I wasn't asleep

that dream came true
when I looked at you
saw you knew things I thought
only I knew
so we flew away....

singing,
Take this life
and do what you will
I'm your stone on the hill,
I'm your stone on the hill.
A part of the sea
we'll always be
and the sea is so much bigger
than you or me
the sea is so much greater
than I'll ever be

Chris Bensen: Tiburón Sneak Peek

http://chrisbensen.blogspot.com/search/label/peek

Allen Bauer: Tiburón - String Theory

http://blogs.codegear.com/abauer/2008/07/16/38864/

Allen Bauer: DPL & Unicode - a toss up

http://blogs.codegear.com/abauer/2008/01/09/38845

Chris Hesik: Tiburon Preview: Vista Wait Chain Traversal

http://blogs.codegear.com/chrishesik/2008/07/21/34833

Steve Shaugnessy: Tiburón DataSnap Enhancements

http://blogs.codegear.com/steveshaughnessy/2008/07/20/38912/

David Intersimone: Unicode database support in Tiburón for Delphi and C++

http://blogs.codegear.com/davidi/2008/07/15/38895

Anda mungkin ingin aplikasi database anda menjadi lebih cantik dan penuh fitur untuk memudahkan pengguna aplikasi yang nantinya anda buat. Karena procedure untuk mengurutkan data beradasarkan TitleClick dengan Zeos belum ada, maka penulis mencari cara untuk mengurutkan data dengan DBGrid serta zeos. Hmm, akhirnya berhasil juga....  Silakan anda mencobanya.

Tips berikut ini dibutuhkan sebuah komponen database Zeoslib, penulis menggunakan Zeos versi 6.6.2RC, TDBGrid, TZConnection, TZQuery, dan TStatusBar. Perlu anda perhatikan, di sini, anda perlu membuat sebuah unit atau bisa anda tempelkan pada unit form anda (anda bisa memilih sendiri yang anda butuhkan), yaitu:

procedure CursorTitle.. dan procedure SortColumn.

Perhatian!
Anda harus menginstall terlebih dahulu komponen ZeosLib

Rancanglah sebuah form seperti tampilan berikut ini:

Untuk jelasnya, lihat procedure berikut ini:

procedure CursorTitle(Sender: TObject; PosisiMouse: TGridCoord; X,Y : integer);
var
  sCap : string;
begin
  PosisiMouse := (Sender as TDBGrid).MouseCoord(X,Y);
  if PosisiMouse.Y = 0 then
  begin
    if PosisiMouse.X > 0 then
    begin
      sCap := (Sender as TDBGrid).Columns[PosisiMouse.X-1].Title.Caption;
      if (Pos('« ', sCap) = 1) then Delete(sCap,1,2);
      if (Pos('» ', sCap) = 1) then Delete(sCap,1,2);
      (Sender as TDBGrid).Hint := 'Klik di sini untuk mengurutkan data berdasarkan '
                                + '''' + sCap + '''';
    end else
      (Sender as TDBGrid).Hint := '';
    (Sender as TDBGrid).Cursor := crHandPoint;
  end else
  begin
    (Sender as TDBGrid).Hint := '';
    (Sender as TDBGrid).Cursor := crDefault;
  end;
end;

procedure SortColumn(myGrid: TDBGrid; myQuery: TZQuery; Column: TColumn;
          var PreviousColumnIndex : integer);
var
  sCap : string;
begin
  myQuery.DisableControls;
  try
    if PreviousColumnIndex > -1 then
    begin
      sCap := myGrid.Columns[PreviousColumnIndex].Title.Caption;
      if (Pos('« ', sCap) = 1) then Delete(sCap,1,2);
      if (Pos('» ', sCap) = 1) then Delete(sCap,1,2);
      myGrid.Columns[PreviousColumnIndex].Title.Caption := sCap;
      myGrid.Columns[PreviousColumnIndex].Title.Font.Color := clWindowText;
      myGrid.Columns[PreviousColumnIndex].Title.Font.Style :=
      myGrid.Columns[PreviousColumnIndex].Title.Font.Style - [fsBold];
      myGrid.Columns[PreviousColumnIndex].Font.Color := clWindowText;
      Column.Font.Color := clWindowText;
    end;

    PreviousColumnIndex := Column.Index;

    with myQuery do
    begin
      if SortType = stAscending then
      begin
        SortedFields := Column.Field.FieldName;
        SortType := stDescending;
        Column.Title.Caption := '» ' + Column.Title.Caption;
      end else
      begin
        SortedFields := Column.Field.FieldName;
        SortType := stAscending;
        Column.Title.Caption := '« ' + Column.Title.Caption;
      end;
    end;
    myGrid.Columns[PreviousColumnIndex].Title.Font.Color := clBlue;
    myGrid.Columns[PreviousColumnIndex].Title.Font.Style := [fsBold];
    myGrid.Columns[PreviousColumnIndex].Font.Color := clGreen;
  finally
    myQuery.EnableControls;
  end;
end;

Cara penggunaan procedure di atas, yaitu:

Tambahkan di var, contoh (kode tambahan berwarna biru):

var
  Form1 : TForm1;
  KolomSebelumnya : integer = -1;

...

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var pt : TGridCoord;
begin
  CursorTitle(Sender, pt, X, Y);
end;
procedure TfrmGridBuku.DBGrid1TitleClick(Column: TColumn);
begin
  SortColumn(DBGrid1, ZQuery1, Column, KolomSebelumnya);
end;

Berikut ini adalah hasilnya:

Catatan:
Sebagai kode etik dalam dunia pemrograman, jika anda menggunakan kode program dari programmer lain, maka anda harus mencantumkan nama pembuat source code tersebut dalam credit aplikasi anda. Terima kasih.

Wassalamu'alaikum

Dibuat oleh : Dedy Gunanto, 2008.

Después de poco mas de dos semanas de haber cerrado con éxito dicha transacción, la gente desde dentro comenzó a hablar de Tiburon. Y no de manera aislada... hay muchos que están hablando de la siguiente versión de Delphi, la 2009. (¿no era 2008?)

Esto es un signo inconfundible de que el lanzamiento está en puerta. Aún cuando el nombre será seguramente Embarcadero Delphi 2009 -2009 por razones de mercadeo- quiero pensar que ocurrirá a entre septiembre y noviembre de este año.

Por ahora, aunque me gustaría, no hablaré de ningún tema en particular, pero lo haré una vez esté de regreso en Guatemala. Les debo algunas crónicas del viaje, que aún no termina, ya me daré el tiempo de escribir sobre eso. Por ahora, si te interesa el tema, Jhonny ha hecho una pequeña lista de las cosas que se hablan en su también rápida revisión de la semana.

Upload y Post by Falcks

Obs: Mlk, se tu mexer nos meus posts vamos ter problemas Ok?
Res: uaHUAHUAHUAUA,eu mecho quando quero o blog é meu. ^^