いわゆるブラインド効果は、キャンバスをいくつかの領域に分割することです。各領域は
プログレッシブ モードでは、ブラインドを反転するのと同じようにグラフィックスを同時にコピーします。これがその 1 つです。
特殊効果を表示するプロセスの例:
まず、新しいプロジェクトを作成し、フォームに 2 つの IMAGE コントロールを追加し、
ビットマップ (*.bmp) を IMAGE1 の PICTURE 属性にインポートし、IMAGE1 を変更します
VISIBLE 属性を FALSE に設定します。
次に、コード ウィンドウで次のプロシージャを定義します。
手順 TForm1.fan;
var r1:トレクト;
リスト、r、すべて:整数;
始める
リスト:=1;
すべて:=trunc(screen.Height/10)+1;
While list<=every do
始める
for r:=0 to 10 do begin
r1:=rect(0,r*every,screen.Width,R*every+list);
image2.Canvas.CopyRect(r1,image1.Canvas,r1);
終わり;
アップデート;
Inc(リスト);
終わり;
終わり;
後でプログラム内の必要な場所で呼び出すことができます。
これがコード RECT(X1,Y1,X2,Y2) でどのように実装されるかを見てみましょう。
選択された長方形の範囲を表します。(X1, Y1) は長方形の左上隅の座標です。(X2, Y2) は長方形です。
右下隅の座標。グラフィック表示は COPYRECT(R1,CANVAS,R2) によって完了します。ここで、R1 は
ターゲット領域、R2 はコピーされた領域、CANVAS はコピーされたオブジェクト (
TBITMAP の例)。