<a href="http://img.xrea.com/ad_click.fcg" target="_blank"><img src="http://img.xrea.com/ad_img.fcg" border="0"></a>
■
改造・ｿｰｽとかのスレ
1:
｀）ノ
:2003/04/30 16:08 ID:???
改造やらｿｰｽについて用のスレです。
2:
｀）ノ
:2003/04/30 16:11 ID:w0xTUCao
質問苦情変更案とかでも大歓迎です。
・ｿｰｽをupしたらここに貼ります。
・変更・修正したとき、ｿｰｽを時々貼るかもね。
・ｿｰｽのup頻度は遅いです。（ﾊﾞｸﾞ多いから
3:
雑談ｽﾚの8
:2003/04/30 18:24 ID:???
期待してまー
4:
｀）ノ
:2003/05/02 09:38 ID:???
明るさ調整試作版
子formにUpDownｺﾝﾄﾛｰﾙをおいて、maxをﾃﾞｶｸして、posiを中間にして。
private
(54行省略)
5:
｀）ノ
:2003/05/02 09:59 ID:???
あとimage1.transparent:=False にして
6:
(,,ﾟДﾟ)さん
:2003/05/02 12:57 ID:???
やって見ました。OKです。
SPIも出来ました。漏れのミス（ｒｙ
以下は改良（書き間違えてるかもしれないけど）
(55行省略)
7:
(,,ﾟДﾟ)さん
:2003/05/02 13:10 ID:???
あとConstract()で
R:=R+Count;If R
>=255
Then R:=255 else If R<=0 Then R:=0;
G:=G+Count;If G
>=255
Then G:=255 else If G<=0 Then G:=0;
B:=B+Count;If B
>=255
Then B:=255 else If B<=0 Then B:=0;
(1行省略)
8:
(,,ﾟДﾟ)さん
:2003/05/02 13:22 ID:???
開いた直後に
sbBright.Position := 0;
も忘れてた
9:
6
◆INhAmMQjuM
:2003/05/02 18:11 ID:???
勝手に改造しちゃったのをはってみるテストのまとめ
Susie Plug-in対応と簡単な画像調整
TSPIsとAlphaBitmap3をﾀﾞｳｿしてインストール
(27行省略)
10:
6
◆INhAmMQjuM
:2003/05/02 18:12 ID:???
destructor TEditForm.Destroy;
begin
bmpSource.Free;{おまじない}
(60行省略)
11:
6
◆INhAmMQjuM
:2003/05/02 18:12 ID:???
procedure TEditForm.sbBrightChange(Sender: TObject);
begin
doRetouch(sbBright.Position,sbThin.Position,cbMono.Checked);
(35行省略)
12:
6
◆INhAmMQjuM
:2003/05/02 18:14 ID:???
procedure TEditForm.doRetouch(iBright: Integer; iThin: Integer; bMono: boolean);
var
BMP:TABitmap;
(32行省略)
13:
(,,ﾟДﾟ)さん
:2003/05/04 17:10 ID:???
procedure TEditForm.RollPanelMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
(9行省略)
14:
｀）ノ
:2003/05/04 19:34 ID:???
それいいっすね。
ついでにマウスが外れたら閉じるようにして、で完璧かな。
15:
◆INhAmMQjuM
:2003/05/04 19:41 ID:???
そうそう。おながいします。
16:
｀）ノ左右反転
:2003/05/18 16:14 ID:???
procedure TEditForm.Hanten2Click(Sender: TObject);
var //左右反転
RevList1,SubList : TStrings;
Fname: String;
(74行省略)
17:
｀）ノ//逆にする（コピペ
:2003/05/18 16:17 ID:???
function StrReverse(s: WideString): WideString;
const //逆順にする
WCharCR : WideChar = #$0d;
WCharLF : WideChar = #$0a;
(11行省略)
18:
｀）ノ
:2003/06/01 16:40 ID:???
v181修正後
procedure TFrameForm.TimChldShowTimer(Sender: TObject);
begin
if FrameForm.Showing then
(14行省略)
19:
｀）ノ
:2003/06/01 16:42 ID:???
5dotあける
procedure TFrameForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
(8行省略)
20:
｀）ノ
:2003/06/01 21:07 ID:???
修正ver1.81-2
procedure TFrameForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
(7行省略)
21:
｀）ノ
:2003/07/04 15:32 ID:???
誰かこれ↓をもっと速くしてください。
文字列sの中に１〜４があったらTrueを返す関数。
１．＞数字（半角/全角の０〜９）
(23行省略)
22:
◆INhAmMQjuM
:2003/08/21 13:22 ID:???
>>21
これ解決したの？
条件を見ると
(5行省略)
23:
｀）ノ
:2003/08/21 14:05 ID:???
function ResCheck1(const S :string):Boolean;
const
ResS1='1234567890';
ResS2='１２３４５６７８９０';
(22行省略)
24:
（´д｀）さん
:2003/08/21 18:02 ID:???
速いかわからないけど(；´∀｀)
function TForm1.ResCheck3(const S :string):Boolean;
const
ResS='1234567890１２３４５６７８９０-';
(28行省略)
25:
◆INhAmMQjuM
:2003/08/21 18:14 ID:???
むりやり１回のループでやってるけど
>と＞を分けて２回検索した方が早いかなぁ…
関数使うのやめて１文字づつ>と＞をチェックするのと
(1行省略)
26:
｀）ノ
:2003/08/21 22:06 ID:???
>24
のをやってみました。
＞あ
とかでもTrueになるみたいです。。あーでも参考にはなりました。
(7行省略)
27:
（´д｀）さん
:2003/08/21 22:33 ID:???
>>26
あら、ほんとだ。ボロがでた(ry
Sの長さとか＞の出現回数とかStringの内容によって
(1行省略)
28:
｀）ノ
:2003/09/04 19:21 ID:???
これでいいやという事にしました。
function TFrameForm.ResCheck1(const S :String):Boolean;
const
ResS = WideString('1234567890-１２３４５６７８９０');
(15行省略)
29:
｀）ノ
:2003/09/07 18:35 ID:???
ｿｰｽ（ver1.94）をうｐ。
30:
｀）ノ
:2003/09/22 00:04 ID:???
これをなんとかしたい。。
（解析で使う。文字の種類を返す）
stは１文字（半角or全角）
(40行省略)
31:
｀）ノ
:2003/10/05 15:11 ID:???
青くする試作@
対象の文字があったらFont色を青＆下線入れる。
AddHRefTagの後にやる。
(51行省略)
32:
｀）ノ
:2003/10/05 15:24 ID:???
最初の４行を消し。
>、＞が２つ以上続くと右端しか青くならない。
33:
｀）ノ
:2003/10/05 19:58 ID:???
>32
を修正版
function AddResTag(const S: string): string;
const //レスを青くする
(54行省略)
34:
｀）ノ
:2003/10/05 22:50 ID:???
色をURLで指定されてる色と同じになるように修正。
function AddResTag(const S: string): string;
const //レスを青くする
(61行省略)
35:
｀）ノ
:03/10/31 18:11
ソースをUpしました。ver1.97
36:
｀）ノ
:04/01/13 20:32
procedure TempLoadHuku;
var
sr: TSearchRec;
FileAttrs: Integer;
(21行省略)
37:
｀）ノ
:04/01/13 21:51
test4は、↓を変更のみ
repeat
if (sr.Name<>'.') and
(3行省略)
38:
｀）ノ
:04/01/13 23:04
test5は、↑を↓のように変更のみ
if (sr.Name<>'.') and (sr.Name<>'..') then begin
39:
（´д｀）さん
:04/02/05 22:53
AbitmapFilters32.dcuってどこにあるんでしょう
「見つからないぞ( ﾟДﾟ)ｺﾞﾙｧ」ってでるんですが
40:
｀）ノ
:04/02/05 23:03
http://www.geocities.jp/buin2gou2/delphi2/abitmap.htm
この中に入ってます。
41:
（´д｀）さん
:04/02/05 23:05
素早い対応どうもです
42:
｀）ノ
:04/02/13 20:29
MDIver2.00のｿｰｽをupしました。
http://www62.tok2.com/home/edit/src.html
43:
2S6M
◆INhAmMQjuM
:04/02/14 10:34
ｳﾎｯ！いただきますた。
44:
｀）ノ
:04/02/14 11:34
2.00のｿｰｽで、
BsCursors.RESが無かったので、うぷろだにupしておきました。
http://www62.tok2.com/home/edit/cgi-bin/img-box/img20040214113205.zip
45:
｀）ノ
:04/03/22 17:37
TABver2.11-4のｿｰｽをupしました。
http://www62.tok2.com/home/edit/src.html
46:
｀）ノ
:04/03/31 19:39
function TForm1.Sikaku(S:String): String;
var //でかいHintの文字
B: TBitmap;
L: PByteArray;
(35行省略)
47:
｀）ノ
:04/05/05 23:11
STORYver1.01のｿｰｽをupしました。
48:
｀）ノ
:04/05/11 02:05
STORYver1.01のｿｰｽを再upしました。
49:
｀）ノ
:05/09/29 21:59
ADM ver1.22000のソース D6personal
中にあるソースについて.txtを読んでください。
http://edit_.kuronowish.com/adm/src_ADM.zip
50:
｀）ノ
:05/09/30 00:39
>>49
は
「プロジェクトから削除」でUnitAAItems.pasを削除してください。
1:
1-
2:
▲
3:
新
4:
前
5:
書
6:
次
7:
写
8:
▼
9:
板
改造・ｿｰｽとかのスレ http://herohero.s41.xrea.com/rainboard/test/read.cgi/edit3/1051686521/
Rainboard
