改造・ｿｰｽとかのスレ

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

10:6 ◆INhAmMQjuM :2003/05/02 18:12 ID:???

destructor TEditForm.Destroy;
begin
bmpSource.Free;{おまじない}
inherited Destroy;
end;

TEditForm.FormCreate()で
sbBright.Hint := '明るさの変更';//追加
sbThin.Hint := '色を薄くする';//追加
cbMono.Hint := 'モノクロにする';//追加

procedure TEditForm.BtnPicOpenClick(Sender: TObject);
var
fname: string;
retDlg: Boolean;
begin
fname := '';
with OpenPicDlg1 do begin
Filter := GraphicFilter(TGraphic);
InitialDir:=FolPic;

SPIs1.GraphicPreview := True;
try
retDlg := Execute;
fname := OpenPicDlg1.FileName;
finally
SPIs1.GraphicPreview := False;
end;
end;
try
if retDlg then begin
try
bmpClear;
Image1.Picture.LoadFromFile(fname);
bmpSource.Assign(Image1.Picture.Graphic);
except
raise;
end;
with Image1 do begin
AutoSize := True;
AutoSize := False;
Width := Picture.Width;
Height := Picture.Height;

DepicX := Picture.Width;
DepicY := Picture.Height;
end;

//画像の名前
BtnPicOpen.Hint := ExtractFileName(fname);

if ToreSav = false then begin
ScBar5.Position:=100;
BtngenClick(nil);
end;
ScBar5Change(nil);
TimToreTimer(nil);
end;
except
{NOP}
end;
end;

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

Rainboard