TBuinPicFilters の解説
TOP
関数一覧
| 関数名 |
種類 |
| Monochrome |
白黒フィルタ |
| Sepia |
セピアフィルタ |
| Mosaic |
モザイクフィルタ |
| ColorRevison |
色強調フィルタ |
| Nega |
ネガフィルタ |
| Bright |
明るさ調整フィルタ |
| Contrast |
コントラスト調整フィルタ |
| Blur |
ぼかしフィルタ |
| Solarization |
ソラリゼーションフィルタ |
| Postlarization |
ポスタリゼーションフィルタ |
| ChannelExchange |
チャンネル交換フィルタ |
|
| RotateMirror |
ミラー反転 |
| RotateTopBottom |
上下反転 |
| Rotate90Right |
右９０°回転 |
| Rotate90Left |
左９０°回転 |
|
| OnProgress |
経過表示用イベント |
|
|
|
|
コンポーネントの使い方
TBuinPicFiltersは非ビジュアルコンポーネントです。
自分でインクルード・生成・開放・定義をする必要があります。
Create / Free の例
var PicFilter:TBuinPicFilters;
begin
PicFilter:=TBuinPicFilters.Create;
・・・・・
PicFilter.Free;
end;
OnProgress の例
procedure TForm1.OnProgressEvent(iPosition:Integer;iAll:Integer);
begin
StatusBar.Panels[3].Text:=Format('画像の処理中... %d％',[(iPosition+1)*100
div iAll]);
StatusBar.Update;
end;
・・・・
var PicFilter:TBuinPicFilters;
begin
PicFilter:=TBuinPicFilters.Create;
PicFilter.OnProgress:=OnProgressEvent;
・・・・
PicFilter.Free;
end;
関数解説
Monochrome(BMP:TBitmap):Boolean;
Sepia(BMP:TBitmap;Color:TColor):Boolean;
Mosaic(BMP:TBitmap;iW,iH:Integer):Boolean;
ColorRevison(BMP:TBitmap;Color:TColor):Boolean;
Nega(BMP:TBitmap):Boolean;
Bright(BMP:TBitmap;iPower:SmallInt):Boolean;
Contrast(BMP:TBitmap;iPower:Integer):Boolean;
Blur(BMP:TBitmap;iPower:SmallInt):Boolean;
Solarization(BMP:TBitmap;iCh:Byte;iPower:Integer):Boolean;
Postlarization(BMP:TBitmap;iCh,iPower:Integer):Boolean;
ChannelExchange(BMP:TBitmap;iIn,iOut:Byte;bNot,bTrade:Boolean):Boolean;
RotateMirror(BMP:TBitmap):Boolean;
RotateTopBottom(BMP:TBitmap):Boolean;
Rotate90Right(BMP:TBitmap):Boolean;
Rotate90Left(BMP:TBitmap):Boolean;
TOP