伴水？会来吗？嘻嘻

小小真调皮～～嘻嘻嘻　放一段代码，就不是灌水贴了！　嘻嘻嘻嘻//=======Begin 位图翻转函数
type
  TRGBArray = array[0..MAXWORD] of TRGBTriple;
  PRGBArray = ^TRGBArray;function BitmapRotate90(mSource, mDest: TBitmap): Boolean;
var
  I: Integer;
  J: Integer;
  A: PRGBArray;
begin
  Result := False;
  if not (Assigned(mSource) and Assigned(mDest)) then Exit;
  mDest.Assign(mSource);
  mDest.Width := mSource.Height;
  mDest.Height := mSource.Width;
  for J := 0 to mSource.Height - 1 do begin
    A := mSource.ScanLine[J];
    for I := 0 to mSource.Width - 1 do
      PRGBArray(mDest.ScanLine[mSource.Width - I - 1])[J] := A[I];
  end;
  Result := True;
end; { BitmapRotate90 }function BitmapRotate180(mSource, mDest: TBitmap): Boolean;
var
  I: Integer;
  J: Integer;
  A: PRGBArray;
  B: PRGBArray;
begin
  Result := False;
  if not (Assigned(mSource) and Assigned(mDest)) then Exit;
  mDest.Assign(mSource);
  mDest.Width := mSource.Width;
  mDest.Height := mSource.Height;
  for J := 0 to mSource.Height - 1 do begin
     A  := mSource.ScanLine[J];
     B := mDest.ScanLine[mSource.Height - J - 1];
      for I := 0 to mSource.Width - 1 do B[mSource.Width - I - 1] := A[I];
  end;
  Result := True;
end; { BitmapRotate180 }function BitmapRotate270(mSource, mDest: TBitmap): Boolean;
var
  I: Integer;
  J: Integer;
  A: PRGBArray;
begin
  Result := False;
  if not (Assigned(mSource) and Assigned(mDest)) then Exit;
  mDest.Assign(mSource);
  mDest.Width := mSource.Height;
  mDest.Height := mSource.Width;
  for J := 0 to mSource.Height - 1 do begin
    A := mSource.ScanLine[J];
    for I := 0 to mSource.Width - 1 do
      PRGBArray(mDest.Scanline[I])[mSource.Height - J - 1] := A[I];
  end;
end; { BitmapRotate270 }
//=======End 位图翻转函数

zswang(伴水)的MSN怎么从来都不开?

Study from you all :)

我来测试伴水的代码用MSN的朋友多吗？

to ehom: 伴水的机器上没有安装msn
to alphax: 四国军棋伴水还不会玩～～学习、学习再开发～～：）
to 太阳风: 潜水一分钟没有问题！～～

@#$%^&*? 原来...是这样啊!咳,那Kingron把你的MSN登出来...却没用!呵呵!那把你的QQ从水下偷偷告诉我吧!

我顶，给一个api函数大家看看
vkKeyScanEx函数功能：该函数将一个字符翻译成相应的虚拟键码和对于当前键盘的上挡状态。该函数使用由给定的键盘布局句柄标识的物理键盘布局和输入语言来翻译字符。
函数原型：SHORT VkKeyScanEx（TCHA ch,HKL dwhkf）；
参数：
ch:定义被翻译成虚拟键码的字符。
Dwhkl：用于翻译字符的键盘布局句柄。该参数值可以是任意先前由LoadKeyboardLayout函数返回的键盘布局句柄。
返回值：同VkKeyScan。
速查: Windows NT：4.0及以上版本；Windows：95及以上版本；Windows CE：不支持；头文件：winuser.h；库文件：user32.lib; Unicode：在Windows NT上实现为Unicode和ANSI两种版本。

谁能帮我解答一个问题啊，
http://expert.csdn.net/Expert/topic/1217/1217232.xml?temp=.9439661
http://expert.csdn.net/Expert/topic/1214/1214548.xml?temp=4.728335E-02

silverwonder(刷卡太快请重刷)
小小是男孩啊

To:Forgot
耶，从哪里弄的，很好玩耶!不会是你自己写的吧？

silverwonder(刷卡太快请重刷)
小小是男孩啊
_________________________________
谁不知道小小是男孩啊？？
小小元旦还要去见GF呢！祝他顺利！！

