{melon} 半透明化 procedure TWriteForm.AlphaBlendCheckBoxClick(Sender: TObject); begin if AlphaBlendCheckBox.checked = true then begin WriteForm.AlphaBlend := True; WriteForm.AlphaBlendValue := 168; end else WriteForm.AlphaBlend := False; end; {/melon}
//rika 新着があったスレを開く if (0 < currentBoard.Items[i].itemCount) and (0 < currentBoard.Items[i].lines) and (currentBoard.Items[i].itemCount > currentBoard.Items[i].lines) then