摘要：
just for as2:大家都知道在flash的按钮事件中写上Stage["displayState"] = "fullScreen";就可以使flash全屏，写Stage["displayState"] = "normal";可以使flash非全屏，但是在google chrome存在bug，如果是在按钮的onPrees事件中使flash全屏，全屏后没有释放鼠标，导致鼠标在flash界面上不能触发鼠标消息。而在自己编写可执行程序中加载的flash里面使用onrelease事件使flash全屏则不成功，必须使用o 阅读全文
摘要：
constructor ***.Create()begin // ListView的消息钩子 FNewProc := MakeObjectInstance(SelfListViewProc); FOldProc := Pointer(GetWindowLong(FListView.Handle, GWL_WNDPROC)); SetWindowLong(FListView.Handle, GWL_WNDPROC, LongInt(FNewProc));end;procedure ***.SelfListViewProc(var Msg: TMessage);begin if Assi... 阅读全文
摘要：
procedure TGroupItem.ListView1AdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean);var NodeRect: TRect; NodeLabelRect:TRect; imageWidth,ImageHeight, RectWidth,RectHeight: Integer;begin if Sender <> FListVie 阅读全文