TO silverwonder(刷卡太快请重刷)
谁说给你给分啦？嘻嘻嘻，问小小要分？嘻嘻嘻，小小很小气的哎
不过，哈，来亲一个 ~～~ 啵~~~
哈，香吻啊
小小散分，从来不给四角、五解、星际的多地；
你要是一个三角角，两个三角角、三个三角角，小小会给你分的；
晕~！不信你是要分来啦

TO NothingCola(没事偷着乐)
嘻嘻，嘻嘻的面子还行，把你也请出来了，嘻嘻嘻//不过，小小不知道你是那位朋友，哈~，可否从水下告知？

to silverwonder: 谢谢你的“silverwonder2 ”帐号～～还给你了～～小小的香吻是要用到元旦的吧～～！
现在先练习练习～～大家就做点贡献吧～～哈哈～～哎呀～～哎呀～～我要去洗脸去了～～

to forgot:　去开会学的？·～！说怎么不来找我呢·～！原来是研究高科技了·～！

(伴水)(现在是专家门诊清洁工)：不是不找你，只是原来计划改变了，我现在还没有上北京呢？呵呵！forgot2000学习了新思想，提高了觉悟，我现在正在跟他老人家学习中呢！

ehom(？！) 该死，小小是老男人，老头子，那像伴水，女孩的干活，却还说是个男孩 or 男人；如果不是今天看见了Ta，小小真不敢相信伴水是女孩，哈，哈~~伴水，不会生气吧，来，吃一下，哈哈哈～～～xixixixixixi╭︿︿☆╮                 ╭︿︿︿╮
{/ ．．\}oοО爱我不…    {/．． \}
(   (oo) )    …咋不爱Оοo( (oo)   )
︶︶︶︶…爱多久  一辈子… ︶︶︶︶
伴水，不会生气吧，嘻嘻，小小狂喜，哈哈
管吃管住，就是女孩细心啊~~~~

小小也是·～
又开这样的玩笑·～
看到CoolSlob的帖子没有？·～
还没有教训·～真是的·～　
罚你今天把VC、VB、BCB、Delphi、JAVA版给我打扫了·～
给你把扫帚快去·～

惨了，我不要步CoolSlob的后尘吧！被人到处追杀！我敢快“脚底抹油！”逃！

：（这么凶啊？我那有看到CoolSlob的贴子了啊？没有啊；
这么久没有上了嘛；
委屈 55555555555555
扫Ing~

Csdn最新报道：鸟窝里的虫是幼年！证据：他是鸟窝里的虫嘛，刚出世不久的，你看，两个小眼睛红红的，怪可爱的嘛，亲一个，嘻嘻，还有点.....
真是，扭扭捏捏的，小小都三十大几的人，还能沾你便宜？

to zswang(伴水清清)(专家门诊清洁工)
很久没看到你在这里活动了，大把大把捞钞票的时候也不要忘了CSDN上的兄弟们哈^_*

to ihihonline(小小->爱被下载中……)
小小，你老兄该不是看上zswang(伴水清清)(专家门诊清洁工)了吧：）
我来做“月下老人”，成全你们了哈，嘻嘻：）

呵呵，怪不得CoolSlob不敢来了，哈~

to ehom(？！)
先申明哈，我可是如假包换的男丁哈,所以只能做“月下老人”了，嘻嘻：）

天呀！我天天都想进步，就是为了不想当虫，结果！我还成了幼虫了？看来，这回就算不被CSDN上的“杀手”追杀，也要被公司的鸟吃掉了。因为他们虽然不敢吃大虫，但是吃一只幼虫的胆子还是有的！555555555~~~我向大家说~永远别了~还有，小小与伴水的酒我是喝不到了，我在这里先为你们祝贺一声吧！祝你们：百年好喝！不过，我有点担心伴水呀！怕她来一个强迫与“未成年”.....剩余的不说了，我S了！别找我了！

Drate(鸟窝里的虫) 你进步太快啦，把规律给转了回去了，不能怪你的，不能怪你的，酒嘛，还是要吃地，嘻嘻
ehom(？！) 嘻嘻，小小想看一看结果地，哈

TO：liang_z(千山一刀之忍者神龟) ：你的名字不是叫“忍者”吗？你就忍着点吧，不会把你打回原形就行了，不是吗？

调试易

伴水？会来吗？嘻嘻

解决方案 »