Ngày tải lên :
16/04/2014, 17:34
...
Begin
Bar(MiniMapPosX-1,MiniMapPosY-1,
MiniMapPosX+MiniMapSizeX+1,
MiniMapPosY+MiniMapSizeY+1,
Gray,EffectAdd);
ImageRenderEffect(MiniMapPosX,MiniMapPosY,
MiniMapImage,EffectAdd);
End;
//Show command panel ?
If CommandPanelVisible then
Begin
Bar(PanelPosX-1,PanelPosY-1,
PanelPosX+PanelSizeX+1,
PanelPosY+PanelSizeY+1,
BlueGray,EffectAdd) ;
If FirstUnitSelectOLow ... Ceding
MiniMapPosY:=10;
//Panel setting
CommandPanelVisible:=True ;
Panellmage:=CreateImage(PanelSizeX,PanelSizeY,FormatA1R5G5B5) ;
PanelPosX:=10;
PanelPosY:=ScrHeight-PanelSizeY-10;
//
SetupWorldlmage ...
Begin
TextOut(PanelPosX,PanelPosY,
ShipName[Typer] , White) ;
TextOut(PanelPosX,PanelPosY+20,
Format('HP: %d/%d', [HitPoint,_HitPoint]),White);
TextOut(PanelPosX,PanelPosY+40,
Format('Damage:...