改造・ｿｰｽとかのスレ

■改造・ｿｰｽとかのスレ

9:6 ◆INhAmMQjuM :2003/05/02 18:11 ID:???
勝手に改造しちゃったのをはってみるテストのまとめ
Susie Plug-in対応と簡単な画像調整

TSPIsとAlphaBitmap3をﾀﾞｳｿしてインストール

EditFormに
SPIs追加
スクロールバー(sbBright)追加。Min:=-255、Max:=255、LargeChange:=10
ラベル(lbBright)追加。Caption:=0
スクロールバー(sbThin)追加。Min:=0、Max:=255、LargeChange:=10
ラベル(lbThin)追加。Caption:=0
チェックボックス(cbMono)追加。Captionを'モノクロ'

uses
SPIBmp,{SPIs}//追加
ABitmap, ABitmapFilters32{AlphaBitmap}//追加

procedure cbMonoClick(Sender: TObject);//イベントハンドラ
procedure sbBrightChange(Sender: TObject);//イベントハンドラ
procedure sbThinChange(Sender: TObject);//イベントハンドラ
private
bmpSource: TBitmap;//元の画像のビットマップイメージ
procedure bmpClear();
procedure bmpReset();
procedure doRetouch(iBright: Integer; iThin: Integer; bMono: boolean);
public
destructor Destroy; override;

TEditForm.Create()で
bmpSource := TBitmap.Create;//追加

1:1- 2:▲ 3:新
4:前 5:書 6:次
7:写 8:▼ 9:板

Rainboard