phi3A`s Digital Notes

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong( Handle,GWL_STYLE,
     GetWindowLong( Handle, GWL_STYLE )
     and not WS_CAPTION ) ;
ClientHeight := Height-50;
end;

Kode ini berfungsi untuk menambahkan background pada MDI Form.
Thx to Delphindo@yahoogroups.com
Dalam kode aslinya, background berupa file BMP.
Kode ini dikembangkan untuk background yang berupa *.JPG.
Juga utk menampilkan login form pada running awal aplikasi MDI.

=============================================

Unit Unit1

interface

uses JPEG,ExtCtrls; // Adding Unit For TJPEGImage & TImage

type
   TForm1 = class (TForm)
    MainMenu1: TMainMenu;
    Logout1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
      FirstLoad:boolean;
      FDefProc: Pointer;
      procedure ClientProc( var M: TMessage );
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

uses UnitLogin;

{$R *.DFM}

procedure TForm1.ClientProc(var M: TMessage);
var jpg: TJPEGImage;
    img: TImage;
Begin
  if (M.Msg = WM_ERASEBKGND) then
  begin
  jpg:=TJPEGImage.Create;
  img:=TImage.Create(nil);
   try
    jpg.LoadFromFile(’..\pic\mPit.jpg’); // load gambar jpg
    img.Height:=jpg.Height;
    img.Width:=jpg.Width;
    img.Picture.Bitmap.Assign(jpg);
    StretchBlt(
        m.WParam,0,0,Width,Height,
        img.canvas.handle,0,0,
        img.Width,
        img.Height,
        SRCCOPY);
    finally
     jpg.free;
     img.free;
    end;
   end
   else
   m.Result := CallwindowProc(FdefProc,ClientHandle,M.Msg,M.wParam,m.lParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
var proc: TFarProc;
begin
  proc := MakeObjectInstance(ClientProc);
  FDefProc := pointer(SetWindowLong(ClientHandle,GWL_WNDPROC,Longint(proc)));
  FirstLoad:=true;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
If FirstLoad then
   begin
   FormLogin.ShowModal;
   FirstLoad:=false;
   end;
end;

procedure TForm1.Logout1Click(Sender: TObject);
var i:integer;
begin
for I := MDIChildCount-1 downto 0 do MDIChildren[I].Close;
FormLogin.ShowModal;
end;

end.

DONAT

Bahan :
1 kg Terigu
12 gr Ragi instan
400 ml Air
120 gr Gula
10 gr Garam
60 gr Margarin
50 gr Mentega
125 ml SUsu Cair
5 btr Kuning Telur
3 gr Baking Powder
50 gr Susu bubuk full cream

Toping :
100 gr Keju
100 gr Meses
150 gr Chocolate coating

Butter Cream :
175 gr Shortening putih
125 gr Gula
35 gr Susu kental manis
1 sdm Rum

Cara Membuat:

1. Campur semua bahan kering. Masukkan kuning telur, susu cair, sebagian air, dan aduk pelan hingga adonan menyatu
2. Masukkan mentega dan margarin, terus aduk dengan kecepatan dinaikkan hingga adonan kalis.
3. Angkat dari mixer. Istirahatkan sekitar 10 menit.
4. Potong dan timbang sesuai ukuran kurang lebih 70 gr, dan bulatkan
5. Lubangi bagian tengah; istirahatkan sampai mengembang 1 jam. Sementara itu, panaskan minyak goreng.
6. Goreng dengan api sedang selama 2 menit hingga matang.
7. Angkat dan tiriskan.

PANDAN CHIFFON CAKE

Bahan :
160 ml Minyak Sayur
8 btr Kuning telur
240 ml Air
Vanili bubuk secukupnya
400 gr Terigu
400 gr gula pasir
16 gr Baking Powder
5 gr Garam
15 gr Cake Emulsifier
8 btr Putih Telur
1/2 sdt cream of tartar

Cara membuat :

1. Siapkan loyang chiffon, tanpa olesan.
2. Kocok kuning telur dalam mangkuk plastik, tambahkan minyak sayur sedikit demi sedikit hingga adonan kental.
3. Campur air, garam, pandan pasta, 1/3 bagian gula pasir dan vanili aduk rata.
4. Campur terigu dan baking powder.
5. Kocok campuran air, kocokan kuning telur dan campuran terigu beserta cake emulsifier dengan mixer kecepatan tinggi hingga kental
6. Kocok putih telur, cream of tartar dan sisa gula pasir dengan mixer kecepatan tinggi hingga kental
7. Masukkan secara perlahan kocokan putih telur ke dalam kocokan kuning telur, terigu dan air. Aduk rata.
8. Tuangkan ke loyang chiffon, panggang dalam oven bersuhu 190 hingga 200 derajat celcius selama 40 menit atau hingga matang
9. Angkat, balik tunggu hingga dingin, atau hingga cake keluar sendiri dari cetakan
Potong-potong sesuai selera, sajikan

===============

Sumber : Potongan koran Jawa Pos